data(friendship)
set.seed(123)
dncObj <- dnc(friendship,M=4,p=3,method="Gibbs",
controls=list(nDraws=250,burnin=50,
MaxItStg2=25,epsilonStg2=1e-15))
print(dncObj)
Run the code above in your browser using DataLab