bugs in conditional ifelse

[memile]

y$ll<-apply (y,1, function(w) ifelse(sum(w=="d2")==2 || unlist(w) %in% c("d3","d4"),1,0))

didn't give the right result might have a bug

line 11 , 12, and 3

[pomchip]

Hi

Nope, there is no bug here: ifelse works as expected (see below for line 11). You probably want to use a if () {} else {} construct instead of ifelse which is a vectorized function to evaluate condition.

> w <- rep('d',12)
> w[9] <- 'd4'
> w
 [1] "d"  "d"  "d"  "d"  "d"  "d"  "d"  "d"  "d4" "d"  "d"  "d" 
> ifelse(sum(w=='d2')==2 || unlist(w) %in% c('d3', 'd4'), 1, 0)
[1] 0
> sum(w=='d2')==2
[1] FALSE
> unlist(w) %in% c('d3', 'd4')
 [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE
> sum(w=='d2')==2 || unlist(w) %in% c('d3', 'd4')
[1] FALSE

[stkrog]

Or, if you want to test if any of the elements of w are d3 or d4, use

ifelse(sum(w=='d2')==2 || any(unlist(w) %in% c('d3', 'd4')), 1, 0)

[memile]

I want to test if any 2 d2 in a row or any d3 or d4 in a row then 1 else 0

[stkrog]

Then my suggestion should work.

[memile]

let me try and i will keep you posted thank you

[memile]

Right now it doesnt work
here is my errors message

ichierSK$impacted<-apply(fichierSK,1,function(v) ifelse(sum(v=="D2")==2|unlist(v) %in% c("D3","D4")),1,0)
Error in FUN(newX[, i], ...) : unused arguments (1, 0)

[memile]

still doesn't work

reproductible

[FJCC]

The ifelse() function that was suggested by stkrog should be used inside of an apply() function as in your first post. What you have done is test the entire data frame y within the ifelse, which gives unexpected results. You want to test each row of the data frame.

[memile]

column ll , my code is still not recognizing the sum(w=='d2')==2

[FJCC]

I think we really need a Reproducible Example. What you provided before was just an image. To make a reproducible example, you need to post here the code to make example data and the code used to process that example data set. Making the example data can be done using datapasta or dput as explained under the Minimal Dataset heading of the post linked below. If you cannot do that, just use the data.frame() function and type out your data. The beginning of that process might look like this

y <- data.frame(x1 = c("d", "d1", "d2", "d3", "d4", "d", "d", "d", "dd", "d", "d", "d1"),
                x2 = c("d", ...More Typing))

Type out enough rows of data to illustrate your problem, then post that code, the processing code and the observed result. The reprex package will help you make an easily copied post on the forum.

FAQ: How to do a minimal reproducible example ( reprex ) for beginners

A minimal reproducible example consists of the following items: A minimal dataset, necessary to reproduce the issue The minimal runnable code necessary to reproduce the issue, which can be run on the given dataset, and including the necessary information on the used packages. Let's quickly go over each one of these with examples: Minimal Dataset (Sample Data) You need to provide a data frame that is small enough to be (reasonably) pasted on a post, but big enough to reproduce your issue. Let's say, as an example, that you are working with the iris data frame head(iris) #> Sepal.Length Sepal.Width Petal.Length Petal.Width Species #> 1 5.1 3.5 1.4 0.…