## for 'ss' and 'sm' objects, this function is defined as
function(object, ...){
sum(weighted.residuals(object)^2, na.rm = TRUE)
}
## for 'gsm' objects, this function is defined as
function(object, ...){
object$deviance
}
Run the code above in your browser using DataLab