## Not run:
# # 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)
# ## End(Not run)
Run the code above in your browser using DataLab