R/matipl2dpar.R

Defines functions matipl2dpar

Documented in matipl2dpar

matipl2dpar <-
function(meanL, varL)
{
  W = diag(0, nrow = length(meanL))
  dimnames(W) = list(names(meanL), names(meanL))
  W[1, 1] = l2dpar(meanL[[1]],varL[[1]],meanL[[1]],varL[[1]])
  for (i in 2:length(meanL))  
    {W[i, i] = l2dpar(meanL[[i]],varL[[i]],meanL[[i]],varL[[i]])
     for (j in 1:(i-1))  
      {W[i, j] = W[j, i] = l2dpar(meanL[[i]],varL[[i]],meanL[[j]],varL[[j]])
      }
    }
  W
}

Try the dad package in your browser

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

dad documentation built on Aug. 9, 2021, 1:06 a.m.