# \donttest{
y = scIVTmag[1:100]
model = polytrendMod(1,quantile(y,0.85),10)
M0 = exdqlmISVB(y,p0=0.85,model,df=c(0.98),dim.df = c(1),
gam.init=-3.5,sig.init=15)
exdqlmPlot(y,M0,col="blue")
# }
Run the code above in your browser using DataLab