R/plotLikelihood.R

In HLSM: Hierarchical Latent Space Network Model

HLSMplotLikelihood = function(object,burnin = 0, thin = 1){
    if(is(object,'HLSM')==FALSE)(stop("object must be of class HLSM"))
    xx = getLikelihood(object, burnin = burnin, thin = thin)
    plot(xx,type='l', main = 'Log-likelihood from MCMC draws',ylab = 'estimated log-likelihood')
}