01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
2009 : 01 02 03 04 05 06 07 08 09 10 11 12
2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
# deviance explained: 1 - [Residual Deviance] / [Null Deviance]
dev.exp <- function(x){ # xはglmの結果
list("Deviance explained" = 1 - x$deviance / x$null.deviance,
"Null Deviance" = x$null.deviance,
"Residual Deviance" = x$deviance)
}
要旨の抄録
刈り取り草地と放牧地に生育するScabiosa columbaria(マツムシソウ科)の12個体群で花期と遺伝的分化を調査
刈り取り地では放牧地よりも有意に早く開花
地理的に離れた地点間よりも土地利用間でのほうが分化が進んでいた
# 凡例のシンボルを表示
library(Hmisc)
show.pch()
# 21から25までは0,1,2,5,6と同じだが,凡例のときに塗りつぶしができる
plot(c(0:6,21:25), pch=c(0:6,21:25), cex=2)
legend("topleft", legend=c(0:6,21:25), pch=c(0:6,21:25), cex=2, pt.bg="blue")
2009 : 01 02 03 04 05 06 07 08 09 10 11 12
2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
最終更新時間: 2009-12-01 22:42