1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
> data <- matrix(1:50, ncol = 5)
> dimnames(data) <- list(paste(1:10, sep = ""), paste("v", 1:5, sep = ""))
> data[c(5, 12, 23, 35, 37, 38, 50)] <- NA
>
> data
v1 v2 v3 v4 v5
1 1 11 21 31 41
2 2 NA 22 32 42
3 3 13 NA 33 43
4 4 14 24 34 44
5 NA 15 25 NA 45
6 6 16 26 36 46
7 7 17 27 NA 47
8 8 18 28 NA 48
9 9 19 29 39 49
10 10 20 30 40 NA
> data <- data[,colSums((!is.na(data))/dim(data)[1])>0.75 ]
> data <- data[rowSums((is.na(data))/x)==0,]
> data
v1 v2 v3 v5
1 1 11 21 41
4 4 14 24 44
6 6 16 26 46
7 7 17 27 47
8 8 18 28 48
9 9 19 29 49
> |
Partager