error in split_by_type.R
lines 156-157 need to be changed to:
mdata$data.type<-ifelse(mdata$id=="" & mdata$dck == 700, "drift", mdata$data.type)
mdata$ptx<-ifelse(mdata$id=="" & mdata$dck == 700, 2, mdata$ptx)missing IDS have been put equal to "" earlier so checking for NA fails here