Nothing
makeChangePointModel <- function(cpmType,ARL0=500,startup=20,lambda=NA) {
args <- verifyArguments(cpmType,ARL0,startup,lambda)
if (args$success==FALSE) {
return()
}
cpmType <- args$cpmType
thresholds <- NA
if (is.na(ARL0)) {
thresholds <- rep(999999,10000)
} else {
thresholds <- loadThresholds(cpmType, ARL0, 10000, lambda)
}
callfn <- parse(text=sprintf("makeChangePointModel%s",cpmType))
if (cpmType != "FET") {
return(eval(callfn)(thresholds,startup))
} else {
return(eval(callfn)(thresholds,startup,lambda))
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.