R/mce_1.R

MCe <-
function (u) 
{
    v = matrix(matrix(u, length(u), length(u))[-seq(1, length(u)^2, 
        length(u) + 1)], length(u) - 1)
    apply(v, 2, function(b) 1 - mean(b))
}

Try the CircOutlier package in your browser

Any scripts or data that you put into this service are public.

CircOutlier documentation built on May 2, 2019, 6:04 a.m.