norm.lp <- function(x,lp=2){ if (lp<0) stop('p>0'); if (lp==0) return(sum(abs(x)>10*.Machine$double.eps)); sum(x^lp)^(1/lp) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.