Re: [Rd] Calendar week ISO (PR#14132)

From: Prof Brian Ripley <ripley_at_stats.ox.ac.uk>
Date: Mon, 14 Dec 2009 09:14:19 +0000 (GMT)

Why are you reporting a POSIX standard feature missing in your OS as a bug in R? (One that is even documented on the help page.)

On more comprehensive OSes you can use the %V format of strftime. You could compile a replacement for Windows' strftime and link it into your build of R, as we have done for so many other Windows lacunae. Then in your example use as.integer(strftime(tmp.d, "%V"))

On Fri, 11 Dec 2009, samandrew_at_gmx.ch wrote:

> Hi there
>
> =20
>
> I use Gnu R sometimes at work.=20
>
> =20
>
> Unfortunately we use Windows and R has problems with getting the calendar

That is simply false: R is not responsible for the lack of standards compliance of Windows, and filing a bug report with Microsoft would be much more appropriate.

> 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
>

-- 
Brian D. Ripley,                  ripley_at_stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272866 (PA)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595

______________________________________________
R-devel_at_r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
Received on Mon 14 Dec 2009 - 09:17:04 GMT

This archive was generated by hypermail 2.2.0 : Mon 14 Dec 2009 - 11:01:29 GMT