[R] Can you help me please

[arun]

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