トップ
新規
一覧
単語検索
最終更新
ヘルプ
ログイン
アールメカブ
R_sample
をテンプレートにして作成
開始行:
[[Rの備忘録]]
被験者が二つの質問(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", ...
colnames(dat.A) <- c("E1W2", "Sex", "Q")
dat.B <- dat[!(dat$id %in% my.sample), c("E1W2", "Sex"...
colnames(dat.B) <- c("E1W2", "Sex", "Q")
dat.all <- rbind(dat.A, dat.B)
これもなぁ。。。
x <- data.frame(id = 1:4, Sex = c("F","M","F","M"))
x.tf <- sample(c(T,F), nrow(x)/2)
x.A <- subset(x, x.tf)
x.B <- subset(x, !x.tf)
x.ALL <- rbind(x.A, x.B)
終了行:
[[Rの備忘録]]
被験者が二つの質問(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", ...
colnames(dat.A) <- c("E1W2", "Sex", "Q")
dat.B <- dat[!(dat$id %in% my.sample), c("E1W2", "Sex"...
colnames(dat.B) <- c("E1W2", "Sex", "Q")
dat.all <- rbind(dat.A, dat.B)
これもなぁ。。。
x <- data.frame(id = 1:4, Sex = c("F","M","F","M"))
x.tf <- sample(c(T,F), nrow(x)/2)
x.A <- subset(x, x.tf)
x.B <- subset(x, !x.tf)
x.ALL <- rbind(x.A, x.B)
ページ名:
