Nothing
#' @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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.