[R] My function and NA Values Problem

[Ismail SEZEN]

> On 27 Oct 2017, at 10:43, Engin YILMAZ <ispanyolcom at gmail.com> wrote:
> 
> Dear R Staff
> 
> My working file is in the annex. "g1.csv"
> I have only 2 columns. Rice and coke.
> I try to execute following(below) function, but do not work.
> Because "Coke" value has NA values.
> I try to add "na.rm=True" to the function but do not work
> How can I solve this problem with this function or another algorithm?
> (Note: I have normally 450 columns)
> 
> Sincerely
> Engin YILMAZ
> 
> 
> apply(g1, 2, function(c) sum(c==0))
> 
> Rice Coke
>   0   NA

A simple reproduciple example always works,

# create sample data
df <- data.frame(a = round(runif(100) * 10), b = round(runif(100) * 10))
df[which(df[,2] == 2),2] <- NA # add NA to second column

apply(df, 2, function(x) sum(x == 1, na.rm = TRUE))