Displaying 1 result from an estimated 1 matches for "rowx".
Did you mean:
rows
2008 Mar 31
1
APPLY as alternate to FOR loop?
...######################################################
## test dataframe #######x1 <- c(1,NA,NA,NA,NA,1,2,2)x2 <- c(1,NA,NA,NA,NA,1,2,1)x3 <- c(1,NA,1,1,1,1,1,5)x4 <- c(1,NA,NA,NA,NA,NA,NA,5)x <- rbind(x1,x2,x3,x4)test <- rowSums(is.na(x)) ## count numer of NA's in rowx <- cbind(x, test) ## add row NA count to datax <- data.frame(x) ## make dataframe
# FOR LOOP to apply across all rows of dataframe -- for(i in 1:nrow(x)) {if(x[i,9] > 4) {x[i,1:7] <- NA} else { x[i,1:7] <- x[i,1:7]i = i+1}}
#######################...