interaction_compare <-
function(a,b){
if(a>0 && b>0){
return(TRUE)
}
else
if(a==0 && b==0){
return(TRUE)
}
else
if(a<0 && b<0){
return(TRUE)
}
else {return (FALSE)}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.