# NOT RUN {
data(WR79)
str(WR79)
head(WR79)
## Extract the aged sample
WR79.aged <- subset(WR79,!is.na(age))
str(WR79.aged)
## Extract the length sample
WR79.length <- subset(WR79,is.na(age))
str(WR79.length)
# }
Run the code above in your browser using DataLab