# NOT RUN {
dat <- data.frame(a = c(0,1,1,0,0,0,1,1,1,0,1,0,1,0,1,0,1,1,1,0))
dat2 <- data.frame(a = c(3, 4, 5, 6, 7, 8, 9))
dat3 <- data.frame(a = c('Y', 'N', 'Y', 'N'))
dat4 <- data.frame(a = c('Y', 'N', 'Y', 'N', NA))
isTargetYN(dat[, 1])
isTargetYN(dat2[, 1])
isTargetYN(dat3[, 1])
isTargetYN(dat4[, 1])
# }
Run the code above in your browser using DataLab