# load 'gammi' package
library(gammi)
# load data
data(exam)
# header of data
head(exam)
# make basis matrix
x <- spline.model.matrix(Exam.score ~ ., data = exam)
# check dimension (= 3435 by 178)
dim(x)
# check term labels
attr(x, "term.labels")
# check which columns of x belong to which terms
attr(x, "assign") # note: 0 = (Intercept)
Run the code above in your browser using DataLab