Re: [R] if one of 4 conditions is not satisfied

From: Marc Schwartz <marc_schwartz_at_comcast.net>
Date: Tue, 01 Jul 2008 11:07:58 -0500

on 07/01/2008 07:40 AM mysimbaa wrote:
> I'm trying to do realize the following:
> I have 4 condtions.
> If all conditions are satisfied I will paste("PASS")
> If any of these is not satisfied I will paste("FAIL"). But I have to paste
> the corresponding failure.
>
> ifelse is a good solution but for a 2 conditions. Maybe switch or something
> like this.
>
> Does anyone have an idea how to do?
>
> Thanks in advance.
> Adel

An easy way would be to have your condition results, which are presumably TRUE/FALSE, in a vector such as:

   Cond <- c(TRUE, FALSE, FALSE, TRUE)

Then you could use all() to check to see if they are 'all' TRUE:

   > all(Cond)
   [1] FALSE Then use which() to get the index of the FALSE elements:

   > which(!Cond)
   [1] 2 3

If you have your test labels in a character vector, such as:

   Cond.Vec <- c("Cond 1", "Cond 2", "Cond 3", "Cond 4")

You could then use:

if (all(Cond)) {

   Out <- "PASS"
} else {

   Out <- paste("FAIL:", paste(Cond.Vec[which(!Cond)],

                         collapse = " & "))
}

 > Out
[1] "FAIL: Cond 2 & Cond 3"

See ?all and ?which

HTH, Marc Schwartz



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. Received on Tue 01 Jul 2008 - 16:46:16 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Tue 01 Jul 2008 - 19:31:34 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.

list of date sections of archive