while (c>=0.5) {
i<-i+1
c<-c*n[i]/n[1]
}
for (i in seq(from=0.1,to=2.9,by=0.2)){assign(paste("swc_", i, sep = ""), subset(swc_1, swc_1$z == i))
}
while (c>=0.5) {
i<-i+1
c<-c*n[i]/n[1]
}
for (i in seq(from=0.1,to=2.9,by=0.2)){assign(paste("swc_", i, sep = ""), subset(swc_1, swc_1$z == i))
}