# First example: generate some raw data
data <- data.frame(
i=i <- rep(1, len = 100),
t=t<-sample(c('2008', '2012'), 100, replace=TRUE),
p=p <- sample(LETTERS[1:3], 100, replace=TRUE),
j=j <- sample(letters[1:13], 100, replace=TRUE) )
data$ide <-gsr(data$p,
c('A', 'B'),
c('Left', 'Centre'))
print(data)Run the code above in your browser using DataLab