R/MPKlMatrix.R

#' @export MPKlMatrix
#'
MPKlMatrix <- function(Mx, step, nc, sta)
{
	M <- matrix(NA, nrow = nc, ncol = nc)
	k = which(step == rownames(Mx))
	for (i in sta) {
		M[, i] = Mx[k, , i]
	}
	return(M)
}

Try the MPkn package in your browser

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

MPkn documentation built on May 2, 2019, 2:36 a.m.