Using if, else statements

[Robin Williams-2]

Hi all,

Again I have searched the net and so on, without finding an answer to this
surely simple problem. A short bit of code would be appreciated.

  I have a object named `data' with the following column headings.

Date, maxitemp, minitemp, admissions, d.o.w.

Where d.o.w. is day of the week, written "Sun" "Mon" etc.

  I just need to scale the Monday admissions by 0.91, the Saturday
admissions by 1.21 and the Sunday admissions by 1.22. So basically what I
want is:

If d.o.w. == "Sat"

Multiply Sat admissions by 1.21.

(Now do I need an else statement here, or can I just do another)

If d.o.w. == "Sun"

Multiply "Sun" admissions by 1.22

(and finally)

If d.o.w. == "Mon"

Multiply Monday admissions by 0.91.

Else do nothing.

  I assume in my code I need to specify that I am using the data.frame
`data', so do I need to write things like

If(data[d.o.w.]=="Mon")  

  I would then like to round the new admissions to integers (I assume I just
use round(data$admissions)), and output the new data to another csv file.

  I could of course do this in excel but I will need to extend this type of
idea in the future so I would like to master it in R.

Many thanks for any help/code.

Robin Williams.  


        [[alternative HTML version deleted]]

______________________________________________
R-help@... 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.

[jholtman]

You would have something that looks like this:

if (data$d.o.w == "Sat") data$admission <- round(data$admission * 1.21)
if (data$d.o.w == "Sun") .......



On Wed, Jul 23, 2008 at 11:44 AM, Robin Williams <robster3@...> wrote:

> Hi all,
>
> Again I have searched the net and so on, without finding an answer to this
> surely simple problem. A short bit of code would be appreciated.
>
>  I have a object named `data' with the following column headings.
>
> Date, maxitemp, minitemp, admissions, d.o.w.
>
> Where d.o.w. is day of the week, written "Sun" "Mon" etc.
>
>  I just need to scale the Monday admissions by 0.91, the Saturday
> admissions by 1.21 and the Sunday admissions by 1.22. So basically what I
> want is:
>
> If d.o.w. == "Sat"
>
> Multiply Sat admissions by 1.21.
>
> (Now do I need an else statement here, or can I just do another)
>
> If d.o.w. == "Sun"
>
> Multiply "Sun" admissions by 1.22
>
> (and finally)
>
> If d.o.w. == "Mon"
>
> Multiply Monday admissions by 0.91.
>
> Else do nothing.
>
>  I assume in my code I need to specify that I am using the data.frame
> `data', so do I need to write things like
>
> If(data[d.o.w.]=="Mon")
>
>  I would then like to round the new admissions to integers (I assume I just
> use round(data$admissions)), and output the new data to another csv file.
>
>  I could of course do this in excel but I will need to extend this type of
> idea in the future so I would like to master it in R.
>
> Many thanks for any help/code.
>
> Robin Williams.
>
>
>        [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@... 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.
>

--
Jim Holtman
Cincinnati, OH
[phone]

What is the problem you are trying to solve?

______________________________________________
R-help@... 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.

[jholtman]

My fingers slipped on the keyboard.  Here what they intended to write.
 This sets up a list of the data and the matches on a subset for
processing

days <- list(list("Sat", 1.21), list("Sun", 1.22), list("Mon", 0.91))
for (i in days){
    .subset <- data$d.o.w == i[[1]]   # subset of data that matches
    data$d.o.w[.subset] <- round(data$d.o.w[.subset] * i[[2]])
}
write.csv(data, file='xyz')


On Wed, Jul 23, 2008 at 11:44 AM, Robin Williams <robster3@...> wrote:

> Hi all,
>
> Again I have searched the net and so on, without finding an answer to this
> surely simple problem. A short bit of code would be appreciated.
>
>  I have a object named `data' with the following column headings.
>
> Date, maxitemp, minitemp, admissions, d.o.w.
>
> Where d.o.w. is day of the week, written "Sun" "Mon" etc.
>
>  I just need to scale the Monday admissions by 0.91, the Saturday
> admissions by 1.21 and the Sunday admissions by 1.22. So basically what I
> want is:
>
> If d.o.w. == "Sat"
>
> Multiply Sat admissions by 1.21.
>
> (Now do I need an else statement here, or can I just do another)
>
> If d.o.w. == "Sun"
>
> Multiply "Sun" admissions by 1.22
>
> (and finally)
>
> If d.o.w. == "Mon"
>
> Multiply Monday admissions by 0.91.
>
> Else do nothing.
>
>  I assume in my code I need to specify that I am using the data.frame
> `data', so do I need to write things like
>
> If(data[d.o.w.]=="Mon")
>
>  I would then like to round the new admissions to integers (I assume I just
> use round(data$admissions)), and output the new data to another csv file.
>
>  I could of course do this in excel but I will need to extend this type of
> idea in the future so I would like to master it in R.
>
> Many thanks for any help/code.
>
> Robin Williams.
>
>
>        [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@... 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.
>

--
Jim Holtman
Cincinnati, OH
[phone]

What is the problem you are trying to solve?

______________________________________________
R-help@... 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.

[jholtman]

One more try and I quit:  This is what happens if someone does not
sent a sample of data you have to create things on the fly without
testing.

days <- list(list("Sat", 1.21), list("Sun", 1.22), list("Mon", 0.91))
for (i in days){
   .subset <- data$d.o.w == i[[1]]   # subset of data that matches
   data$admission[.subset] <- round(data$admission[.subset] * i[[2]])
}
write.csv(data, file='xyz')

On Wed, Jul 23, 2008 at 11:44 AM, Robin Williams <robster3@...> wrote:

> Hi all,
>
> Again I have searched the net and so on, without finding an answer to this
> surely simple problem. A short bit of code would be appreciated.
>
>  I have a object named `data' with the following column headings.
>
> Date, maxitemp, minitemp, admissions, d.o.w.
>
> Where d.o.w. is day of the week, written "Sun" "Mon" etc.
>
>  I just need to scale the Monday admissions by 0.91, the Saturday
> admissions by 1.21 and the Sunday admissions by 1.22. So basically what I
> want is:
>
> If d.o.w. == "Sat"
>
> Multiply Sat admissions by 1.21.
>
> (Now do I need an else statement here, or can I just do another)
>
> If d.o.w. == "Sun"
>
> Multiply "Sun" admissions by 1.22
>
> (and finally)
>
> If d.o.w. == "Mon"
>
> Multiply Monday admissions by 0.91.
>
> Else do nothing.
>
>  I assume in my code I need to specify that I am using the data.frame
> `data', so do I need to write things like
>
> If(data[d.o.w.]=="Mon")
>
>  I would then like to round the new admissions to integers (I assume I just
> use round(data$admissions)), and output the new data to another csv file.
>
>  I could of course do this in excel but I will need to extend this type of
> idea in the future so I would like to master it in R.
>
> Many thanks for any help/code.
>
> Robin Williams.
>
>
>        [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@... 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.
>

--
Jim Holtman
Cincinnati, OH
[phone]

What is the problem you are trying to solve?

______________________________________________
R-help@... 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.

[Patrick Burns]

jjdow <- sample(c('Sun', 'Mon', 'Tues'), 10, replace=TRUE)
jjdata <- data.frame(admission=1:10, d.o.w.=jjdow)

#> jjdata
#   admission d.o.w.
#1          1   Tues
#2          2   Tues
#3          3   Tues
#4          4    Sun
#5          5    Mon
#6          6    Mon
#7          7    Sun
#8          8   Tues
#9          9    Sun
#10        10    Mon

new.jjdata <- within(jjdata, admission <- ifelse(d.o.w. == 'Sun',
    1.21 * admission, ifelse(d.o.w.=='Mon', .91 * admission, admission)))

#> new.jjdata
#   admission d.o.w.
#1       1.00   Tues
#2       2.00   Tues
#3       3.00   Tues
#4       4.84    Sun
#5       4.55    Mon
#6       5.46    Mon
#7       8.47    Sun
#8       8.00   Tues
#9      10.89    Sun
#10      9.10    Mon

Pat


Robin Williams wrote:

> No, this is my first experience with any powerful statistical package. Any
> code much appreciated.
>
> -----Original Message-----
> From: Patrick Burns [mailto:pburns@...]
> Sent: 23 July 2008 17:44
> To: Robin Williams
> Subject: Re: [R] Using if, else statements
>
> You might have found 'ifelse' in S Poetry, which
> is one way of solving your problem.
>
>
> Patrick Burns
> patrick@...
> [phone]
> http://www.burns-stat.com
> (home of S Poetry and "A Guide for the Unwilling S User")
>
> Robin Williams wrote:
>  
>> Hi all,
>>
>> Again I have searched the net and so on, without finding an answer to this
>> surely simple problem. A short bit of code would be appreciated.
>>
>>   I have a object named `data' with the following column headings.
>>
>> Date, maxitemp, minitemp, admissions, d.o.w.
>>
>> Where d.o.w. is day of the week, written "Sun" "Mon" etc.
>>
>>   I just need to scale the Monday admissions by 0.91, the Saturday
>> admissions by 1.21 and the Sunday admissions by 1.22. So basically what I
>> want is:
>>
>> If d.o.w. == "Sat"
>>
>> Multiply Sat admissions by 1.21.
>>
>> (Now do I need an else statement here, or can I just do another)
>>
>> If d.o.w. == "Sun"
>>
>> Multiply "Sun" admissions by 1.22
>>
>> (and finally)
>>
>> If d.o.w. == "Mon"
>>
>> Multiply Monday admissions by 0.91.
>>
>> Else do nothing.
>>
>>   I assume in my code I need to specify that I am using the data.frame
>> `data', so do I need to write things like
>>
>> If(data[d.o.w.]=="Mon")  
>>
>>   I would then like to round the new admissions to integers (I assume I
>>    
> just
>  
>> use round(data$admissions)), and output the new data to another csv file.
>>
>>   I could of course do this in excel but I will need to extend this type
>>    
> of
>  
>> idea in the future so I would like to master it in R.
>>
>> Many thanks for any help/code.
>>
>> Robin Williams.  
>>
>>
>> [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> R-help@... 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.
>>
>>
>>  
>>    
>
>
>
>

______________________________________________
R-help@... 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.

[milton ruser]

Hi Rob Williams

I think it is one way of you do the job.
Cheers,

miltinho astronauta
brazil




my.df<-data.frame(cbind(data=sample(c("mon","sat","sun"), 20, replace=T),
       values=rnorm(20)))
my.df$values<-as.numeric(my.df$values)


data.weigth<-read.table(stdin(), head=T, sep=",")
data,weigth
mon,0.91
sat,1.21
sun,1.22


data.weigth


data.merge<-merge(my.df, data.weigth, by.x="data", by.y="data", all=T)
data.merge$values.weigth<-data.merge$values*data.merge$weigth

data.merge



On 7/23/08, Robin Williams <robster3@...> wrote:

>
> Hi all,
>
> Again I have searched the net and so on, without finding an answer to this
> surely simple problem. A short bit of code would be appreciated.
>
> I have a object named `data' with the following column headings.
>
> Date, maxitemp, minitemp, admissions, d.o.w.
>
> Where d.o.w. is day of the week, written "Sun" "Mon" etc.
>
> I just need to scale the Monday admissions by 0.91, the Saturday
> admissions by 1.21 and the Sunday admissions by 1.22. So basically what I
> want is:
>
> If d.o.w. == "Sat"
>
> Multiply Sat admissions by 1.21.
>
> (Now do I need an else statement here, or can I just do another)
>
> If d.o.w. == "Sun"
>
> Multiply "Sun" admissions by 1.22
>
> (and finally)
>
> If d.o.w. == "Mon"
>
> Multiply Monday admissions by 0.91.
>
> Else do nothing.
>
> I assume in my code I need to specify that I am using the data.frame
> `data', so do I need to write things like
>
> If(data[d.o.w.]=="Mon")
>
> I would then like to round the new admissions to integers (I assume I just
> use round(data$admissions)), and output the new data to another csv file.
>
> I could of course do this in excel but I will need to extend this type of
> idea in the future so I would like to master it in R.
>
> Many thanks for any help/code.
>
> Robin Williams.
>
>
>        [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@... 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.
>

        [[alternative HTML version deleted]]

______________________________________________
R-help@... 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.

[milton ruser]

Just to clarify,

if you have two data.frame, one with your data, other with data-admissions,
just use

data.merge<-merge(my.df, data.weigth, by.x="data", by.y="data", all=T)

miltinho

On 7/23/08, milton ruser <milton.ruser@...> wrote:

>
> Hi Rob Williams
>
> I think it is one way of you do the job.
> Cheers,
>
> miltinho astronauta
> brazil
>
>
>
>
> my.df<-data.frame(cbind(data=sample(c("mon","sat","sun"), 20, replace=T),
>        values=rnorm(20)))
> my.df$values<-as.numeric(my.df$values)
>
>
> data.weigth<-read.table(stdin(), head=T, sep=",")
> data,weigth
> mon,0.91
> sat,1.21
> sun,1.22
>
>
> data.weigth
>
>
> data.merge<-merge(my.df, data.weigth, by.x="data", by.y="data", all=T)
> data.merge$values.weigth<-data.merge$values*data.merge$weigth
>
> data.merge
>
>
>
>  On 7/23/08, Robin Williams <robster3@...> wrote:
>>
>> Hi all,
>>
>> Again I have searched the net and so on, without finding an answer to this
>> surely simple problem. A short bit of code would be appreciated.
>>
>> I have a object named `data' with the following column headings.
>>
>> Date, maxitemp, minitemp, admissions, d.o.w.
>>
>> Where d.o.w. is day of the week, written "Sun" "Mon" etc.
>>
>> I just need to scale the Monday admissions by 0.91, the Saturday
>> admissions by 1.21 and the Sunday admissions by 1.22. So basically what I
>> want is:
>>
>> If d.o.w. == "Sat"
>>
>> Multiply Sat admissions by 1.21.
>>
>> (Now do I need an else statement here, or can I just do another)
>>
>> If d.o.w. == "Sun"
>>
>> Multiply "Sun" admissions by 1.22
>>
>> (and finally)
>>
>> If d.o.w. == "Mon"
>>
>> Multiply Monday admissions by 0.91.
>>
>> Else do nothing.
>>
>> I assume in my code I need to specify that I am using the data.frame
>> `data', so do I need to write things like
>>
>> If(data[d.o.w.]=="Mon")
>>
>> I would then like to round the new admissions to integers (I assume I just
>> use round(data$admissions)), and output the new data to another csv file.
>>
>> I could of course do this in excel but I will need to extend this type of
>> idea in the future so I would like to master it in R.
>>
>> Many thanks for any help/code.
>>
>> Robin Williams.
>>
>>
>>        [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> R-help@... mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide
>> http://www.R-project.org/posting-guide.html<http://www.r-project.org/posting-guide.html>
>> and provide commented, minimal, self-contained, reproducible code.
>>
>
>

        [[alternative HTML version deleted]]

______________________________________________
R-help@... 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.

[Gabriela Cendoya]

Hi Robin:
                I think you can avoid the loops doing this:

my.df<-data.frame(d.o.w=sample(c("mon","sat","sun"), 20, replace=T),
       admissions=rnorm(20))
weight <- c(1,1,1,1,1,1.21,1.22)
names(weight) <- c("mon","tue","wed","thu","fri","sat","sun")
my.df$NewAdm <- my.df$admissions * weight[as.character(my.df$d.o.w)]

my.df

Gabriela



----- Original Message -----
From: "Robin Williams" <robster3@...>
To: <r-help@...>
Sent: Wednesday, July 23, 2008 12:44 PM
Subject: [R] Using if, else statements

> Hi all,
>
> Again I have searched the net and so on, without finding an answer to this
> surely simple problem. A short bit of code would be appreciated.
>
>  I have a object named `data' with the following column headings.
>
> Date, maxitemp, minitemp, admissions, d.o.w.
>
> Where d.o.w. is day of the week, written "Sun" "Mon" etc.
>
>  I just need to scale the Monday admissions by 0.91, the Saturday
> admissions by 1.21 and the Sunday admissions by 1.22. So basically what I
> want is:
>
> If d.o.w. == "Sat"
>
> Multiply Sat admissions by 1.21.
>
> (Now do I need an else statement here, or can I just do another)
>
> If d.o.w. == "Sun"
>
> Multiply "Sun" admissions by 1.22
>
> (and finally)
>
> If d.o.w. == "Mon"
>
> Multiply Monday admissions by 0.91.
>
> Else do nothing.
>
>  I assume in my code I need to specify that I am using the data.frame
> `data', so do I need to write things like
>
> If(data[d.o.w.]=="Mon")
>
>  I would then like to round the new admissions to integers (I assume I
> just
> use round(data$admissions)), and output the new data to another csv file.
>
>  I could of course do this in excel but I will need to extend this type of
> idea in the future so I would like to master it in R.
>
> Many thanks for any help/code.
>
> Robin Williams.
>
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@... 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.

___________________________________________________________________________

Aviso:
=====

El contenido del presente e-mail y sus posibles adjuntos pertenecen al INTA y pueden contener información confidencial. Si usted no es el destinatario original de este mensaje y por este medio pudo acceder a dicha información, por favor solicitamos contactar al remitente y eliminar el mensaje de inmediato. Se encuentra prohibida la divulgación, copia, distribución o cualquier otro uso de la información contenida en el presente e-mail por parte de personas distintas al destinatario.


This e-mail contents and its possible attachments belong to INTA and may contain confidential information. If this message was not originally addressed to you, but you have accessed to such information by this means, please contact the sender and eliminate this message immediately. Circulation, copy, distribution, or any other use of the information contained in this e-mail is not allowed on part of those different from the addressee.


Antes de imprimir este mensaje, asegúrese de que sea necesario. Proteger el medio ambiente está también en su mano.

______________________________________________
R-help@... 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.