R/dens.mvnormSisI.R

Defines functions dens.mvnormSisI

dens.mvnormSisI <-
function(X,m) {
  n <- nrow(X)
  p <- ncol(X)
  X <- X - rep(1,n)%o%m
  X2 <- exp(-0.5*rowSums(X*X))
  X2 <- X2/((sqrt(2*pi))^p)
  return(X2)
}

Try the ToolsForCoDa package in your browser

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

ToolsForCoDa documentation built on April 3, 2025, 7:47 p.m.