R/extract.frame.R

In jeroenooms/lmergm: Mixed effects ergm models

# TODO: Add comment
# 
# Author: jeroen
###############################################################################


extract.frame <- function(...){
	UseMethod("extract.frame")
}

extract.frame.mer <- function(obj){
	return(attributes(obj)$frame);
}