HI Fares,
Sorry, that I misunderstand your question.
Probably, this works for you.
date1<- seq.Date(as.Date("1jan2003",format="%d%b%Y"),as.Date("1jan2013",format="%d%b%Y"),by="day")
?? length(date1)
#[1] 3654
?set.seed(51)
?donation<-sample(1000:3000000,3654,replace=FALSE)
?dat1<-data.frame(date1,donation)
?library(chron)
nrow(dat1[is.weekend(dat1[,1]),])
#[1] 1044
set.seed(15)
?dat1[,2][is.weekend(dat1[,1])]<-sample(1:500,1044,replace=TRUE)
?head(dat1)
#?????? date1 donation
#1 2003-01-01? 2328151
#2 2003-01-02?? 602210
#3 2003-01-03?? 895550
#4 2003-01-04????? 302
#5 2003-01-05?????? 98
#6 2003-01-06? 2503433
?nrow(dat1)
#[1] 3654
?str(dat1)
#'data.frame':??? 3654 obs. of? 2 variables:
# $ date1?? : Date, format: "2003-01-01" "2003-01-02" ...
# $ donation: int? 2328151 602210 895550 302 98 2503433 2254394 1218622 2913082 337881 ...
A.K.
----- Original Message -----
From: Fares Said <frespider at hotmail.com>
To: arun <smartpink111 at yahoo.com>
Cc:
Sent: Friday, January 4, 2013 1:38 PM
Subject: Re: Can you help me please
Sorry Arun,
I don't have any columns I need to generate them both with certain criteria.? First column is the date from jan2003 until jan2013. And the second columns is number of donations. But make sure that the number is greater than 1000 for weekdays and less than 500 for weekends. And after you create the date column I would like to know how I can format that column.
I hope this is clear now and thank u so much.
Fares
Sent from my iPhone
On 2013-01-04, at 13:26, "arun" <smartpink111 at yahoo.com> wrote:
HI Fares, I thought you had the data available for both the columns, and only wanted to convert the "date" column to as.Date(date).? How do I know about the number of donations from Jan-2003 to Jan 2013?? Do you have that data column?? I assume that the first column is missing.? Is that right? A.K.
________________________________ From: Fares Said <frespider at hotmail.com> To: arun <smartpink111 at yahoo.com> Sent: Friday, January 4, 2013 1:23 PM Subject: RE: Can you help me please Hi A.k, no that is not what I am looking for. ? I need to generate a date column starting from Jan-2003 until Jan 2013 then another column with number of donations Thanks Date: Fri, 4 Jan 2013 10:18:17 -0800 From: smartpink111 at yahoo.com Subject: Re: Can you help me please To: frespider at hotmail.com Hi Fares, YOur post says that you need "time series". xts is extensible time series.? If you wanted to create a time column; dat1$date<-as.Date(dat1$date,format="%d%b%Y") ? str(dat1) #'data.frame':? ? 7 obs. of? 2 variables: # $ date? ? : Date, format: "2003-01-03" "2003-01-04" ... # $ donation: int? 20235 25655 225860 289658 243889 244338 243889 dat1 #? ? ? ? date donation #1 2003-01-03? ? 20235 #2 2003-01-04? ? 25655 #3 2003-01-05? 225860 #4 2003-01-06? 289658 #5 2003-01-07? 243889 #6 2003-01-08? 244338 #7 2003-01-09? 243889 Is this what you wanted? Else, you could email with the output format. A.K. ________________________________ From: Fares Said <frespider at hotmail.com> To: arun <smartpink111 at yahoo.com> Sent: Friday, January 4, 2013 1:12 PM Subject: RE: Can you help me please Hi A.k, Thank you but this doesn't help me. I need to know how to create a time column. Can you help me with that please Thanks Date: Fri, 4 Jan 2013 09:58:31 -0800 From: smartpink111 at yahoo.com Subject: Re: Can you help me please To: frespider at hotmail.com CC: r-help at r-project.org HI Fares, You could try this: dat1<- read.table(text=" date? ? ? donation 3jan2003? 20235 4jan2003? 25655 5jan2003? 225860 6jan2003? 289658 7jan2003? 243889 8jan2003? 244338 9jan2003? 243889 ",sep="",header=TRUE,stringsAsFactors=FALSE) The post is not very specific as to what you need.? I hope this works for you. library(xts) dat2<-xts(dat1[,2],order.by=as.Date(dat1[,1],format="%d%b%Y")) ? dat2 #? ? ? ? ? ? [,1] #2003-01-03? 20235 #2003-01-04? 25655 #2003-01-05 225860 #2003-01-06 289658 #2003-01-07 243889 #2003-01-08 244338 #2003-01-09 243889 str(dat2) #An ?xts? object from 2003-01-03 to 2003-01-09 containing: #? Data: int [1:7, 1] 20235 25655 225860 289658 243889 244338 243889 #? Indexed by objects of class: [Date] TZ: #? xts Attributes:? #List of 2 # $ tclass: chr "Date" ? #$ tzone : chr "" plot(dat2) A.K. ________________________________ From: Fares Said <frespider at hotmail.com> To: arun <smartpink111 at yahoo.com> Sent: Friday, January 4, 2013 9:16 AM Subject: Can you help me please Hi A.K, I am not sure if you have looked at this question, If not can you please look http://r.789695.n4.nabble.com/Generate-time-series-data-td4654589.html Thanks