% This script demonstrates the problem with sign_test() (incorrect p-value)
x = [1 1 1 -1 -1]
[pval, b, n] = sign_test(x, -x)
% Load statistics for signtest()
pkg load statistics;
pval2 = signtest(x, -x)