if (FALSE) {
### Run on supplied long data
DEMO_Knots_Boundaries <- createKnotsBoundaries(sgpData_LONG)
### Run as part of prepareSGP
### First NULL out knots and boundaries embedded in SGPstateData
SGPstateData[["DEMO"]][["Achievement"]][["Knots_Boundaries"]] <- NULL
Demonstration_SGP <- prepareSGP(sgpData_LONG)
}
Run the code above in your browser using DataLab