R、サネ、テ、ニ、゚、隍ヲ

ヘヘムエトカュ、ホス猜

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-08-21 (ソ) 10:37:26