#calcPhotic test test_that("multiplication works", { expect_error(calcPhotic(Z = "m"), info = "Input values must be numeric") expect_error(calcPhotic(Z = 0), info = "Input values cannot be zero") expect_equal(calcPhotic(Z = 4), 9.25628141) })