R/matddchisqsympar.R

Defines functions matddchisqsympar

Documented in matddchisqsympar

matddchisqsympar <-
function(freq)  {
  # Computing of the distances  
  distances = diag(0, nrow = length(freq))
  dimnames(distances) = list(names(freq), names(freq))

  for (i in 2:length(freq))  for (j in 1:(i-1))  {
      distances[i, j] = distances[j, i] = ddchisqsympar(freq[[i]], freq[[j]])
    }
  as.dist(distances)
}

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.