Z1 <- rchisq(100,5)
Z2 <- runif(100,min=0,max=2)
Z3 <- rexp(100,rate=2)
Z4 <- rpois(100,0.9)
v <- rnorm(100,mean=0,sd=1)
X1 <- 1.1+Z1
X2 <- 1.2+Z1+Z2
X3 <- 1.3+Z1+Z2+Z3
X4 <- 1.4+Z1+Z2+Z3+Z4
Y <- 2+X1+X2+X3+X4+v
Population.data <- data.frame(X1,X2,X3,X4,Y)
rowname <- sample(rownames(Population.data),20,replace=F)
Left.data <- Population.data[-rowname,]
Error in -rowname : 一进列运算符的参数不对