From def75781c65a2a393a051eb135c4507496e9ad6f Mon Sep 17 00:00:00 2001
From: Jannes Reddig <jreddig1@gmail.com>
Date: Wed, 3 Jul 2019 08:27:14 +0200
Subject: [PATCH] Error in Fisher Skewness Formula

x in the formula should be (x-mean(x)) for the Fisher Skewness.
---
 R/skewness.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/skewness.R b/R/skewness.R
index f26d882..c89a31a 100644
--- a/R/skewness.R
+++ b/R/skewness.R
@@ -94,7 +94,7 @@ skewness <-
             if (n < 3)
                 skewness = NA
             else
-                skewness = ((sqrt(n*(n-1))/(n-2))*(sum(x^3)/n))/((sum(x^2)/n)^(3/2))
+                skewness = ((sqrt(n*(n-1))/(n-2))*(sum((x-mean(x))^3)/n)) / ((sum((x-mean(x))^2)/n)^(3/2))
         }
 	if (method == "sample") {
             skewness = sum((x-mean(x))^3/sqrt(var(x)*(n-1)/n)^3)*n/((n-1)*(n-2))