【Rで統計学#9】相関係数の検定と独立性の検定

install.packages("dplyr") # 一度もインストールしていない場合
install.packages("ggplot2") # 一度もインストールしていない場合
library(dplyr)
library(ggplot2)

set.seed(100)
数学 <- rnorm(40, 50, 20) %>% round()
英語 <- 数学-20 + rnorm(40, 5, 30) %>% round()
data <- data.frame(数学, 英語)%>%
filter(0<数学&数学<100) %>%
filter(0<英語&英語<100)
data %>% head()

data %>%
  ggplot(aes(数学, 英語)) +
  geom_point() +
  theme_classic(base_family = "HiraKakuPro-W3") + 
  theme(text=element_text(size=40))+
  labs(title="数学と英語の関係") +
  lims(x=c(0,100), y=c(0,100))

cor.test(data$数学, data$英語)

set.seed(100)
N <- 30
コロナ <- c("未感染", "感染")
住居 <- c(rep("東京", N),rep("大阪", N),rep("沖縄", N))
コロナ <- c(コロナ[rbinom(N,1,0.7)+1], コロナ[rbinom(N,1,0.5)+1], コロナ[rbinom(N,1,0.5)+1])
data2 <- data.frame(コロナ, 住居)
data2 %>% head()

table(data2$コロナ, data2$住居)

chisq.test(table(data2$コロナ, data2$住居))