Displaying 1 result from an estimated 1 matches for "nifavail".
Did you mean:
favail
2011 Nov 20
2
Adding two or more columns of a data frame for each row when NAs are present.
....numeric(Q20) + as.numeric(Q21) + as.numeric(Q24),
+ myCount =
as.numeric(!is.na(Q20))+as.numeric(!is.na(Q21))+as.numeric(!is.na(Q24))
+ )
+ x
Q20 Q21 Q22 Q23 Q24 mySum myCount
1 0 1 2 3 4 5 3
2 1 NA 2 3 4 NA 2
3 2 1 2 3 4 7 3
> NifAvail <- function(x) { if (is.na(x)) x<-0 else x <- x
############### Example 3
+ return(as.numeric(x))
+ } #end function
+ NifAvail(5)
[1] 5
+ NifAvail(NA)
[1] 0
> x <- transform( yy,
+ mySum = NifAvail(Q20) + NifAvail(Q22) + NifAvail(Q24),
############### Example 4
+ myCou...