norm <- function (x, type = c("O", "I", "F", "M", "2")) { if (identical("2", type)) { svd(x, nu = 0L, nv = 0L)$d[1L] } else .Call("La_dlange", x, type, PACKAGE = "base") }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.