Last chance! 50% off unlimited learning
Sale ends in
smoother(y, x = NULL, cluster, weights = NULL, smoothFunction, verbose = TRUE, ...)
loessByCluster
and runmedByCluster
.smoothFunction
cluster
argument.
loessByCluster
, runmedByCluster
dat <- dummyData()
# Enable parallelization
require(doParallel)
registerDoParallel(cores = 2)
## loessByCluster
smoothed <- smoother(y=dat$mat[,1], cluster=dat$cluster, smoothFunction=loessByCluster,
bpSpan = 1000, minNum=7, minInSpan=5, maxSpan=1)
## runmedByCluster
smoothed <- smoother(y=dat$mat[,1], cluster=dat$cluster, smoothFunction=runmedByCluster,
k=5, endrule="constant")
# cleanup, for Windows
bumphunter:::foreachCleanup()
Run the code above in your browser using DataLab