# NOT RUN {
#########################
# apc data list
data.list <- data.asbestos()
objects(data.list)
#####################
# Figure 1,a-c from
# Miranda Martinex, Nielsen and Nielsen (2015).
data.list <- data.asbestos()
apc.plot.data.sums(data.list,type="l")
#####################
# Figure 1,d from
# Miranda Martinex, Nielsen and Nielsen (2015).
data.list <- data.asbestos()
apc.plot.data.within(data.list,type="l",lty=1)
# }
Run the code above in your browser using DataLab