st_coordinates()
sf
inla()
library("chirps") location <- data.frame(long = 100.523186, lat = 13.736717) d <- get_chirps(location, dates = c("2020-01-01", "2022-12-31"), server = "ClimateSERV") ggplot(d, aes(x = date, y = chirps)) + geom_line() + labs(y = "Precipitation (mm)")