Реализация R в keras позволяет использовать пользовательскую функцию потерь.Однако, функция должна быть реализована с использованием очень специфического синтаксиса и должна принимать параметры y_true
и y_pred
.Вы можете найти хороший учебник здесь .Следующий код даст вам некоторую интуицию:
model %>% compile(
optimizer = "your-choice-of-optimezer",
loss = custom_loss_function,
metrics = c("your-choice-of-metric")
)
где
custom_loss_function <- function(y_true, y_pred) {
K <- backend()
... # define your function using the backend K
}