2017

Japan Studies 2ѥܸ


ƥ֥顼˥󥰤ˤĤ

ݡȤˤĤ

2018/1/18ߥ˥ѥ(2) ݡȤˤĤ

ܸΥƥȤ˴ؤŵŪʻɸȤνФ

2018/1/11ȯɽ 7 / ߥ˥ѥ

ʬѤΥߥ˥ѥ

ʥƥȥǡѰդΤȤơ

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

ץ졼ƥȤΥߥ˥ѥ

¤ƥȤΥߥ˥ѥ

XMLȤҤޤ

Ҥޤ

ʸƥ֤ҤޤפˤĤ

ƥȥǡ֤ҤޤפѤǤ褦ˤ

2017/12/21ȯɽ 6 / ʬʬ

ʬʬϤβ

ѥŪˡ˴ؤ뻲ͻ

2017/12/14ȯɽ 5

2017/12/7ȯɽ 4

2017/11/30ȯɽ 3

ħ

Υ֥ѥͭθäФ뤿λɸȤ

ʥߥ˥ѥ˸ơ

åסZipfˤˡ§

ħ

2017/11/16ȯɽ 2

2017/11/9ȯɽ 1

2017/11/2бʬϡʥ쥹ݥǥʬϡ

­Ĥɽ

бʬ

ɽΥ쥹ݥǥʬ

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)

2017/10/26ƥȥǡȥǥ

ƥȥǥɽ

ѥ饨ǥΥ

ƥȥǥδ

ɽ

ɽ˴ؤ뻲ͻ

#amazon(4873114500) #amazon(4873113598)

2017/10/19RȤäƤߤ2

ȯɽ

ޤǤ

2017/10/12Ǽˤ븡Ƚ 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) #ǥɥ
#amazon(4274065707)

2017/10/05ȥ

Х

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

ȥå   Խ ʬ Хåå ź ʣ ̾ѹ   ǽ   إ   ǽRSS
Last-modified: 2018-01-18 () 14:15:03