## document with all deprecated functions, kept for backwards compatibility
wiener_likelihood <- function(x, data) {
#warning("wiener_likelihood is deprecated, use logLik.wdm instead")
obj <- list(coefficients=x,data=data)
logLik.wdm(obj)
}
wiener_aic <- function(x, data, loss=NULL) {
#warning("wiener_aic is deprecated, use AIC.wdm instead")
obj <- list(coefficients=x,data=data,loss=loss)
AIC.wdm(obj)
}
wiener_bic <- function(x, data, loss=NULL) {
#warning("wiener_bic is deprecated, use BIC.wdm instead")
obj <- list(coefficients=x,data=data,loss=loss)
BIC.wdm(obj)
}
wiener_deviance <- function(x, data) {
#warning("wiener_deviance is deprecated, use deviance.wdm instead")
obj <- list(coefficients=x,data=data)
deviance.wdm(obj)
}
wiener_plot <- function(data) {
#warning("wiener_plot is deprecated, use plot.data.wiener instead")
plot.data.wiener(data)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.