randomaccessfile

http://www.itarchitect.jp/beginners/-/46269-3.html
http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=8010&forum=12&7
http://www.javaroad.jp/java_io9.htm
http://www5c.biglobe.ne.jp/~ecb/java/15_31_02.html

> library(ape)
Warning message:
パッケージ 'ape' はバージョン 2.7.2 の R の下で造られました
> help(nj)
> s<-scan("outDist4gradation2.txt")
Read 28224 items
> m<-matrix(s,sqrt(length(s)),sqrt(length(s)))
> tr<-nj(m)
> plot(tr,"u")
> mpart1<-m[1:50,1:50]
> trpart1<-nj(mpart1)
> plot(trpart1,"u")
>