sample

解析の練習で使うデータサンプル集　随時更新

sample1

症例 <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20)
性別 <- c("男性","男性","女性","男性","男性","女性","男性","男性","男性","男性","女性","女性","女性","女性","男性","女性","女性","女性","女性","男性")
治療 <- c("B","A","B","A","A","B","B","A","A","B","A","B","B","B","A","B","B","B","A","A")
治療前BP <- c(160,135,177,141,142,155,175,145,149,155,135,156,170,150,138,160,150,180,155,140)
治療後BP <- c(148,133,160,138,139,145,157,142,142,145,132,145,157,142,134,150,140,160,149,136)
BP変化量 <- c(12,2,17,3,3,10,18,3,7,10,3,11,13,8,4,10,10,20,6,4)
sample1 <- data.frame(症例,性別,治療,治療前BP,治療後BP,BP変化量 )

sample2
対応のある2群

ID <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
pre <- c(18, 8, 14, 15, 16, 13, 23, 20, 14, 20)
post <- c(23, 27, 15, 22, 15, 20, 20, 20, 18, 25)
sample2 <- data.frame(ID, pre, post)

sample3
独立した2群

グループ <- c("A","A","B","B","A","B","A","B","B","A","A","A","B","A","B","B","B","B","A","A")
ROMT <- c(18, 8, 23, 27, 14, 15, 15, 22, 15, 16, 13, 23, 20, 20, 20, 20, 18, 25, 14, 20)
sample3 <- data.frame(グループ, ROMT)

sample4
クロス表

sample4
判定 <- c(rep("非該当",30), rep("要支援", 25))
歩行 <- c(rep("可能", 20), rep("不可能", 10), rep("可能", 10), rep("不可能", 15))
sample4 <- data.frame(判定, 歩行)