Commit 29e37491eec505bfd71e71507f50eb60abad4e46
1 parent
805474e1e6
Exists in
master
Don't use this code yet
updated formating
Showing
1 changed file
with
12 additions
and
12 deletions
Show diff stats
RAutoClDs.R
| ... | ... | @@ -356,14 +356,14 @@ 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 | - if(sum(is.na(RAWWORD[z,])) > 0){ | |
| 359 | + if(sum(is.na(RAWWORD[z,])) > 0){ | |
| 360 | 360 | naroww[z,1] <- as.integer(sum(is.na(RAWWORD[z,]))) |
| 361 | 361 | } |
| 362 | 362 | if(length(grep("NA",RAWWORD[z,])) > 0){ |
| 363 | - naroww[z,1] <- as.integer(length(grep("NA",RAWWORD[z,]))) + naroww[z,1] | |
| 364 | - } | |
| 365 | - z <- z + 1 | |
| 366 | - } | |
| 363 | + naroww[z,1] <- as.integer(length(grep("NA",RAWWORD[z,]))) + naroww[z,1] | |
| 364 | + } | |
| 365 | + z <- z + 1 | |
| 366 | + } | |
| 367 | 367 | |
| 368 | 368 | colnames(naroww) <- "ROW_NAs" |
| 369 | 369 | RAWWORD <- bind_cols(RAWWORD,naroww) |
| ... | ... | @@ -644,14 +644,14 @@ THEFT <- function(){ |
| 644 | 644 | z <- 1 |
| 645 | 645 | naroww <- as.data.frame(rep(0,dim(RAWWORD)[1]),stringsAsFactors = FALSE) |
| 646 | 646 | for(z in 1:dim(RAWWORD)[1]){ |
| 647 | - if(sum(is.na(RAWWORD[z,])) > 0){ | |
| 648 | - naroww[z,1] <- as.integer(sum(is.na(RAWWORD[z,]))) | |
| 649 | - } | |
| 647 | + if(sum(is.na(RAWWORD[z,])) > 0){ | |
| 648 | + naroww[z,1] <- as.integer(sum(is.na(RAWWORD[z,]))) | |
| 649 | + } | |
| 650 | 650 | if(length(grep("NA",RAWWORD[z,])) > 0){ |
| 651 | - naroww[z,1] <- as.integer(length(grep("NA",RAWWORD[z,]))) + naroww[z,1] | |
| 652 | - } | |
| 653 | - z <- z + 1 | |
| 654 | - } | |
| 651 | + naroww[z,1] <- as.integer(length(grep("NA",RAWWORD[z,]))) + naroww[z,1] | |
| 652 | + } | |
| 653 | + z <- z + 1 | |
| 654 | + } | |
| 655 | 655 | |
| 656 | 656 | colnames(naroww) <- "ROW_NAs" |
| 657 | 657 | RAWWORD <- bind_cols(RAWWORD,naroww) |