Cacher is the code snippet organizer for pro developers

dat <- transform(dat, Missing = as.integer(is.na(response)))

onther If stamtment:

cdata$TtlSessTime_HalfHour<-ifelse(cdata$TtlSessTime_Hour>0.5,1,0)

From http://stackoverflow.com/questions/20220156/create-a-new-binary-answer-column-in-my-data-based-on-na-values