if (FALSE) {
## 6 measurements, 3 subjects, 3 unique time-points, 2 variables
inputData <- matrix(c(1,2,3,4,5,6, 7,8,9,10,11,12), ncol=2)
ind <- c('ind_1','ind_1','ind_1','ind_2','ind_2','ind_3')
time <- c(0,5,10,0,10,5)
get_eigen_spline_matrix(inputData, ind, time, ncores=0)
# 0 5 10
# 1 1 2 3
# 2 4 NA 5
# 3 NA 6 NA
# 4 7 8 9
# 5 10 NA 11
# 6 NA 12 NA
}
Run the code above in your browser using DataLab