Sem Spirit

Preparing the data in R