# data

set.seed(1234)

P <- vector()

DF <- as.data.frame(matrix(rep(NA, 100), nrow=10))

names(DF) <- c(paste("M",1:10, sep=""))

for(i in 1:10) {

DF[,i] <- rnorm(10, 10, 3)

}

DF <- as.data.frame(matrix(rep(NA, 100), nrow=10))

names(DF) <- c(paste("M",1:10, sep=""))

for(i in 1:10) {

DF[,i] <- rnorm(10, 10, 3)

}

## No comments:

## Post a Comment

Note: Only a member of this blog may post a comment.