## Not run:
# ### Record of session captured by script written to temporary file
# tmpDir <- tempdir()
# tmpFile <- file.path(tmpDir, 'script.txt')
# script(tmpFile)
# ### Annette Dobson (1990) "An Introduction to Generalized Linear Models".
# ### Page 9: Plant Weight Data.
# ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)
# trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)
# group <- gl(2,10,20, labels=c("Ctl","Trt"))
# weight <- c(ctl, trt)
# plants <- data.frame(weight = weight, group = group)
# lm.D9 <- lm(weight ~ group, data = plants)
# q()
# sessionOut <- readLines(tmpFile)
# sessionOut
# ## End(Not run)
Run the code above in your browser using DataLab