Hi
Or maybe without ifelse
xy$w <- with(xy, x * ((y != "A") + 2) * 5)
Cheers
Petr
> -Original Message-
> From: R-help On Behalf Of Dénes Tóth
> Sent: Thursday, July 26, 2018 10:10 PM
> To: JEFFERY REICHMAN ; r-help@r-project.org
> Subject: Re: [R] Cre
Inline.
>
>
> On 07/26/2018 08:58 PM, JEFFERY REICHMAN wrote:
>
>> Given something like ...
>>
>> x <- c(3,2,4,3,5,4,3,2,4,5)
>> y <- c("A","B","B","A","A","A","A","B","A","B")
>> xy <- data.frame(x,y)
>> xy$w <- ifelse(xy$y=="A",xy$w[,x]*10,xy$w[,x]*15 )
>>
>
> You should learn the basics about
On 07/26/2018 08:58 PM, JEFFERY REICHMAN wrote:
Given something like ...
x <- c(3,2,4,3,5,4,3,2,4,5)
y <- c("A","B","B","A","A","A","A","B","A","B")
xy <- data.frame(x,y)
xy$w <- ifelse(xy$y=="A",xy$w[,x]*10,xy$w[,x]*15 )
You should learn the basics about how to extract or replace part of
Given something like ...
x <- c(3,2,4,3,5,4,3,2,4,5)
y <- c("A","B","B","A","A","A","A","B","A","B")
xy <- data.frame(x,y)
xy$w <- ifelse(xy$y=="A",xy$w[,x]*10,xy$w[,x]*15 )
want to see
x y w
1 3 A 30
2 2 B 30
3 4 B 60
4 3 A 30
5 5 A 50
6 4 A 40
7 3 A 30
8 2 B 30
9 4 A 40
Given
x <- c(3,2,4,3,5,4,3,2,4,5)
y <- c("A","B","B","A","A","A","A","B","A","B")
xy <- cbind(x,y)
and am wanting to create a new variable "w" where if y=="A" then w==x*10 else
w==x*15 such that I end up with a dataframe
x y w
[1,] 3 "A" 30
[2,] 2 "B" 30
[3,] 4 "B" 60
[4,] 3 "A"
5 matches
Mail list logo