if (FALSE) {
nbStates <- 3
par <- c(0.001,0.999,0.5,0.001,1500.3,7.1)
bounds <- matrix(c(0,1, # bounds for first parameter
0,1, # bounds for second parameter
0,1, # ...
0,Inf,
0,Inf,
0,Inf),
byrow=TRUE,ncol=2)
beta <- matrix(rnorm(18),ncol=6,nrow=3)
delta <- c(0.6,0.3,0.1)
# vector of working parameters
wpar <- n2w(par=par,bounds=bounds,beta=beta,delta=delta,nbStates=nbStates,
estAngleMean=FALSE)
}
Run the code above in your browser using DataLab