교차분석과 카이제곱 검정

setwd("C:/Rwork/")
data <- read.csv("dataset2/cleanDescriptive.csv", header = TRUE)
head(data)
x <- data$level2
y <- data$pass2

result <- data.frame(Level = x, Pass = y)
dim(result)

table(result)
library(gmodels)
library(ggplot2)

CrossTable(x = diamonds$color, y = diamonds$cut)

x <- data$level2
y <- data$pass2
CrossTable(x, y)


CrossTable(x = diamonds$cut, 
           y = diamonds$color, chisq = TRUE)


data <- textConnection(
  "스포츠음료종류 관측도수
 1 41
 2 30
 3 51
 4 71
 5 61
 ")
x <- read.table(data, header = T)
x
chisq.test(x$관측도수)

setwd("C:/Rwork/ ")
data <- read.csv("dataset2/cleanDescriptive.csv", header = TRUE)
x <- data$level2
y <- data$pass2
CrossTable(x, y, chisq = TRUE)


setwd("C:/Rwork/ ")
data <- read.csv("dataset2/homogenity.csv")
head(data)
data <- subset(data, !is.na(survey), c(method, survey))
data$method2[data$method == 1] <- "방법1"
data$method2[data$method == 2] <- "방법2"
data$method2[data$method == 3] <- "방법3"
data$survey2[data$survey == 1] <- "1.매우만족"
data$survey2[data$survey == 2] <- "2.만족"
data$survey2[data$survey == 3] <- "3.보통"
data$survey2[data$survey == 4] <- "4.불만족"
data$survey2[data$survey == 5] <- "5.매우불만족"

table(data$method2, data$survey2)

chisq.test(data$method2, data$survey2)