install.packages("devtools") # if you have not installed "devtools" package
library(devtools)
devtools::install_github("flor14/PWCfilegenerator")

install.packages("PWCfilegenerator.zip", repos = NULL)

# The weather dataset used as input require the following data:
# dates, precipitation, panevaporation, temperature, wind speed and solar radiation 
# the units are described in PRZM5 manual (http://bit.ly/2k6yV26).  

# Example of a small dataset. 
data <- data.frame( date = c("01/01/81", "02/01/81", "03/01/81", "04/01/81"),
            precip = c(0.00, 0.10, 0.00, 0.00),
            evap = c(0.30, 0.21, 0.28, 0.28),
            tmed = c(9.5, 6.3, 3.5, 5),
            wind = c(501.6, 368.0, 488.3, 404.5),
            solrad = c(240.3, 244.3, 303.0, 288.5))
 
# Load the package
library(PWCfilegenerator)
 
# Function to convert and save the weather file as a .dvf. It will generate a short weather file of 1 day. 
# You can change the period in relation to your dataset.

PWCfilegenerator::PWC_fg(data = data, # Name of your dataset 
                          date = "date", # Column name for dates
                          format = "%d/%m/%y", # Date format of your dataset (more details in strptime package documentation)
                          start ="02/01/81", # Date to start the weather file
                          end = "03/01/81", # Date to end the weather file 
                          precip_cm = "precip", # Column name for precipitation (cm/day)
                          pevp_cm = "evap", # Column name for panevaporation data (cm/day)
                          temp_celsius = "tmed", # Column name for temperature (Celsius)
                          ws10_cm_s = "wind", # Column name for wind speed values (cm/sec)
                          solr_lang = "solrad", # Column name for solar radiation (Langley)
                          save_in = "F:/folder/weatherfile_name") # The extension .dvf will be added automatically.