R1 <- function(s1, s2){ res <- k2(s1)*k2(s2) - k4(abs(s1-s2)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.