R/newurks.R

newurks <-
function (smat, m1 = 2, m2 = 2, m = 2) 
    {
        rg <- apply(smat, 1, max) - apply(smat, 1, min)
        rk <- rank(rg)
        urk <- multrnks(rk, m1 = m1, m2 = m2, m = m)
        for (j in 1:(dim(smat)[2])) {
            smat[, j] <- smat[, j] * urk
        }
        smat
}

Try the sensitivitymv package in your browser

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

sensitivitymv documentation built on May 2, 2019, 2:06 a.m.