data(tribes)
tribes.fit<-ergmm(tribes~latent(d=2),response="sign.012",family="binomial.logit",fam.par=list(trials=2))
plot(tribes.fit,edge.col=as.matrix(tribes,"gama",m="a")*3+as.matrix(tribes,"rova",m="a")*2,pie=TRUE)
Run the code above in your browser using DataLab