From f31e87a636fb44a213e3aaee2e978124b5d2a554 Mon Sep 17 00:00:00 2001 From: Efrain Gonzalez Date: Wed, 21 Jun 2017 10:53:04 -0400 Subject: [PATCH] Don't use this code yet fixed error in catching row NAs --- RAutoClDs.R | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/RAutoClDs.R b/RAutoClDs.R index e9447b1..141a80f 100644 --- a/RAutoClDs.R +++ b/RAutoClDs.R @@ -356,7 +356,12 @@ THEFT <- function(){ z <- 1 naroww <- as.data.frame(rep(0,dim(RAWWORD)[1]),stringsAsFactors = FALSE) for(z in 1:dim(RAWWORD)[1]){ - 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 } @@ -639,7 +644,12 @@ THEFT <- function(){ z <- 1 naroww <- as.data.frame(rep(0,dim(RAWWORD)[1]),stringsAsFactors = FALSE) for(z in 1:dim(RAWWORD)[1]){ - 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 } -- 2.29.0