Displaying 1 result from an estimated 1 matches for "changeloc".
Did you mean:
changelog
2012 Nov 13
1
Simulation with cpm package
...lly correct but it just seems to hang R. I can get
this to run if I set the sims to 100 but with 2000 it just hangs. Any ideas
why?
Thanks,
Chris
library(cpm)
cpmTypes <- c("Kolmogorov-Smirnov","Mann-Whitney","Cramer-von-Mises")
changeMagnitudes <- c(1, 2, 4, 5)
changeLocations <- c(50,100,300)
sims <- 2000
ARL0 <- 500
startup <- 20
results <- list()
for (cpmType in cpmTypes) {
results[[cpmType]] <- matrix(numeric(length(changeMagnitudes) *
length(changeLocations)), nrow =
length(changeMagnitudes))
for (...