# \donttest{
library(CLimd)
# Example usage:
nc_data <- system.file("extdata", "imd_RF_2022.nc", package = "CLimd")
output_dir <- NULL
fun<-"sum"
year<-2022
# Calculate monthly rainfall sums for 2022
monthly_rainfall <-MonthRF_raster(nc_data, output_dir=NULL, fun="sum", year)
# Calculate monthly rainfall means for 2022
fun<-"mean"
monthly_rainfall_means <- MonthRF_raster(nc_data, output_dir=NULL, fun="mean", year)
# }
Run the code above in your browser using DataLab