R/plie2.VM.R

Defines functions plie2.VM

plie2.VM <-
function(transmat,par.trans){

  M = dim(transmat)[1]
  Y = matrix(0,M*(M-1)+2*length(par.trans),1)
  for (i in (1:(M-1))){
     Y[(M*(i-1)+1):(M*i)] = transmat[,i]
     }
  Y[(M*(M-1)+1):(M*(M-1)+length(par.trans))]=c(Re(par.trans))
  Y[(M*(M-1)+length(par.trans)+1):length(Y)]=c(Im(par.trans))
  return(Y)

}

Try the NHMSAR package in your browser

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

NHMSAR documentation built on Feb. 9, 2022, 9:06 a.m.