# NOT RUN {
data(abdat)
print(abdat)
oldpar <- par(no.readonly=TRUE)
plot(abdat$year,abdat$cpue, type="l",xlab="year",ylab="CPUE",
panel.first=grid())
points(abdat$year,abdat$cpue,pch=16,cex=1.2)
par(oldpar)
# }
Run the code above in your browser using DataLab