#author("2019-08-21T01:35:19+00:00","default:ogiwiki","ogiwiki")
#author("2019-08-21T01:37:26+00:00","default:ogiwiki","ogiwiki")
**R、サネ、テ、ニ、゚、隍ヲ [#b0acc319]

***ヘヘムエトカュ、ホス猜 [#ufca38e7]

-[[R>https://ja.wikipedia.org/wiki/R%E8%A8%80%E8%AA%9E]]、ネ、マ
--R、ホ・タ・ヲ・・。シ・ノ、ネ・、・・ケ・ネ。シ・ https://cran.ism.ac.jp/bin/windows/base/
--R Studio、ホ・タ・ヲ・・。シ・ノ、ネ・、・・ケ・ネ。シ・ ((freeネヌ、ヌススハャ)) https://www.rstudio.com/products/rstudio/download/

***R、サネ、テ、ニ、゚、 [#bc63a137]
-サヘツァア鮟サ
-ハムソ、リ、ホツ衄

-サイケヘ。ァhttp://lang.sist.chukyo-u.ac.jp/classes/R/Rintro-01.html



***ホスャヘム・ヌ。シ・ソ、ホス猜 [#vfc57b54]

-テ貮シクタ、ヌBCCWJ・ウ・「、ホクラテチヌ。ヨフト・、遙ラ、ク。コ。「クキチハフ、ヒスクキラ

| |サィサ|スタメ|ソキハケ|・ヨ・・ー|テホキテヅ|ヌス|
|・茹テ・ム|1|2||9|4||
|・茹テ・ム・黥20|12|1|30|23||
|・茹マ・黥31|54|13|17|31|2|

***ニネホゥタュ、ホク。ト(ヲヨニセ雕。ト) [#v9c9fa37]
-・ヨ・・ー、ネテホキテヅ、ヌ。ヨ、荀マ、遙ラ。ヨ、荀テ、ム、遙ラ。ヨ、荀テ、ム。ラ、ホサネ、、ハ、ヒヘューユ、ハコケ、マ、「、、ォ

 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%ーハイシ。ヒ

-サイケヘ。ァhttps://bellcurve.jp/statistics/course/9496.html


***・ッ・鬣ケ・ソ。シハャタマ [#lceadb8d]
--。ヨ、荀マ、遙ラ。ヨ、荀テ、ム、遙ラ。ヨ、荀テ、ム。ラ、ホサネヘム、ォ、鮑ォ、ソ・・ク・ケ・ソ。シエヨ、ホオホ・。ハ、ノ、ホ・・ク・ケ・ソ。シニアサホ、ャサ、ニ、、、、ォ。ヒ

 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) #・ヌ・・ノ・・ー・鬣爨ノチ、ッ
 

-サイケヘ。ァhttps://www1.doshisha.ac.jp/~mjin/R/Chap_28/28.html


***・ッ・・ケスクキラノス、ォ、鬢ホ・ウ・・ケ・ン・・ヌ・・ケハャタマ [#pc585583]
-。ヨ、荀マ、遙ラ。ヨ、荀テ、ム、遙ラ。ヨ、荀テ、ム。ラ、ネ・・ク・ケ・ソ。シ

 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)


サイケヘ
-https://res.pesco.co.jp/analysis/statistics/corresponding/
-」メ、ネツミアハャタマ https://www1.doshisha.ac.jp/~mjin/R/Chap_26/26.html

・ネ・テ・ラ   ハヤスク コケハャ ・ミ・テ・ッ・「・テ・ラ ナコノユ ハ」タス フセチーハムケケ ・・。シ・ノ   ソキオャ ーヘ ク。コ コヌスェケケソキ   ・リ・・ラ   コヌスェケケソキ、ホRSS