# NOT RUN {
n <- 1000
dat <- data.frame(
x = rnorm(n),
f = factor(sample(1:50, n, replace=TRUE))
)
str(X <- computeDesignMatrix(~ x, dat)[[1]])
X <- computeDesignMatrix(
~ reg(~x, name="beta") + gen(~x, factor=~f, name="v"), dat
)
str(X)
# }
Run the code above in your browser using DataLab