Nothing
## ----setup, include = FALSE---------------------------------------------------
library(knitr)
opts_chunk$set(echo=TRUE,tidy=TRUE,error=FALSE,message=FALSE)
## -----------------------------------------------------------------------------
library(ergm.rank)
## ----eval=FALSE---------------------------------------------------------------
# help("ergm-references", "ergm.rank")
## ----collapse=TRUE------------------------------------------------------------
data(newcomb)
as.matrix(newcomb[[1]], attrname="rank")
as.matrix(newcomb[[1]], attrname="descrank")
## ----results="hide"-----------------------------------------------------------
newc.fit1<- ergm(newcomb[[1]]~rank.nonconformity+rank.nonconformity("localAND")+rank.deference,response="descrank",reference=~CompleteOrder,control=control.ergm(MCMC.burnin=4096, MCMC.interval=32, CD.conv.min.pval=0.05),eval.loglik=FALSE)
## ----collapse=TRUE------------------------------------------------------------
summary(newc.fit1)
## ----results="hide", fig.show="hide"------------------------------------------
mcmc.diagnostics(newc.fit1)
## ----results="hide"-----------------------------------------------------------
newc.fit15 <- ergm(newcomb[[15]]~rank.nonconformity+rank.nonconformity("localAND")+rank.deference,response="descrank",reference=~CompleteOrder,control=control.ergm(MCMC.burnin=4096, MCMC.interval=32, CD.conv.min.pval=0.05),eval.loglik=FALSE)
## ----collapse=TRUE------------------------------------------------------------
summary(newc.fit15)
## ----results="hide", fig.show="hide"------------------------------------------
mcmc.diagnostics(newc.fit15)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.