tgeom <- temp_geom(day = 1,
fi = 45.33,
variable="mean")
tgeom_vect <- temp_geom(day = 1:365,
fi = 45.33,
variable="mean")
tgeom_vect2 <- temp_geom(day = 1,
fi = seq(35, 45, 0.5),
variable="mean")
Run the code above in your browser using DataLab