Displaying 1 result from an estimated 1 matches for "qsamp".
Did you mean:
samp
2001 Mar 20
3
help:too slow
here is a script I use to make overlapping cut of my input "col.dat"
file into a matrix:
#----------------------------------
col2mat<-function(x, sampsz=220, qsamp=2000) {
m<-matrix(nr=qsamp, nc=sampsz)
for(s in 1:qsamp){
print(s)
for(i in 1:sampsz){
m[s,i] <- x[s+i,1]
}
}
m
}
w<-read.table("col.dat", check.names=FALSE)
m<-col2mat(w)
#----------------------------------
the input file "col.dat" looks...