## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = ""
)
## ----hemoglobin.PCB, echo = TRUE----------------------------------------------
library(prime.total.effect)
dim(hemoglobin.PCB)
# there are still many NAs in the data set, to remove the all the NAs, you could use na.omit
PCB.no.missing <- na.omit(hemoglobin.PCB)
# response is LBXGH
head(PCB.no.missing)
# covariates are PCBs
head(PCB.no.missing)
dim(hemoglobin.PCB)
dim(PCB.no.missing)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.