[R-es] Consulta cálculo de horas en x años

¿Será esto lo que necesitas?

dias <- function(aini=1980, afin=1982) {
suma <- 0
for (i in aini:afin) {
   if (i %% 4 == 0) 
	suma <- suma + 366
	else
	   suma <- suma + 365
   }
   return(suma)
}


Otra versión más compacta sería:

otro.dias <- function(x)  {ifelse(x %% 4 == 0,366,365)}
dias = function(aini= 1980, afin= 1990) {sum(otro.dias(aini:afin))}

o simplemente:

otro.mas <- function(x)  {ifelse(x %% 4 == 0,366,365)}
sum(otro.mas(aini:afin))


Bueno, multiplicado por 24, claro...

Saludos

Jorge

-----Mensaje original-----
De: r-help-es-bounces en r-project.org [mailto:r-help-es-bounces en r-project.org]
En nombre de Eva Prieto Castro
Enviado el: Jueves, 13 de Diciembre de 2012 02:22 p.m.
Para: R-help-es
Asunto: [R-es] Consulta cálculo de horas en x años

Hola a todos/as:

Tengo una curiosidad: ¿existe una función en R que devuelva el nº de horas a
partir del nº de años?. Se trataría de computar cada año con 6 horas extra
sobre las 365, para así "prorratear" las 24 horas del año bisiesto.

El cálculo es sencillo de hacer, lógicamente, pero me pregunto si hay algo
hecho al respecto...

Gracias.

Eva