if (FALSE) {
# load example data (CLSI EP05-A2 Within-Lab Precision Experiment)
data(dataEP05A2_3)
tmpData <- dataEP05A2_3[1:10,]
# check out the differences
getMM(~day+day:run, tmpData)
model.matrix(~day+day:run, tmpData)
# adapt factor variables in 'tmpData'
tmpData$day <- factor(tmpData$day)
# check out the differences now
getMM(~day+day:run, tmpData)
model.matrix(~day+day:run, tmpData)
# numeric covariate 'cov'
tmpData2 <- dataEP05A2_3[1:10,]
tmpData2$cov <- 10+rnorm(10,,3)
model.matrix(~day*cov, tmpData2)
}
Run the code above in your browser using DataLab