tests/testthat/test_G_h.R

In georgeslabreche/mars: Mars Solar Radiation

# Disable warnings.
Sys.setenv(NET_FLUX_FUNCTION_SHOW_WARNINGS = FALSE)

test_that("G_h: Global irradiance on Mars horizontal surface with different normalized net flux functions.", {
  # Test parameters.
  Ls = 122    # Areocentric longitude.
  phi = 22.3  # Planetaryz latitude.
  al = 0.1    # Albedo.
  
  # Solar zenith angle.
  z_seq = c(
    seq(0, 80, 10),
    85)
  
  # Optical depth.
  tau_seq = c(
    seq(0.1, 2.0, 0.1),
    seq(2.5, 3, 0.5),
    5, 6)
  
  for(z in z_seq){
    for(tau in tau_seq){
      
      # Calculate global irradiances for different normalized net flux function types
      Sys.setenv(NET_FLUX_FUNCTION_TYPE = "lookup_v1")
      Gh_lookup_1 = G_h(Ls=Ls, phi=phi, z=z, tau=tau, al=al)
      
      Sys.setenv(NET_FLUX_FUNCTION_TYPE = "lookup_v2")
      Gh_lookup_2 = G_h(Ls=Ls, phi=phi, z=z, tau=tau, al=al)
      
      # Test assert equality.
      expect_equal(Gh_lookup_1, Gh_lookup_2, tolerance=4, scale=1)
      
      # Test against polynomial approach to obtaining the normalized net flux.
      Sys.setenv(NET_FLUX_FUNCTION_TYPE = "polynomial")
      Gh_analytical = G_h(Ls=Ls, phi=phi, z=z, tau=tau, al=al)
      
      # For equality test against analytical approach, set the tolerance based on tau value.
      tolerance = 30
      
      if(tau == 6){
        tolerance = 250
        
      }else if(tau == 5){
        tolerance = 140
      }
      
      expect_equal(Gh_analytical, Gh_lookup_1, tolerance=tolerance, scale=1)
      expect_equal(Gh_analytical, Gh_lookup_2, tolerance=tolerance, scale=1)
    }
  }
})