Nothing
#' @rdname as_loss
#' @export
as_loss.character <- function(x) {
structure(
list(name = x),
class = c(ruta_loss_named, ruta_loss)
)
}
#' @rdname as_loss
#' @export
as_loss.ruta_loss <- function(x) x
#' @rdname print-methods
#' @export
print.ruta_loss_named <- function(x, ...) {
cat("Loss:", x$name, "\n")
invisible(x)
}
#' @rdname print-methods
#' @export
print.ruta_loss <- function(x, ...) {
cat("Loss:", sub("ruta_loss_", "", class(x)[1]), "\n")
invisible(x)
}
#' Obtain a Keras loss
#'
#' @description Builds the Keras loss function corresponding to a name
#'
#' @param x A \code{"ruta_loss_named"} object
#' @return A function which returns the corresponding loss for given true and
#' predicted values
#' @param ... Rest of parameters, ignored
#'
#' @export
to_keras.ruta_loss_named <- function(x, ...) {
get_keras_object(x$name, "loss")
}
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.