search

statnet / statnet.common

Common R Scripts and Utilities Used by the Statnet Project Software
Other
8 stars 5 forks source link

ergm(..., control=snctrl()) is not the same as ergm(..., control=control.ergm()) #26

Closed krivit closed 1 year ago

krivit commented 1 year ago 
library(ergm)
data(florentine)
out.snctrl <- ergm(flomarriage~edges, control=snctrl())$control
out.ctrl <- ergm(flomarriage~edges, control=control.ergm())$control
out.default <- ergm(flomarriage~edges)$control

waldo::compare(out.snctrl, out.ctrl, x_arg="snctrl", y_arg="ctrl")
#> `environment(snctrl$init.MPLE.samplesize)$control$SAN` is a list
#> `environment(ctrl$init.MPLE.samplesize)$control$SAN` is an S3 object of class <control.san/control.list/list>, a list
#> 
#> `environment(snctrl$init.MPLE.samplesize)$control$loglik` is a list
#> `environment(ctrl$init.MPLE.samplesize)$control$loglik` is an S3 object of class <control.logLik.ergm/control.list/list>, a list
#> 
#> `environment(snctrl$init.MPLE.samplesize)$loglik` is a list
#> `environment(ctrl$init.MPLE.samplesize)$loglik` is an S3 object of class <control.logLik.ergm/control.list/list>, a list
#> 
#> `environment(snctrl$init.MPLE.samplesize)$SAN` is a list
#> `environment(ctrl$init.MPLE.samplesize)$SAN` is an S3 object of class <control.san/control.list/list>, a list
#> 
#> `snctrl$SAN` is a list
#> `ctrl$SAN` is an S3 object of class <control.san/control.list/list>, a list
#> 
#> `snctrl$loglik` is a list
#> `ctrl$loglik` is an S3 object of class <control.logLik.ergm/control.list/list>, a list
waldo::compare(out.ctrl, out.default, x_arg="ctrl", y_arg="default")
#> ✔ No differences

Created on 2023-06-27 with reprex v2.0.2