[Rd] Calendar week ISO (PR#14132)

From: <samandrew_at_gmx.ch>
Date: Fri, 11 Dec 2009 22:25:13 +0100 (CET)


Hi there

=20

I use Gnu R sometimes at work.=20

=20

Unfortunately we use Windows and R has problems with getting the calendar week number with the first week as the one which has at least 4 days. A colleague told me that he has the same problem.=20

=20

Below you can see what I use now, for finding the right week.=20

=20

=20

Kind regards,=20

Samuel Andreas Meichtry

=20

=20

#Excel-Funktion

#=3DK=DCRZEN((A3-DATUM(JAHR(A3+3-REST(A3-2;7));1;REST(A3-2;7)-9))/7)
=20

=20

#R-Funktion

KW<-function(x){=20=20=20=20

    return(floor(

    as.numeric((x-(as.Date(ISOdate(

=20

as.numeric(format(as.Date(as.numeric(x)+3+25569-2-(as.numeric(x)-2+25569)%%7 ,origin=3D"1900-01-01"),"%Y")),1,1)

    )+((as.numeric(x)-2+25569)%%7-9)-1))/7)))=20=20=20=20=20=20=20=20=20=20=
=20=20=20=20=20=20

}

=20

tmp.d <- seq(as.Date("1970-01-01"),as.Date("2009-01-01"),"days")

df<-data.frame(TimeStamp=3Dtmp.d,KW=3DKW(tmp.d))

=20

        [[alternative HTML version deleted]]



R-devel_at_r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel Received on Sat 12 Dec 2009 - 02:44:34 GMT

This archive was generated by hypermail 2.2.0 : Mon 14 Dec 2009 - 09:31:06 GMT