Rコードの条件付標準の計算

#母親が白人の場合とその他の人種の場合の新生児の体重の平均の差を示して下さい

library(readr)
bw1 <- read_csv("bw1.csv")
tapply(bw1$BWT,bw1$RACE==1,mean)
tapply(bw1$BWT,bw1$RACE==3,mean)

これであってますかね？１が白人で　３がその他の人種です。

行動規範の内容に同意します

回答1件

ベストアンサー

差を出すために人種毎の体重を出せばよいのでしょうか。

例示のコードでも同じ結果ですが、一般的には下記の書き方がスマートとされているかと。

R
1install.packages("dplyr")
2library(dplyr)
3
4bw1 %>% group_by(Race) %>% summarise(m = mean(BWT))

投稿2020/07/14 09:06

aokikenichi

総合スコア2218

king_

2020/07/14 10:51

追加でで質問していいですか？？ >tapply(bw1$BWT,bw1$RACE==1,mean) >tapply(bw1$BWT,bw1$RACE==2,mean) これらでt検定をしたいときのプログラムが全くわかりません t.test() のカッコの中には何を入れればいいのでしょうか？？

king_

2020/07/14 11:08

t.test(bw1$BWT[bw1$RACE==1],bw1$BWT[bw1$RACE==2]) Welch Two Sample t-test data: bw1$BWT[bw1$RACE == 1] and bw1$BWT[bw1$RACE == 2] t = 2.6373, df = 44.232, p-value = 0.01149 alternative hypothesis: true difference in means is not equal to 0 95 percent confidence interval: 90.61007 677.48448 sample estimates: mean of x mean of y 3103.740 2719.692

king_

2020/07/14 11:14

すみませんが、factor()を使ったとき以下のようなエラーが出ました。 > factor(bw1$RACE,bw1$BWT) `levels<-`(`*tmp*`, value = as.character(levels)) でエラー: factor level [8] is duplicated

aokikenichi

2020/07/14 21:58

t.test(bw1$BWT[bw1$RACE==1],bw1$BWT[bw1$RACE==2]) であっておりますが、使い方を全くご存知ないレベルで乱用しますと間違いの元ですので基本を学んでおいた方がよろしいかと

aokikenichi

2020/07/14 22:06

「これらでt検定をしたいときのプログラムが全くわかりません」「すみませんが、factor()を使ったとき以下のようなエラーが出ました。」元の質問と別の質問ですので、別途質問をあげてください僭越ながら申し上げますが、基礎をもう少し学ばれた方がよろしいと思います。ここら辺については書籍、ネット記事等豊富に丁寧な解説があります。また、teratailのマナーとして自分で調べられるところは調べここまで調べたがここがわからないこういうコードを書いたがこういうエラーがでて対処できない等自分で調べてもわからないことを質問するとなっています。関数一つ一つに質問していては先に進めませんよ

行動規範の内容に同意します