# NOT RUN {
data(DWD)
R <- pheno.lad.fit(DWD) # robust parameter estimation
plot(levels(factor(R$D[[2]])),R$p1,type="l") # plot combined time series
R$D[R$resid >= 30,] # observation whose residuals
# are > 30 days (outliers)
# }
Run the code above in your browser using DataLab