R/genDD.R

genDD <-
function(ZZ)
{
    distMat = lapply(1:length(ZZ),function(yy){
        dd <- dist(ZZ[[yy]]);
        return(dd)})
    return(distMat)
}
SAcmu/LLSM documentation built on May 9, 2019, 11:06 a.m.