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