Nothing
# Making birth weight from mosaicData::Gestation.
require(rpart)
require(rpart.plot)
require(dplyr)
require(mosaicData)
Birth_weight <-
mosaicData::Gestation %>%
select(baby_wt = wt,
income = inc,
mother_age = age, smoke, gestation, mother_wt = wt.1 ) %>%
filter(smoke < 2) %>%
na.omit() %>%
mutate(smoke = ifelse(smoke == 1, "smoker", "nonsmoker"),
income = paste0("level_", income))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.