updated definition

This commit is contained in:
Andy Eschbacher
2015-08-25 23:10:26 -04:00
parent db323f3e13
commit d723487f67
+4 -3
View File
@@ -5,9 +5,10 @@
-- --
-- Returns: statistical quantity chosen -- Returns: statistical quantity chosen
-- --
-- References: http://www.itl.nist.gov/div898/handbook/eda/section3/eda35b.htm
-- --
-- Calculate Pearson's moment coefficient of kurtosis -- Calculate kurtosis
CREATE OR REPLACE FUNCTION CDB_Kurtosis ( in_array NUMERIC[] ) RETURNS NUMERIC as $$ CREATE OR REPLACE FUNCTION CDB_Kurtosis ( in_array NUMERIC[] ) RETURNS NUMERIC as $$
DECLARE DECLARE
a numeric; a numeric;
@@ -19,7 +20,7 @@ BEGIN
RAISE NOTICE 'avg: %, cnt: %, std: %', a, c, s; RAISE NOTICE 'avg: %, cnt: %, std: %', a, c, s;
EXECUTE 'SELECT sum(power($1 - e, 4)) / ( $2 * power($3, 4)) EXECUTE 'SELECT sum(power($1 - e, 4)) / ( $2 * power($3, 4)) - 3
FROM (SELECT unnest($4) e ) x' FROM (SELECT unnest($4) e ) x'
INTO k INTO k
USING a, c, s, in_array; USING a, c, s, in_array;
@@ -28,7 +29,7 @@ BEGIN
END; END;
$$ language plpgsql IMMUTABLE; $$ language plpgsql IMMUTABLE;
-- Calculate Pearson's moment coefficient of skewness -- Calculate skewness
CREATE OR REPLACE FUNCTION CDB_Skewness ( in_array NUMERIC[] ) RETURNS NUMERIC as $$ CREATE OR REPLACE FUNCTION CDB_Skewness ( in_array NUMERIC[] ) RETURNS NUMERIC as $$
DECLARE DECLARE
a numeric; a numeric;