# NOT RUN {
# example data were created as follows:
data(recordTableIndividualSample)
recordTableIndividualSample_season2 <- recordTableIndividualSample[1:10, ]
recordTableIndividualSample_season2$DateTimeOriginal <- gsub("2009", "2010",
recordTableIndividualSample_season2$DateTimeOriginal)
recordTableIndividualSampleMultiSeason <- rbind(recordTableIndividualSample,
recordTableIndividualSample_season2)
# }
Run the code above in your browser using DataLab