R/sign.R

sign <-
function(M){
supp = support(M)

if (supp[1] > 0) {return( noquote( paste0("Positive" ) ) )}
 else {if (supp[2] < 0) {return( noquote( paste0("Negative" ) ) )}
         else {return( noquote( paste0("non-positive and non negative" ) ) )} }
}

Try the Calculator.LR.FNs package in your browser

Any scripts or data that you put into this service are public.

Calculator.LR.FNs documentation built on May 2, 2019, 8:25 a.m.