2016

Japan Studies 2ܸ쥳ѥγ


ƥ֥顼˥󥰤ˤĤ

ʺ塢ʳΥ٥ȤҲ𤷤ޤ

ݡȤˤĤ

2017/01/19䡦ݡȲĴII

2017/01/12䡦ݡȲĴI

2017/01/05ߥ˥ѥ

­ʤҤޤˤ¸Υǡγѡ

DzϤ

󥹥ȡѤΥǥ

#amazon(4254516029)

ƥȤ˴ؤŵŪʻɸȤνФ

DzϷ̤Ѥġ

ƥȽΥ٥ȥġ

Dzϡûñ̡ˢĹñ̲ϡˢʸ᷸ϢϷ̤δ
BCCWJξMeCabʲϴˡUniDicʼˢComainuǼǼ
̸ġMeCabʤɡʲϴˡUniDicʤɡʼ
Webޤᢪ
ComainuˢCaboChaˢChaki.net

2016/12/22齬ȯɽ

ʬѤΥߥ˥ѥ

ʥƥȥǡѰդΤȤơ

  1. ץ졼ƥȡƥȥǥgrepɽˡ
  2. ¤ƥȡʵۥѥפʤɡˡXMLȡ֤Ҥޤס
  3. DzϺѤߥƥȡBCCWJCHJʤɡˡǼʬǺˤϡWebޤᡦChaKi.net

ץ졼ƥȤΥߥ˥ѥ

ƥȥǥɽ

ѥ饨ǥΥ

ɽ饤֥Ʊ

ץƥ

ɽ

ɽ˴ؤ뻲ͻ

#amazon(4873114500) #amazon(4873113598)

¤ƥȤΥߥ˥ѥ

XMLȤҤޤ

Ҥޤ

ʸƥ֤ҤޤפˤĤ

ƥȥǡ֤ҤޤפѤǤ褦ˤ

2016/12/15齬ȯɽ

ʥߥ˥ѥ˸ơ

2016/12/08齬ȯɽ

2016/12/01齬ȯɽ

vlookupؿ

ʬǺäߥ˥ǡ١򸡺ͤФ褦ʤȤǤؿ

ñ٤ߤΤǤϤʤĤθ줬˶䤹Τޤɸ

2016/11/24ʵ٤ߡ˳

2016/11/17齬ȯɽ

(Х罸)

(­)

ɽΥ쥹ݥǥʬ

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)

ͥ󥯡Ҥбʬ

2016/11/10ٹ

2016/10/27齬ȯɽ

йԥ

: (="Х" OR ="Хå" OR ="Хƥ" OR
="Х" OR ="Х" OR ="Х" OR ="Х˥" OR
="Х饨ƥ" OR ="Хꥨ" OR ="Х塼" OR
="ӡʥ" OR ="ӥ" OR ="ӥ" OR ="١" OR 
="٥ƥ" OR ="٥ȥʥ" OR ="С"); 

2016/10/20齬ȯɽ

2016/10/13RȤäƤߤ롡Ҳ

ʹ֥η
å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) #ǥɥ

Ҳ

#amazon(4274065707)

2016/10/06ȥ

Х

ֵ齬
Ȥɸ
ܸ쥳ѥ򸦵利Ѥ뤳ȤǤ褦ˤʤ뤿Τ度識ȵѤȤˤĤ롣
Ȥγ
ܸ쥳ѥѤ뤿εѡŪɸˡˤĤƹֵ롣üԤϼºݤ˥ѥȤεѤ利ѤĴȯɽԤ
Ȥηײ
ºݤ˥ѥ利Ѥ齬ȯɽȤơħФΤλɸ饹󥰤ʬʬϤʤɤŪˡطǡ١利Ѥǡν理ߥ˥ѥ򼫺ˡʤɡѥ򸦵˳Ѥ뤿ˡˤĤƳؤ֡ ǽ˹ֵǥѥ利ˡϡ󻲲üԤˤ齬ȯɽǼȤ行
Ӥɾ
度ݡ礷ɾ롣
ؽ
ôμȡJapan Studies ˤ履ʤɤܸ쥳ѥδŪ利ˡȤˤĤƤȡ

ȥå   Խ ʬ Хåå ź ʣ ̾ѹ   ǽ   إ   ǽRSS
Last-modified: 2017-01-19 () 13:56:41