|||
m<-as.data.frame(matrix(NA,1,3))
names(m)<-c("x","y","z")
for (x in 11:28){
m[5000*(x-11)+1:5000,1]<-x
for (y in 3:12){
m[500*((x-11)*10+y-3)+1:500,2]<-y
for (z in 1:500){
m[(x-11)*5000+(y-3)*500+z,3]=z
}
}
}
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-10-19 22:07
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社