t <-matrix(data=c(10,20,65,10,20,70),nrow=2,byrow=TRUE)
Nnu0 <- matrix(c(0.3,0.7,1),nrow = 1)
alpha<- matrix(1,nrow=1,ncol=3)
gamma<- matrix(c(0.13,0.13,0.13, 0.15,0.15,0.15),nrow=2,byrow=TRUE)
nu1 <- matrix(1e-6,nrow=1,ncol=3)
pars = list(Nnu0=Nnu0, alpha=alpha,gamma=gamma,nu1=nu1)
tsce(t,pars)
Run the code above in your browser using DataLab