Displaying 1 result from an estimated 1 matches for "mcolasamsis".
2005 May 19
0
Random/systematic selection of rows in a matrix
...on the thinned process - 20 equidistant transects parallel to x axis
#First transect randomly chosen among first 27 rows in process
t=0
t<-(1+as.integer(27*runif(1)))
transis<-c(t,t+27,t+54,t+81,t+108,t+135,t+162,t+189,t+216,t+243,t+270,t+297,t+324,t+351,t+378,t+405,t+432,t+459,t+486,t+513)
mcolasamsis<-mat.or.vec(20,180)
for(l in 1:20){
mcolasamsis[l,]<-mcola[,transis[l]]
}
file2.out<-paste("mcolasamsis7",i,"txt",sep=".")
write(mcolasamsis,file2.out,ncol=ncol(mcolasamsis))
}
}