if (FALSE) { # interactive()
# Using local sources
# an array with temperature data
data("temp_dat", package = "climatrends")
set.seed(9271)
span <- as.integer(runif(10, 6, 15))
get_timeseries(temp_dat, "2013-10-28", span = span)
# matrix with precipitation data
data("rain_dat", package = "climatrends")
get_timeseries(rain_dat, "2013-10-28", span = span)
# \donttest{
# data can be returned as matrix
library("sf")
# Fetch data from NASA POWER using 'sf' method
data("lonlatsf", package = "climatrends")
g <- get_timeseries(object = lonlatsf,
day.one = "2018-05-16",
last.day = "2018-05-30",
pars = c("PRECTOTCORR", "T2M"),
as.matrix = TRUE)
# }
}
Run the code above in your browser using DataLab