# NOT RUN {
Left.fun = function(x) { (1-x)*(x>=0)}
M = L(2,4,3)
support(M)
sign(M)
sign( L(5,4,3) )
( sign( L(5,4,3) ) == "Positive" )
## The function is currently defined as
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")))
}
}
}
# }
Run the code above in your browser using DataLab