# Simulate data
sim <- plrs.sim(n=80, states=4, sigma=0.5)
# Fit a model
model <- plrs(expr=sim$expr, cghseg=sim$seg, cghcall=sim$cal)
# Confidence bands
model <- plrs.test(model)
model <- plrs.cb(model, alpha=0.05)
plot(model)
Run the code above in your browser using DataLab