被験者が二つの質問に解答しているとして、ある被験者からは質問Q1を抽出し、残りの被験者からは質問Q2を、ランダムに取り出したいとする。
もっと簡単な方法があった気がするんだが。。。
データからランダムに被験者を取り出しやすいようにIDを設定 dat$id <- 1: nrow(dat) my.sample <- sample(1:nrow(dat), nrow(dat)/2) dat.A <- dat[dat$id %in% my.sample, c("E1W2", "Sex", "Q1")] colnames(dat.A) <- c("E1W2", "Sex", "Q") dat.B <- dat[!(dat$id %in% my.sample), c("E1W2", "Sex", "Q2")] colnames(dat.B) <- c("E1W2", "Sex", "Q") dat.all <- rbind(dat.A, dat.B)