https://github.com/cran/pracma
Tip revision: 3fdb68cc842f2ab3b59608f8e04d495763584f78 authored by Hans W. Borchers on 27 November 2015, 12:07:10 UTC
version 1.8.8
version 1.8.8
Tip revision: 3fdb68c
norm.R
##
## n o r m . R Vector Norm
##
Norm <- function(x, p=2) {
stopifnot(is.numeric(x) || is.complex(x),
is.numeric(p), length(p) == 1)
if (p > -Inf && p < Inf) sum(abs(x)^p)^(1/p)
else if (p == Inf) max(abs(x))
else if (p == -Inf) min(abs(x))
else return(NULL)
}