#------------------------------------------------#
##新しいパッケージだけをインストールする
#------------------------------------------------#
mirror.url <- "http://cran.md.tsukuba.ac.jp/"

inst.package <- function(take=50, cell=20, decrease=0){
  for(i in 1:take){
    temp <- new.packages(repos=mirror.url)
    cat(length(temp), "\n")
    sub.temp <- sample(temp, cell, replace=F)
    try(install.packages(sub.temp, contriburl=contrib.url(mirror.url)))
    cell <- cell - decrease
  }
}  
inst.package(take=50, cell=20)
inst.package(take=75, cell=10)
inst.package(take=100, cell=5)


install.packages(new.packages(repos=mirror.url), contriburl=contrib.url(mirror.url))


#------------------------------------------------#
##パッケージを全部入手/インストールする
#------------------------------------------------#
mirror.url <- "http://cran.md.tsukuba.ac.jp/"
packs <- available.packages(contriburl = contrib.url(mirror.url))
install.packages(packs[,1],contriburl=contrib.url(mirror.url))




#------------------------------------------------#
##BioconductorとGgraphvizをインストールする
#------------------------------------------------#
source("http://bioconductor.org/biocLite.R") 
biocLite("Rgraphviz")


#------------------------------------------------#
##最新版のパッケージに更新する
#------------------------------------------------#
mirror.url <- "http://cran.md.tsukuba.ac.jp/"
update.packages(repos=mirror.url)