[R] Better way than an ifelse statement?

[Henrique Dallazuanna]

This works too:

example$X3 <- example$X2 * 2 - 5

On Thu, Jan 14, 2010 at 8:55 AM, Henrique Dallazuanna <wwwhsd at gmail.com> wrote:
> Try this:
>
> example$X3 <-  sapply(example$X2, switch, -3, -1, 1, 3)
>
> On Thu, Jan 14, 2010 at 5:05 AM, Joshua Wiley <jwiley.psych at gmail.com> wrote:
>> Hello All,
>>
>> I am trying to create a column of weights based off of factor levels
>> from another column.  I am using the weights to calculate L scores.
>> Here is an example where the first column are scores, the second is my
>> "factor" and the third I want to be a column of weights.  I can do
>> what I want with an ifelse statement (see below), but I am wondering
>> if anyone knows of a cleaner way to do this?
>>
>> example <- data.frame(cbind(rnorm(4), rep(1:4, 1), c(0)))
>>
>> example$X3 <- ifelse(example$X2==1, -3, (
>> ifelse(example$X2==2, -1, (
>> ifelse(example$X2==3, 1, (
>> ifelse(example$X2==4, 3, NA))))))) ## this seems sloppy to me
>>
>>> example
>>           X1 X2 X3
>> 1  1.75308880  1 -3
>> 2 -0.49273616  2 -1
>> 3 -0.12446648  3  1
>> 4 -0.06417217  4  3
>>
>>
>> Thanks for your help,
>>
>> Joshua
>>
>> --
>> Joshua Wiley
>> Senior in Psychology
>> University of California, Riverside
>> http://www.joshuawiley.com/
>>
>> ______________________________________________
>> 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.
>>
>
>
>
> --
> Henrique Dallazuanna
> Curitiba-Paraná-Brasil
> 25° 25' 40" S 49° 16' 22" O
>



-- 
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O