R/dow.r

In thermosilla/tsfactors: Funciones para ayuda en trabajo con series de tiempo

#' Entrega día de la semana a partir de una fecha posix
#'
#' Esta función entrega el día de la semana en el formato indicado
#' @param date Fecha en formato POSIXt
#' @param days Orden para días de la semana
#' @param daylabels Formato para días de la semana
#' @keywords dow 
#' @export
#' @return dia de la semana como factor
dow <- function(date, days =c('Monday','Tuesday','Wednesday','Thursday','Friday','Saturday','Sunday'), 
		daylabels=c('lunes', 'martes', 'miércoles', 'jueves', 'viernes', 'sabado', 'domingo')
){
	return(factor(weekdays.POSIXt(date), levels = days, labels=daylabels))
}