Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
test
#┌───┬──┬──┐ #│ │あり│なし│ #├───┼──┼──┤ #│米国人│ 132│ 68│ #├───┼──┼──┤ #│日本人│ 168│ 132│ #└───┴──┴──┘ db <- data.frame(人 = c(rep("日本人",300),rep("米国人",200)), 肥満 = c(rep("あり",168),rep("なし",132),rep("あり",132),rep("なし",68))) db <- data.frame( # 1列目 人 = c(rep("日本人", 300), rep("米国人", 200)), # 2列目 肥満 = c(rep("あり", 168), rep("なし", 132), # 日本人 300人 rep("あり", 132), rep("なし", 68))) # 米国人 200人 db.tb <- table(db) # χ2検定 chisq.test(db.tb) # フィッシャーの正確な検定 fisher.test(db.tb)
run
|
edit
|
history
|
help
0
Hello, world!
5 # SUMMARY PART B
Die sim
Bootstrap for Gaussian Distribution
Read input in R console
03-08-2020-Derivada-Numerica
Exintegral-19-03-2021
Paired t-test_Unequal variances [Pipeline Networks]
Aula 16 agosto 2019
Chev-nodes