R/msteptpm.R

msteptpm <-
function(TPM,m){
  if(m==1) return(TPM) else {
    temp <- TPM
    for(i in 1:(m-1)) temp=temp%*%TPM
    return(temp)
  }
}

Try the ACSWR package in your browser

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

ACSWR documentation built on May 2, 2019, 6:53 a.m.