show,BIKM1_LBM_Binary-method {bikm1} | R Documentation |
show method for a BIKM1_LBM_Binary
object
## S4 method for signature 'BIKM1_LBM_Binary'
show(object)
object |
a BIKM1_LBM_Binary object |
require(bikm1)
n=200
J=120
g=3
h=2
theta=list()
theta$pi_g=1/g *matrix(1,g,1)
theta$rho_h=1/h *matrix(1,h,1)
theta$alpha_gh=matrix(runif(6),ncol=h)
data=BinBlocRnd_LBM(n,J,theta)
res=BIKM1_LBM_Binary(data$x,4,4,4,init_choice='random')
show(res)