Publications by Coda Rayo-Garza
HW 7 - Stats II
library(ipumsr) usa_00012 <- read_ipums_ddi("usa_00012.xml") tx_00012 <- read_ipums_micro(usa_00012, data_file = ("usa_00012.dat.gz"), verbose = FALSE) library(stringr) names(tx_00012)<-tolower(names(tx_00012)) names(tx_00012) ## [1] "year" "multyear" "sample" "serial" "cbserial" "hhwt" ## [7] "cluster" "statefip" "...
65 sym R (22202 sym/51 pcs) 8 img
Blog Entry # 2 - Stats II
library(ipumsr) usa_00013 <- read_ipums_ddi("usa_00013.xml") tx_00013 <- read_ipums_micro(usa_00013, data_file = ("usa_00013.dat.gz"), verbose = FALSE) library(stringr) names(tx_00013)<-tolower(names(tx_00013)) names(tx_00013) ## [1] "year" "multyear" "sample" "serial" "cbserial" "hhwt" ## [7] "cluster" "statefip" "...
257 sym R (21836 sym/44 pcs) 3 img 12 tbl
HW8 - Stats II
library(ipumsr) usa_00013a <- read_ipums_ddi("usa_00013.xml") tx_00013a <- read_ipums_micro(usa_00013a, data_file = ("usa_00013.dat.gz"), verbose = FALSE) library(stringr) names(tx_00013a)<-tolower(names(tx_00013a)) names(tx_00013a) ## [1] "year" "multyear" "sample" "serial" "cbserial" "hhwt" ## [7] "cluster" "statef...
87 sym R (44012 sym/77 pcs) 4 img
Homework 10
load(url("https://github.com/coreysparks/data/blob/master/brfss_2017.Rdata?raw=true")) #Data Prep nams<-names(brfss_17) head(nams, n=10) ## [1] "dispcode" "statere1" "safetime" "hhadult" "genhlth" "physhlth" ## [7] "menthlth" "poorhlth" "hlthpln1" "persdoc2" newnames<-tolower(gsub(pattern = "_",replacement = "",x = nams)) names(brfss_...
690 sym R (12840 sym/52 pcs) 1 img
Homework 9 - Stats 2
load(url("https://github.com/coreysparks/data/blob/master/brfss_2017.Rdata?raw=true")) #Data Prep nams<-names(brfss_17) head(nams, n=10) ## [1] "dispcode" "statere1" "safetime" "hhadult" "genhlth" "physhlth" ## [7] "menthlth" "poorhlth" "hlthpln1" "persdoc2" newnames<-tolower(gsub(pattern = "_",replacement = "",x = nams)) names(brfss_...
27 sym R (10164 sym/21 pcs) 1 img