sbalci

| HEADER | EMPHASIS | HORIZONTAL_LINE | LIST | TABLE

sbalci

# Animated dplyr joins with gganimate
# * Garrick Aden-Buie
# * garrickadenbuie.com
# * MIT License: https://opensource.org/licenses/MIT

# Note: I used Fira Sans and Fira Mono fonts.
#       Use search and replace to use a different font if Fira is not available.

library(tidyverse)
library(gganimate)

sbalci

List of countries

This list served quite some people but someone else did a better job since.

Go to https://github.com/umpirsky/country-list for a list in your language and format.

List of nationalities

I've also compiled a list of nationalities

sbalci

if (!require("pacman")) install.packages("pacman")
pacman::p_load(dplyr, tidyr, wakefield)

set.seed(10)
dat <- r_data_frame(n = 10000,
        race,
        age,
	    sex
    )

sbalci

People

:bowtie:	😄 :smile:	😆 :laughing:
😊 :blush:	😃 :smiley:	☺️ :relaxed:
😏 :smirk:	😍 :heart_eyes:	😘 :kissing_heart:
😚 :kissing_closed_eyes:	😳 :flushed:	😌 :relieved:
😆 :satisfied:	😁 :grin:	😉 :wink:
😜 :stuck_out_tongue_winking_eye:	😝 :stuck_out_tongue_closed_eyes:	😀 :grinning:
😗 :kissing:	😙 :kissing_smiling_eyes:	😛 :stuck_out_tongue:

sbalci

# Ruby is our language as asciidoctor is a ruby gem.
lang: ruby
before_install:
  - sudo apt-get install pandoc
  - gem install asciidoctor
script:
  - make
after_success:
  - .travis/push.sh
env:

sbalci

# https://stackoverflow.com/questions/43419385/how-to-export-survfit-output-as-a-csv-table
res <- summary(km_fit, times = c(12,36,60))
save.df <- as.data.frame(res[c("strata", "time", "n.risk", "n.event", "surv", "std.err", "lower", "upper")])
# write.csv(save.df, file = "./file.csv")

sbalci

# https://stackoverflow.com/questions/43419385/how-to-export-survfit-output-as-a-csv-table
res <- summary(km_fit, times = c(12,36,60))
save.df <- as.data.frame(res[c("strata", "time", "n.risk", "n.event", "surv", "std.err", "lower", "upper")])
# write.csv(save.df, file = "./file.csv")

# https://git.io/fjzez

sbalci

# MeSH Terms can be retrieved in one column separated by a ;
# This script is to prepare MeSH data for analysis 


library(stringr) # [CRAN] # Simple, Consistent Wrappers for Common String Operations

str_count(string = articles$MeSH, pattern = ";") %>% 
    max()

articles <- articles %>% 

sbalci

# https://github.com/MI2DataLab/modelDown
# https://github.com/MI2DataLab/modelDown_example
# https://mi2datalab.github.io/modelDown/getting-started
# https://github.com/pbiecek/DALEX
# https://github.com/pbiecek/archivist


# devtools::install_github("MI2DataLab/modelDown")
# install_dependencies()