Hello,
Sorry, forgot the sum part.
extraction <- function(DF, date1, date2, format = "%Y-%m-%d"){
date1 <- as.Date(date1, format)
date2 <- as.Date(date2, format)
idx <- date1 < DF[[1]] & DF[[1]] < date2
aggregate(DF[idx, 3], DF[idx, 1:2], FUN = sum)
}
Hope this helps,
Rui Barradas
Em 10-11-2012 17:13, Rui Barradas escreveu:
Hello,
If I understand it correctly, you have a data.frame whose first column
is a date and want to extract all lines between two given dates. If
so, try the following. Note that I've added two new arguments to your
function.
dat <- read.table(text="
DATE PAYS nb_pays.ILI.
1 24/04/2009 usa 0
2 24/04/2009 usa 0
3 24/04/2009 Mexique 0
4 24/04/2009 Mexique 0
5 26/04/2009 usa 20
6 26/04/2009 usa 20
7 26/04/2009 usa 20
8 26/04/2009 usa 20
9 26/04/2009 usa 20
10 26/04/2009 Mexique 18
11 27/04/2009 usa 40
12 27/04/2009 Mexique 26
13 27/04/2009 Canada 6
14 27/04/2009 Spain 1
15 28/04/2009 Canada 6
", header = TRUE)
dat
dat$DATE <- as.Date(dat$DATE, format = "%d/%m/%Y")
extraction <- function(DF, date1, date2, format = "%Y-%m-%d"){
date1 <- as.Date(date1, format)
date2 <- as.Date(date2, format)
idx <- date1 < DF[[1]] & DF[[1]] < date2
DF[idx, ]
}
date1 <- "04 03 2009"
date2 <- "04 12 2009"
extraction(dat, date1, date2, format = "%d %m %Y")
Hope this helps,
Rui Barradas
Em 10-11-2012 13:21, anoumou escreveu:
Hi everybody,
I am beginer in R and I need your precious help.
I want to create a small function in R as in sas to retrieve date.
I have a file with data that import in R.
DATE PAYS nb_pays.ILI.
1 24/04/2009 usa 0
2 24/04/2009 usa 0
3 24/04/2009 Mexique 0
4 24/04/2009 Mexique 0
5 26/04/2009 usa 20
6 26/04/2009 usa 20
7 26/04/2009 usa 20
8 26/04/2009 usa 20
9 26/04/2009 usa 20
10 26/04/2009 Mexique 18
11 27/04/2009 usa 40
12 27/04/2009 Mexique 26
13 27/04/2009 Canada 6
14 27/04/2009 Spain 1
15 28/04/2009 Canada 6
I want to create something like that:
• When entering two dates date1,date2 in the fuction extraction.
The result must be: a new subdata with one line per date , per
PAYS,per
nb_pays.ILI (by summing all the number in variable nb_pays.ILI per
date,per
country) and the date must be between date1 and date2.
I sart to do somethings like that
extraction=function(date1,date2)
{date<-derdata[["DATE"]]
date
sort(date)
PAYS<-derdata[["PAYS"]]
nb_pays.ILI<-derdata[["nb_pays.ILI."]]
test1<-as.character(date,"%d %m %y")
test1
#the first date
date1<- "04 03 2009"
date1 <- strptime(date1, "%d %m %Y")
date1
unlist(unclass(date1))
date1 <- as.POSIXct(date1)
date1
attributes(date1)
date1 <-unclass(date1)
date1
#the second date
date2<- "04 12 2009"
date2 <- strptime(date2, "%d %m %Y")
date2
unlist(unclass(date2))
date2 <- as.POSIXct(date2)
date2
attributes(date2)
date2 <-unclass(date2)
date2
B1<- as.POSIXct(test1)
B1 <-unclass(B1)
B1
B4 <- B1[(B1>date1) & (B1<date2)]
B4
}
--
View this message in context:
http://r.789695.n4.nabble.com/help-on-date-dataset-tp4649175.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@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.
______________________________________________
R-help@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.
______________________________________________
R-help@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.
