1 2 3 4 5 6 7 8 9 10
| Pop <- data.frame(Ident=1:1000) # 1
Pop$C1 <- runif(1000) # 2
Pop$C1 <- ifelse(Pop$C1<0.25,1,ifelse(Pop$C1<0.50,2,ifelse(Pop$C1<0.75,3,4))) #3
Pop$C2 <- rnorm(1000) #2
Pop$C2 <- ifelse(Pop$C2<0.25,1,ifelse(Pop$C2<0.50,2,ifelse(Pop$C2<0.75,3,4))) #3
Pop$C3 <- rnorm(1000) #2
Pop$C3 <- ifelse(Pop$C3<0.25,1,ifelse(Pop$C3<0.50,2,ifelse(Pop$C3<0.75,3,4))) #3
Pop$C4 <- rnorm(1000) #2
Pop$C4 <- ifelse(Pop$C4<0.25,1,ifelse(Pop$C4<0.50,2,ifelse(Pop$C4<0.75,3,4))) #3
Ech <- Pop[sample(1:1000,20),] #4 |
Partager