simplex <- sim()
round(simplex$model,2)
congeneric <- sim.congeneric()
round(congeneric,2)
R <- sim.hierarchical()
R
fx <- matrix(c(.9,.8,.7,rep(0,6),c(.8,.7,.6)),ncol=2)
fy <- c(.6,.5,.4)
Phi <- matrix(c(1,0,.5,0,1,.4,0,0,0),ncol=3)
print(sim.structure(fx,Phi,fy,),digits=2)
cor.plot(R) #show it graphically
simp <- sim.simplex()
#show the simplex structure using cor.plot
cor.plot(simp)
Run the code above in your browser using DataLab