# R the condition has length > 1 and only the first element will be used

316 views

## Problem :

I am very new to r programming. I have the array and I want to implement the below method:

``````x<-function(b){
if (b>0){
b/sum(b)
}
else 1
}
``````

This method is written to check if there is any value which is larger than the 0 and if it says yes then it needs to divide each element by a sum of a total.

Or else it should just be 1.

But I face below warning message:

`“Warning message: r the condition has length > 1 and only the first element will be used”.`
`How can I fix the above error message?`

## Solution :

``I had also faced such kind of errors when I began programming. I can see your if` statement is currently not vectorized. To make it vectorized if statements you must use the `ifelse`. In your method you can write it as shown below:`
``````x <- function(b){
if (any(b>0)){
b/sum(b)
}
else 1
}``````

or you can try the short vectorised version as shown below

`ifelse(b > 0, b/sum(b), 1)`

It is upto you which way you want to use, as your first function gives you the output vector of length 1 (in the else part) and the `ifelse` gives you the output vector of length which is equal to length of `b`.

## Related questions

222 views
Problem: Hello all, I am a noob to this java programming. I started learning it a few days back. Re-type the code and fix any errors. the code should convert non-positive numbers to 1. As long as I understand this problem is sying to convert a negative number to ... but that&rsquo;s not enough for my case. If your understanding is up to this level, please pull me up from the grave LOL. Thanks.
1 vote
4 views
Problem: I want to know the number of the last row : data_ranking <- reduced_data[order(reduced_data\$outcome,reduced_data\$hospital,na.last=NA),] nobs <- nrow(data_ranking) gives me different results of data_ranking <- reduced_data[order(reduced_data\$outcome,reduced_data\$hospital,na.last=NA), ... why is that. It seems that nrowgives me the answer I'm looking for, but I don't understand why.
3 views
Problem: i don&rsquo;t understand this problem. please help me? names' attribute [2] must be the same length as the vector [1]
1 vote
1.2K views
Problem: I have limited knowledge of R and ggplot. I have recently written a function and trying to run the function as shown below: ggplot(datfr, aes(x = dat1[1:951,], y = dat2[1:951,])) + geom_point() After executing above function I am facing below error: Don't ... and when I try to use nrow on my two datasets it again returns the same number of rows. How can I fix above ggplot related error.
4 views
1 vote
4 views
Problem: I am very new to R, and I could not find a simple example online of how to remove the last n characters from every element of a vector (array?) I come from a Java background, so what I would like to do is to iterate over every element of a\$data and remove the last 3 characters from every element. How would you go about it?
4 views