# [R] need help calculating the indicator function

Rui Barradas ru|pb@rr@d@@ @end|ng |rom @@po@pt
Sat Jan 30 12:50:07 CET 2021

```Hello,

be of interest to others.

With a vector Y, you want 0 in all Y != l and 1 in all Y == l?

n_l <- function(Y, l) as.integer(Y == l)

Hope this helps,

Às 11:26 de 30/01/21, Ablaye Ngalaba escreveu:
> Hello Rui,
> thank you for answering me.
> I compiled your code, it's true that it works but it still gives the
> value "3". What I want is to find either 1 if Y==l or 0 in case y
> differs from l.
>
>
> Good day
>
> Le sam. 30 janv. 2021 à 10:42, Ablaye Ngalaba <ablayengalaba using gmail.com
> <mailto:ablayengalaba using gmail.com>> a écrit :
>
>     Thanks.
>
>     Le sam. 30 janv. 2021 à 05:38, Rui Barradas <ruipbarradas using sapo.pt
>     <mailto:ruipbarradas using sapo.pt>> a écrit :
>
>         Hello,
>
>         Maybe this?
>
>         n_l <- function(Y, l, na.rm = FALSE) sum(Y == l, na.rm = na.rm)
>
>         set.seed(2020)
>         q <- 6
>         y <- sample(q, 10, TRUE)
>
>         l <- 4
>         n_l(y, l)
>         #[1] 3
>
>
>         Hope this helps,
>
>
>
>         Às 14:27 de 29/01/21, Ablaye Ngalaba escreveu:
>          > Hello,
>          > please, I need to calculate the indicator function as I
>         underlined in my
>          > attached pdf file but I can't define a code in programming
>         language that
>         in python or
>          > R can help me.
>          >
>          >
>          >
>          >     Sincerely.
>          >
>          >
>          > ______________________________________________
>          > R-help using r-project.org <mailto:R-help using r-project.org> mailing
>         list -- To UNSUBSCRIBE and more, see
>          > https://stat.ethz.ch/mailman/listinfo/r-help