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