Demonstration_Data_LONG_2015_2016.R

############################################################################
###
### Prepare 2015-2016 data
###
############################################################################

### Load packages

require(SGPdata)
require(data.table)


### Create data set

Demonstration_Data_LONG_2015_2016 <- sgpData_LONG[YEAR == "2015_2016"]


### Set key

setkey(Demonstration_Data_LONG_2015_2016, VALID_CASE, CONTENT_AREA, YEAR, ID)


### Save results

save(Demonstration_Data_LONG_2015_2016, file="Data/Demonstration_Data_LONG_2015_2016.Rdata")