powered by
getModel( object, ...)
graph.affiliation(n=100,c(1/3,1/3,1/3),0.8,0.2) -> g mixer(g$x,qmin=2,qmax=6) -> xout m <- getModel( xout ) m <- getModel( xout, q=5 )
Run the code above in your browser using DataLab