[R] Help with if statements

[Chuck Cleland]

On 6/9/2009 12:17 PM, Amit Patel wrote:
> Hi 
> I am trying to create a column in a data frame which gives a sigificane score from 0-7. It should read values from 7 different colums and add 1 to the counter if the value is <=0.05. I get an error message saying 
> 
> Error in if (ALLRESULTS[i, 16] <= 0.05) significance_count = significance_count +  : 
>   missing value where TRUE/FALSE needed
> 
> The script is included below
> 
> it works if i convert the NA values to zero but this is not appropriate as it includes the zero as significant. 
> 
> ANY SUGGESTIONS

significance.count <- rowSums(ALLRESULTS[,16:22] <= .05, na.rm=TRUE)

?rowSums

> #SCRIPT STARTS
> for (i in 1:length(ALLRESULTS[,1])) {
> significance_count = 0
> 
> if (ALLRESULTS[i,16] <= 0.05 )  significance_count = significance_count +1 else significance_count = significance_count
> if (ALLRESULTS[i,17] <= 0.05 )  significance_count = significance_count +1 else significance_count = significance_count
> if (ALLRESULTS[i,18] <= 0.05 )  significance_count = significance_count +1 else significance_count = significance_count
> if (ALLRESULTS[i,19] <= 0.05 )  significance_count = significance_count +1 else significance_count = significance_count
> if (ALLRESULTS[i,20] <= 0.05 )  significance_count = significance_count +1 else significance_count = significance_count
> if (ALLRESULTS[i,21] <= 0.05 )  significance_count = significance_count +1 else significance_count = significance_count
> if (ALLRESULTS[i,22] <= 0.05 )  significance_count = significance_count +1 else significance_count = significance_count
> 
> ALLRESULTS[i,23] <- significance_count}
> 
> 
> 
> 
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code. 

-- 
Chuck Cleland, Ph.D.
NDRI, Inc. (www.ndri.org)
71 West 23rd Street, 8th floor
New York, NY 10010
tel: (212) 845-4495 (Tu, Th)
tel: (732) 512-0171 (M, W, F)
fax: (917) 438-0894