Error in the line 10

[saurabh-iiitu]

varying = list(as.character(unique(dat[,1]))))[-1]
This line should be :
varying = list(as.character(unique(dat[,1][-1]))