| Rev. | ed56057f569a00172c163f91d7f5eab90ecaee64 |
|---|---|
| サイズ | 457 バイト |
| 日時 | 2006-12-10 23:58:13 |
| 作者 | iselllo |
| ログメッセージ | initial import |
Forkrm(list=ls())
x1<-read.table("eigenvect001",header=FALSE)
x1<-x1[ ,1]
x2<-read.table("eigenvect002",header=FALSE)
x2<-x2[ ,1]
x3<-read.table("eigenvect003",header=FALSE)
x3<-x3[ ,1]
x4<-read.table("eigenvect004",header=FALSE)
x4<-x4[ ,1]
x5<-read.table("eigenvect005",header=FALSE)
x5<-x5[ ,1]
t<-seq(1:length(x1))
eigval<-read.table("eigen-values",header=FALSE)
eigval<-eigval[ ,1]
xtest<-read.table("eigenvect3rd",header=FALSE)
xtest<-xtest[ ,1]