Hello,

Please cc the list, R-Help is threaded and your doubt and answers might 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,

Rui Barradas

À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 <ablayengal...@gmail.com <mailto:ablayengal...@gmail.com>> a écrit :

    Thanks.

    Le sam. 30 janv. 2021 à 05:38, Rui Barradas <ruipbarra...@sapo.pt
    <mailto:ruipbarra...@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,

        Rui Barradas


        À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
         > deals with this case. Please help me with a code whether it's
        in python or
         > R can help me.
         >
         >
         >
         >     Sincerely.
         >
         >
         > ______________________________________________
         > R-help@r-project.org <mailto:R-help@r-project.org> mailing
        list -- To UNSUBSCRIBE and more, see
         > 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.
         >


______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
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.

Reply via email to