data(TV)
TVdata=TV[[1]]
labSCALE=TV[[2]]
labPROGRAM=TV[[3]]
labSTUDENT=TV[[4]]
# permutation of the modes so that the A-mode refers to students
TVdata <- permnew(TVdata, 16, 15, 30)
TVdata <- permnew(TVdata, 15, 30, 16)
# CP solution
TVcp <- CPfuncrep(TVdata, 30, 16, 15, 2, 1, 1, 1, 0, 1e-6, 10000)
## Not run:
# # Bootstrap analysis on CP solution
# boot <- bootstrapCP(TVdata, TVcp$A, TVcp$B, TVcp$C, 30, 16, 15, 2, 1, 1, 1,
# 1e-6, 0, 0, 0, 10000, labSTUDENT, labSCALE, labPROGRAM)
# # Bootstrap analysis on CP solution (when labels are not available)
# boot <- bootstrapCP(TVdata, TVcp$A, TVcp$B, TVcp$C, 30, 16, 15, 2, 1, 1, 1,
# 1e-6, 0, 0, 0, 10000)
# ## End(Not run)
Run the code above in your browser using DataLab