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
Guess the next number
SEIR-Modell
Text loop for X-axis in time series. Example 2002-2018 by quarters
PROJECT 1:- R AS A CALCULATOR
iris
trial
At matrix division
SimulacaoItaly-17-02-2021-linearizado
14-09-2020GRamLD
Sine approximation