# NOT RUN {
#using advice seeking network of teachers in 15 schools
#to fit the data
#Random effect model#
priors = NULL
tune = NULL
initialVals = NULL
niter = 10
random.fit = HLSMrandomEF(Y = ps.advice.mat,FullX = ps.edge.vars.mat,
initialVals = initialVals,priors = priors,
tune = tune,tuneIn = FALSE,dd = 2,niter = niter)
HLSMcovplots(random.fit)
# }
Run the code above in your browser using DataLab