RȤäƤߤ

ѥǡν

ʹ֥η
å1294
åѥ201213023
ϥ31541317312

Ωθ(踡)

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) #ǥɥ

ɽΥ쥹ݥǥʬ

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)


*1 freeǤǽʬ

ȥå   Խ ʬ Хåå ź ʣ ̾ѹ   ǽ   إ   ǽRSS
Last-modified: 2019-06-25 () 13:31:58