R/vvalen1.R

Defines functions vvalen1

Documented in vvalen1

vvalen1 <-
function (data, classn) 
{
    p = dim(data)[2]
    data1 = data[data[, p] == classn, ]
    data1 = znorm(data1)
    med1 = apply(data1, 2, median)
    medm = as.matrix(rep(1, p)) %*% med1
    data2 = data1 - medm
    data2 = data2[, 1:(p - 1)]
    means = sqrt(apply(data2^2, 1, sum))
    return(means)
}

Try the dprep package in your browser

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

dprep documentation built on May 29, 2017, 11:01 a.m.