# NOT RUN {
## Calculate baseline referenced SGPs
## (using coefficient matrices embedded in SGPstateData)
Demonstration_SGP <- prepareSGP(sgpData_LONG)
Demonstration_SGP <- baselineSGP(Demonstration_SGP)
## Calculate baseline referenced coefficient matrices
SGPstateData[["DEMO"]][["Baseline_splineMatrix"]] <- NULL
Demonstration_SGP <- prepareSGP(sgpData_LONG)
DEMO_Baseline_Matrices <- baselineSGP(
Demonstration_SGP,
return.matrices.only=TRUE,
calculate.baseline.sgps=FALSE)
## Calculate baseline referenced coefficient matrices and
## baseline referenced SGPs with 4 years of data
SGPstateData[["DEMO"]][["Baseline_splineMatrix"]] <- NULL
sgpData_LONG_4_YEAR <- subset(sgpData_LONG, YEAR!="2013_2014")
Demonstration_SGP <- prepareSGP(sgpData_LONG_4_YEAR)
Demonstration_SGP <- baselineSGP(Demonstration_SGP)
# }
Run the code above in your browser using DataLab