カイ2乗検定(chi-square test)
グラフのコードの出所:
グラフのスクリプト
imanishi$Digit <- factor(imanishi$Digit)graph <- ggplot(imanishi, aes(x=Digit, y=Frequency)) + geom_bar(stat='identity') + theme_bw()graph
カイ2乗検定の結果:
library(ggplot2)x <- seq(0, +180, 0.1)dens <- data.frame(x=x,