From 29e37491eec505bfd71e71507f50eb60abad4e46 Mon Sep 17 00:00:00 2001 From: Efrain Gonzalez Date: Wed, 21 Jun 2017 11:55:53 -0400 Subject: [PATCH] Don't use this code yet updated formating --- RAutoClDs.R | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/RAutoClDs.R b/RAutoClDs.R index 141a80f..a2984b2 100644 --- a/RAutoClDs.R +++ b/RAutoClDs.R @@ -356,14 +356,14 @@ THEFT <- function(){ z <- 1 naroww <- as.data.frame(rep(0,dim(RAWWORD)[1]),stringsAsFactors = FALSE) for(z in 1:dim(RAWWORD)[1]){ - if(sum(is.na(RAWWORD[z,])) > 0){ + if(sum(is.na(RAWWORD[z,])) > 0){ naroww[z,1] <- as.integer(sum(is.na(RAWWORD[z,]))) } if(length(grep("NA",RAWWORD[z,])) > 0){ - naroww[z,1] <- as.integer(length(grep("NA",RAWWORD[z,]))) + naroww[z,1] - } - z <- z + 1 - } + naroww[z,1] <- as.integer(length(grep("NA",RAWWORD[z,]))) + naroww[z,1] + } + z <- z + 1 + } colnames(naroww) <- "ROW_NAs" RAWWORD <- bind_cols(RAWWORD,naroww) @@ -644,14 +644,14 @@ THEFT <- function(){ z <- 1 naroww <- as.data.frame(rep(0,dim(RAWWORD)[1]),stringsAsFactors = FALSE) for(z in 1:dim(RAWWORD)[1]){ - if(sum(is.na(RAWWORD[z,])) > 0){ - naroww[z,1] <- as.integer(sum(is.na(RAWWORD[z,]))) - } + if(sum(is.na(RAWWORD[z,])) > 0){ + naroww[z,1] <- as.integer(sum(is.na(RAWWORD[z,]))) + } if(length(grep("NA",RAWWORD[z,])) > 0){ - naroww[z,1] <- as.integer(length(grep("NA",RAWWORD[z,]))) + naroww[z,1] - } - z <- z + 1 - } + naroww[z,1] <- as.integer(length(grep("NA",RAWWORD[z,]))) + naroww[z,1] + } + z <- z + 1 + } colnames(naroww) <- "ROW_NAs" RAWWORD <- bind_cols(RAWWORD,naroww) -- 2.29.0