dim_ExtDep(model="EST", dim=3)
dim_ExtDep(model="AL", dim=3)
dim_ExtDep(model="PB", par=rep(0.5,choose(4,2)+1) )
dim_ExtDep(model="TD", par=rep(1,5) )
dim_ExtDep(model="EST", dim=2, par=c(0.5,1,1,1) )
dim_ExtDep(model="PB", dim=4, par=rep(0.5,choose(4,2)+1) )
Run the code above in your browser using DataLab