R/y2p.R

In MDM: Multinomial Diversity Model

Defines functions y2p

Documented in y2p

y2p <- function(y, mean = FALSE) {
	dn <- dimnames(y)
	y  <- as.matrix(y)/apply(y,1,sum)
	if (mean) y <- matrix(rep(apply(y,2,mean),each=nrow(y)),nrow=nrow(y),ncol=ncol(y),dimnames=dimnames(y))
	dimnames(y) <- dn
	y
}

Try the MDM package in your browser