QA/QC: Check for errors in pairing equations

error_check_Pxxx(P.xxx.name, P.xxx.value, P.xxx.eq.name = NA, i = NA, ...)

Arguments

P.xxx.name	name of scalar to check
P.xxx.value	value for a given P.xxx
P.xxx.eq.name	full name of equation
i	Current iteration of runFAC()
...	additional paramters

Examples

P.xxx.names <- c("P.cgg", "P.cgp","P.cpg", "P.cpp","P.kgg", "P.kgp","P.kpg", "P.kpp")
P.xxx.values <- runif(min = -0.8,max = 1.2,n= length(P.xxx.names))
P.xxx.values[3] <- NaN

error_check_Pxxx(P.xxx.name = P.xxx.names[3],
                 P.xxx.value = P.xxx.values[3])
#> P.cpg is NaN on iteration NA; equation NA
#> P.cpg is NA on iteration NA; equation NA

for(i in 1:length(P.xxx.names)){
   error_check_Pxxx(P.xxx.name = P.xxx.names[i],
                 P.xxx.value = P.xxx.values[i])}
#> P.cgp is <0 on iteration NA; P = -0.67; equation NA
#> P.cpg is NaN on iteration NA; equation NA
#> P.cpg is NA on iteration NA; equation NA
#> P.cpp is >1 on iteration NA; P = 1.15; equation NA
#> P.kgg is <0 on iteration NA; P = -0.22; equation NA
#> P.kpp is <0 on iteration NA; P = -0.41; equation NA