Nothing
#' @export
coef.rem <- function(object,...){
par <- coef(object$mr)
row.names(par) <- paste("mr :",row.names(coef(object$mr)))
if(!is.null(coef(object$ds)$exponent)){
rn <- row.names(par)
par <- rbind(par,coef(object$ds)$exponent)
row.names(par) <- c(rn, paste("ds expon:",
row.names(coef(object$ds)$exponent)))
}
rn <- row.names(par)
ds.scale <- coef(object$ds)$scale
if(!is.null(ds.scale)){
par <- rbind(par,coef(object$ds)$scale)
row.names(par) <- c(rn,paste("ds scale:",
row.names(coef(object$ds)$scale)))
}
if(!is.null(coef(object$ds)$adjustment)){
rn <- row.names(par)
par <- rbind(par,coef(object$ds)$adjustment)
row.names(par) <- c(rn, paste("ds adjust:",
row.names(coef(object$ds)$adjustment)))
}
return(par)
}
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.