From d7290870ffece8bf7237636e3c4397ce789c75bf Mon Sep 17 00:00:00 2001
From: Michel Lang <michellang@gmail.com>
Date: Fri, 20 Sep 2019 00:26:04 +0200
Subject: [PATCH] use log1p(x) instead of log(1+x)

---
 R/regression.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/regression.R b/R/regression.R
index 10dd984..df3a199 100644
--- a/R/regression.R
+++ b/R/regression.R
@@ -238,7 +238,7 @@ smape <- function(actual, predicted) {
 #' predicted <- c(0.9, 1.8, 2.5, 4.5, 5.0, 6.2)
 #' sle(actual, predicted)
 sle <- function(actual, predicted) {
-    return((log(1 + actual) - log(1 + predicted)) ^ 2)
+    return((log1p(actual) - log1p(predicted)) ^ 2)
 }
 
 #' Mean Squared Log Error