Publications by Coda Rayo-Garza
Final Exam_7273
library(haven) psid_cds <- read_dta("C:\\Users\\codar\\OneDrive\\Documents\\Stats 1\\Data\\psid_cds.dta") View(psid_cds) #cleanedout the NAs nona <- na.omit (psid_cds) Recode tenure so that 1=owning a house, 0=renting a house, and missing is set to missing (NA). (2 point) psidrecode <-psid_cds %>% mutate( tenure = case_when ...
2160 sym R (16231 sym/53 pcs) 3 img
Homework 3 - Stats 1 - Fall 2020
#Load Libraries library(Hmisc) ## Loading required package: lattice ## Loading required package: survival ## Loading required package: Formula ## Loading required package: ggplot2 ## ## Attaching package: 'Hmisc' ## The following objects are masked from 'package:base': ## ## format.pval, units library(lme4) ## Loading required package:...
1733 sym R (10433 sym/71 pcs) 10 img
Homework 4 - Stats I - Fall 2020
hospital <- read.delim("~/Stats 1/Data/hospital.txt") View(hospital) Obtain the mean, standard deviation, min and max values for both x and y variables describe(hospital$cost) ## vars n mean sd median trimmed mad min max range skew ## X1 1 33 8810.18 7875.07 5870 7435.67 5252.85 1233 35381 34148 1.58 ## kurtosis ...
1198 sym R (10834 sym/52 pcs) 12 img
Homework1 - Stats II
setwd(“~/Stats II”) Coda Rayo-Garza codargarza@gmail.com Use a screen capture tool to take a capture of your R session showing version 4.0.3 ...
152 sym 1 img
HW3-CRG-Stats II
#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_17)<-newnames ##Get TX Cities brfss_17$tx<-NA brfss_17$tx[grep(pattern = "TX", brfss...
23 sym R (2981 sym/12 pcs) 5 tbl
Homework 2 - Stats II
load(url("https://github.com/coreysparks/data/blob/master/brfss_2017.Rdata?raw=true")) 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_17)<-newnames ...
40 sym R (7684 sym/34 pcs)
Homework 3 - Stats II 2021
load(url("https://github.com/coreysparks/data/blob/master/brfss_2017.Rdata?raw=true")) 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_17)<-newnames ...
49 sym R (9015 sym/39 pcs) 4 tbl
HW4 - CRG- Stats II
#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_17)<-newnames ##Get TX Cities brfss_17$tx<-NA brfss_17$tx[grep(pattern = "TX", brfss...
94 sym R (24362 sym/79 pcs) 8 img 1 tbl
HW5 - CRG - Stats 2
#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_17)<-newnames ##Get TX Cities brfss_17$tx<-NA brfss_17$tx[grep(pattern = "TX", brfss...
54 sym R (25967 sym/47 pcs) 1 img
Homework 6 - Stats II
#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_17)<-newnames ##Get TX Cities brfss_17$tx<-NA brfss_17$tx[grep(pattern = "TX", brfss...
46 sym R (11345 sym/39 pcs) 1 img