ʥƥȥǡѰդΤȤơ
ƥȤΥ٥ | ġ | ɬפʵ |
---|---|---|
ץ졼ƥ | ƥȥǥ | grepɽ |
¤ƥ | Ҥޤꢪ Excel | XMLޡåפδáԥܥåȥơ֥ |
DzϺѤߥƥ | UniDic+MeCabǼChaKi | DzϤμChaKiλȤ |
Υ֥ѥͭθäФ뤿λɸȤ
yahari<-matrix(c( 1,2,0,9,4,0, 20,12,1,30,23,0, 31,54,13,17,31,2 ) ,3,6,byrow = T) colnames(yahari)<-c("","","ʹ","֥","η","") rownames(yahari)<-c("å","åѥ","ϥ") #MASSѥåɤ߹ library(MASS) (yahari.ca<-corresp(yahari,nf=3)) biplot(yahari.ca) #ͭ ͭ<-yahari.ca$cor^2 round(ͭ,3) #ѴͿΨ round(100*ͭ/sum(ͭ),2)
ͥҤбʬ
setwd("C:/Users/桼̾/Desktop") x <- read.table("bccwjcore_adj_register.txt", header=T, row.names=1, sep=",", fileEncoding="UTF-8") #MASSѥåɤ߹ library(MASS) (x.ca<-corresp(x, nf=6)) #nf=Ԥοξۤͤ餵ˣ biplot(x.ca)
ʹ | ֥ | η | ||||
å | 1 | 2 | 9 | 4 | ||
åѥ | 20 | 12 | 1 | 30 | 23 | |
ϥ | 31 | 54 | 13 | 17 | 31 | 2 |
data <- matrix(c( 9,4,30,23,17,31), ncol=2, byrow=T) chisq.test(data)
̵H0ˡĤΥ쥸ǡ֤Ϥλ٤ˤϺʤ
η̡p<0.05Ǥ0.05(= 5%)H0ϴѤ ĤΥ쥸Ǻʥ쥸ȴطʤΤ˶ʤǽ5%ʲ
yahari<-matrix(c( 1,2,0,9,4,0, 20,12,1,30,23,0, 31,54,13,17,31,2 ) ,3,6,byrow = T) colnames(yahari)<-c("","","ʹ","֥","η","") rownames(yahari)<-c("å","åѥ","ϥ") yahari <- t(yahari) #Ԥؤ yahari.d<-dist(yahari) #Υη yahari.d result <- hclust(yahari.d, method="ward.D") #wordˡǥ饹ʬ plot(result,hang=-1) #ǥɥ#amazon(4274065707)