`checksplineMatrix` <-
function(list.of.splineMatrix,
sgp_object=NULL,
state=NULL,
content_area=NULL,
year=NULL) {
if (is.splineMatrix(list.of.splineMatrix)) {
list.of.splineMatrix <- list(list.of.splineMatrix)
}
for (i in names(list.of.splineMatrix)) {
if (!grepl("SIMEX", i)) {
if (!grepl("BASELINE", i) || is.null(state) || is.null(SGP::SGPstateData[[state]][['Baseline_splineMatrix']])) {
splineMatrix.tf <- sapply(list.of.splineMatrix[[i]], validObject, test=TRUE)==TRUE
if (!all(splineMatrix.tf)) {
content_area <- unlist(strsplit(i, "[.]"))[1]; year <- unlist(strsplit(i, "[.]"))[2]
for (j in names(list.of.splineMatrix[[i]])[!splineMatrix.tf]) {
message(paste("\tNOTE: Updating Coefficient Matrix", i, j, "to new splineMatrix class."))
list.of.splineMatrix[[i]][[j]] <-
as.splineMatrix(matrix_argument=list.of.splineMatrix[[i]][[j]], matrix_argument_name=j, content_area=content_area, year=year, sgp_object=sgp_object)
}
}
list.of.splineMatrix[[i]] <- uniquesplineMatrix(list.of.splineMatrix[[i]])
} else {
list.of.splineMatrix[[i]] <- SGP::SGPstateData[[state]][['Baseline_splineMatrix']][['Coefficient_Matrices']][[i]]
}
} else {
for (grd_ord in names(list.of.splineMatrix[[i]])) {
for (lambda in grep("lambda", names(list.of.splineMatrix[[i]][[grd_ord]]), value=TRUE)) {
splineMatrix.tf <- sapply(list.of.splineMatrix[[i]][[grd_ord]][[lambda]], validObject, test=TRUE)==TRUE
if (!all(splineMatrix.tf)) {
content_area <- unlist(strsplit(i, "[.]"))[1]; year <- unlist(strsplit(i, "[.]"))[2]
for (j in names(list.of.splineMatrix[[i]][[grd_ord]][[lambda]])[!splineMatrix.tf]) {
message(paste("\tNOTE: Updating Coefficient Matrix", i, grd_ord, lambda, j, "to new splineMatrix class."))
list.of.splineMatrix[[i]][[grd_ord]][[lambda]][[j]] <-
as.splineMatrix(matrix_argument=list.of.splineMatrix[[i]][[grd_ord]][[lambda]][[j]], matrix_argument_name=j, content_area=content_area, year=year, sgp_object=sgp_object)
}
}
list.of.splineMatrix[[i]][[grd_ord]][[lambda]] <- uniquesplineMatrix(list.of.splineMatrix[[i]][[grd_ord]][[lambda]])
}
}
}
}
return(list.of.splineMatrix)
} ### END checksplineMatrix
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.