epwgen - weather data for model WGEN

epwgen: multiple extraction from PISCO daily data and sun daily data generation for WGEN model.

Extract daily values from PISCO (precipitation, minimum and maximum temperature)

library(openxlsx)

## Warning: package 'openxlsx' was built under R version 3.6.3

library(epwgen)

#PISCO files of precipitation, minimum and maximum temperature
ppd <- "D:/PISCOd_pp_v2.1.nc"
tmnd <- "D:/PISCOd_tmn_v1.1.nc"
tmxd <- "D:/PISCOd_tmx_v1.1.nc"

#coordinates from study zone
lon <- -75.575
lat <- -14.201

nc.files <- c(ppd, tmnd, tmxd)
x <- data.frame(nc = nc.files, lon, lat)

daily.data <- pdwgen(x)

## Loading required namespace: ncdf4

# Generate monthly average values from PISCO (precipitation and temperature)
average.data <- pmwgen(daily.data)

# Generate daily values from short wave radiation
data("blaney.criddle")
swrad.data <- swrad(lat, blaney.criddle)

# Generate monthly values from extraterrestrial radiation
extrad.data <- extrad(lat, blaney.criddle)

export data to excel

#latitude from study zone
out <- createWorkbook()
addWorksheet(out, "daily_data")
addWorksheet(out, "average_data")
addWorksheet(out, "swrad")
addWorksheet(out, "extrad")
writeData(out, sheet = "daily_data", daily.data)
writeData(out, sheet = "average_data", average.data)
writeData(out, sheet = "swrad", swrad.data)
writeData(out, sheet = "extrad", extrad.data)
saveWorkbook(out, "D:/weather_wgen.xlsx")