Commit f31e87a636fb44a213e3aaee2e978124b5d2a554
1 parent
891114fbe3
Exists in
master
Don't use this code yet
fixed error in catching row NAs
Showing
1 changed file
with
12 additions
and
2 deletions
Show diff stats
RAutoClDs.R
| ... | ... | @@ -356,7 +356,12 @@ THEFT <- function(){ |
| 356 | 356 | z <- 1 |
| 357 | 357 | naroww <- as.data.frame(rep(0,dim(RAWWORD)[1]),stringsAsFactors = FALSE) |
| 358 | 358 | for(z in 1:dim(RAWWORD)[1]){ |
| 359 | - naroww[z,1] <- as.integer(sum(is.na(RAWWORD[z,]))) | |
| 359 | + if(sum(is.na(RAWWORD[z,])) > 0){ | |
| 360 | + naroww[z,1] <- as.integer(sum(is.na(RAWWORD[z,]))) | |
| 361 | + } | |
| 362 | + if(length(grep("NA",RAWWORD[z,])) > 0){ | |
| 363 | + naroww[z,1] <- as.integer(length(grep("NA",RAWWORD[z,]))) + naroww[z,1] | |
| 364 | + } | |
| 360 | 365 | z <- z + 1 |
| 361 | 366 | } |
| 362 | 367 | |
| ... | ... | @@ -639,7 +644,12 @@ THEFT <- function(){ |
| 639 | 644 | z <- 1 |
| 640 | 645 | naroww <- as.data.frame(rep(0,dim(RAWWORD)[1]),stringsAsFactors = FALSE) |
| 641 | 646 | for(z in 1:dim(RAWWORD)[1]){ |
| 642 | - naroww[z,1] <- as.integer(sum(is.na(RAWWORD[z,]))) | |
| 647 | + if(sum(is.na(RAWWORD[z,])) > 0){ | |
| 648 | + naroww[z,1] <- as.integer(sum(is.na(RAWWORD[z,]))) | |
| 649 | + } | |
| 650 | + if(length(grep("NA",RAWWORD[z,])) > 0){ | |
| 651 | + naroww[z,1] <- as.integer(length(grep("NA",RAWWORD[z,]))) + naroww[z,1] | |
| 652 | + } | |
| 643 | 653 | z <- z + 1 |
| 644 | 654 | } |
| 645 | 655 |