https://github.com/cran/Epi
Revision 92fabd63142ae5a3fc1d6ecd03f51cde6fdb7516 authored by Bendix Carstensen on 03 April 2006, 00:00:00 UTC, committed by Gabor Csardi on 03 April 2006, 00:00:00 UTC
1 parent 0af585b
Tip revision: 92fabd63142ae5a3fc1d6ecd03f51cde6fdb7516 authored by Bendix Carstensen on 03 April 2006, 00:00:00 UTC
version 0.6.0
version 0.6.0
Tip revision: 92fabd6
month.R
month <-
function( x, abbreviate=FALSE, fact=TRUE )
{
mon <- rep( strptime( "01/01/1952", format="%d/%m/%Y" ), 12 )
mon$mon <- mon$mon + 0:11
mths <- months( mon, abbreviate=abbreviate )
if( fact ) factor( months( x ), levels=mnam ) else months( x )
}
weekday <-
function( x, abbreviate=FALSE, fact=TRUE )
{
dnam <- weekdays( as.Date( "07/01/1952",
format="%d/%m/%Y" ) + 0:6,
abbreviate=abbreviate )
days <- weekdays( x, abbreviate=abbreviate )
if( fact ) factor( days, levels=dnam ) else days
}
Computing file changes ...
