Nothing
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" ) ) )} }
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.