# NOT RUN {
## Load the example data
data(whiBioMarker)
## Here is an example of SPMLE with exploiting independent and with confounding factors:
spmleIndExtra <- spmle(data=whiBioMarker, ## dataset
response="stroke", ## response variable
treatment="hrtdisp", ## treatment variable
BaselineMarker="papbl", ## environment variable
extra=c(
"age" ## age
, "dias" ## diabetes
, "hyp" ## hypertension
, "syst" ## systolic
, "diabtrt" ## diastolic BP
, "lmsepi" ## waist:hip ratio
), ## extra variable(s)
phase="phase", ## phase indicator
ind=TRUE ## independent or non-independent
)
# }
Run the code above in your browser using DataLab