# NOT RUN {
set.seed(1)
simul = simulprofiles(M=5,n=100,k.mean=2,SNR=5,lambda=1)
CGHd = new("CGHdata",Y=simul$Y)
CGHo = new("CGHoptions")
calling(CGHo) = FALSE
wavenorm(CGHo) = "position"
CGHr.pos = multiseg(CGHd,CGHo)
wavenorm(CGHo) = "spline"
CGHr.spl = multiseg(CGHd,CGHo)
getbgoutliers(CGHr.pos,CGHr.spl,fdr=0.05)
# }
Run the code above in your browser using DataLab