This function subtracts.
calcNHC(arg = TRUE)
calcNHC(TRUE)#> Error in calcNHC(TRUE): object 'exp2004owners' not foundcalcNHC(FALSE)#> Error in calcNHC(FALSE): object 'exp2004owners' not found