NH0 $ $<- & ~ == > as.numeric c coef formula library lm na.omit round summary NH1 $ == CreateTableOne ecdf print small.nhanes vars NH3 $ == c CreateTableOne ecdf legend par plot print small.nhanes vars NH4 ~ == c cut formula glm predict quantile rbind seq small.nhanes Smoke table NH5 == as.numeric c cbind colnames<- CreateTableOne cut ExtractSmd for ps.lr quints round small.nhanes Smoke T tabUnmatched vars NH6 $ & == c ecdf for legend list par Pcat plot range small.nhanes Smoke substitute title NH7 == c cbind colnames<- CreateTableOne cut ExtractSmd for ps.lr quantile seq small.nhanes tabUnmatched vars NH8 $ $<- c CreateTableOne Match ps.lr table vars NH9 $ == c ecdf legend matched.samp par plot NH10 $ ~ library ps.lr small.nhanes svyCreateTableOne svydesign vars NH11 ~ coef lm small.nhanes summary NH12 ~ coef formula lm small.nhanes NH13 ~ c coef formula lm mean nhanes.allsmoke nhanes.nosmoke predict small.nhanes summary NH14 $ & [<- ~ == cut for formula glm length mean predict quints rep small.nhanes Smoke sum table NH15 $ == c Match mean small.nhanes NH16 ~ library lm mean nhanes.allsmoke nhanes.nosmoke predict small.nhanes NH17 ~ coef lm mean ps.lr Smoke Y NH2 c ecdf0 ecdf1 legend par plot NH9a c cbind colnames<- ExtractSmd round tabMatched NH18 $<- ~ fmodi formula lm mean pmax pmin predict ps.lr Smoke Y NH19 $ $<- & [<- ~ == c coef cut fmod fmodi fmods for glm length library lm Match matrix mean nrow pmax pmin predict quantile rep sample seq set.seed small.nhanes sum T table NH20 boxplot c ests.mat par range NH10a $ == c cbind colnames<- Ecdf ExtractSmd lines par plot ps.lr.weight round small.nhanes Smoke tabIPW NH21 apply c cbind colnames<- ests.mat lvec mean rownames<- sqrt var NH4a abline box boxplot c hist legend par ps0 ps1 quints rgb seq T NH22 ~ MatchBalance ps.lr.match small.nhanes NH23 print tabIPW NH11a ~ coef formula lm small.nhanes NH12a $<- fmod lm mean predict small.nhanes NH0a $ $<- [<- == nrow rep rnorm NH0b ~ c coef formula lm round small.nhanes summary