tests/testthat/tests1.R

In VicenteYago/ET.PenmanMonteith: Evapotranspiration from Penman-Monteith

context("basic test")
library(ET.PenmanMonteith)

test_that("individual vs collective computation correcteness", {
  library(dplyr)
  data(meteo)

  ##################### INDIVIDUAL
  meteo$doy <- as.Date(meteo$dates)
  meteo %>%
    split(f = meteo$doy) %>%
    lapply(function(m){
      ET.PenmanMonteith::et0(
        dates = m$dates,
        temp  = m$temp,
        hr    = m$higro,
        uz    = m$anemo,
        rs    = m$piro,
        lat   = 38.04371,
        elev  = 313)
    }) -> et0s

  et0.split <- dplyr::bind_rows(et0s)


  ##################### COLLECTIVE
  ET.PenmanMonteith::et0(
    dates = meteo$dates,
    temp  = meteo$temp,
    hr    = meteo$higro,
    uz    = meteo$anemo,
    rs    = meteo$piro,
    lat   = 38.04371,
    elev  = 313) -> et0.df

  expect_equal(et0.df$et0, et0.split$et0)
})