#' @rdname rlm.summaries
#'
#' @method predict rlmmodel
#' @export
predict.rlmmodel <- function(object, newdata, ...) {
if(missing(newdata) || is.null(newdata)) {
return(fitted(object))
} else{
tt <- terms(object)
Terms <- delete.response(tt)
x <- model.matrix(Terms, newdata)
return(as.matrix(x) %*% coef(object))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.