protected override void EndProcessing()
{
var hypo = TestingHelper.GetTwoSampleHypothesis(Alternate);
TwoSampleWilcoxonSignedRankTest test;
if (ParameterSetName == "Pipeline")
{
test = new TwoSampleWilcoxonSignedRankTest(
_data[Sample1Name].ToDoubleArray(),
_data[Sample2Name].ToDoubleArray(),
hypo,
(Exact ? true : (Nullable <bool>)null),
!NoAdjustForTies);
}
else
{
test = new TwoSampleWilcoxonSignedRankTest(
Sample1,
Sample2,
hypo,
(Exact ? true : (Nullable <bool>)null),
!NoAdjustForTies);
}
test.Size = Size;
WriteObject(test);
}
public void WilcoxonSignedRankTestConstructorTest()
{
// Example from http://en.wikipedia.org/wiki/Wilcoxon_signed-rank_test
double[] sample1 = { 125, 115, 130, 140, 140, 115, 140, 125, 140, 135 };
double[] sample2 = { 110, 122, 125, 120, 140, 124, 123, 137, 135, 145 };
TwoSampleHypothesis alternate = TwoSampleHypothesis.ValuesAreDifferent;
var target = new TwoSampleWilcoxonSignedRankTest(sample1, sample2, alternate);
// Wikipedia uses an alternate definition for the W statistic. The framework
// uses the positive W statistic. There is no difference, if the proper
// respective statistical tables (or distributions) are followed.
Assert.AreEqual(27, target.Statistic);
Assert.IsFalse(target.Significant);
}
public void WilcoxonSignedRankTestConstructorTest2()
{
// Example from http://vassarstats.net/textbook/ch12a.html
double[] sample1 = { 78, 24, 64, 45, 64, 52, 30, 50, 64, 50, 78, 22, 84, 40, 90, 72 };
double[] sample2 = { 78, 24, 62, 48, 68, 56, 25, 44, 56, 40, 68, 36, 68, 20, 58, 32 };
TwoSampleHypothesis alternate = TwoSampleHypothesis.FirstValueIsSmallerThanSecond;
var target = new TwoSampleWilcoxonSignedRankTest(sample1, sample2, alternate);
// The referred example uses the summed W statistic. The framework
// uses the positive W statistic. There is no difference, if proper
// respective statistical tables (or distributions) are followed.
Assert.AreEqual(86, target.Statistic); // W = 67
Assert.AreEqual(14, target.Samples);
Assert.IsTrue(target.Significant);
Assert.IsTrue(target.PValue > 0.01 && target.PValue < 0.05);
}
public void WilcoxonSignedRankTestConstructorTest3()
{
// Example from http://courses.wcupa.edu/rbove/Berenson/CD-ROM%20Topics/topice-10_5.pdf
double[] sample1 = { 9.98, 9.88, 9.84, 9.99, 9.94, 9.84, 9.86, 10.12, 9.90, 9.91 };
double[] sample2 = { 9.88, 9.86, 9.75, 9.80, 9.87, 9.84, 9.87, 9.86, 9.83, 9.86 };
var target = new TwoSampleWilcoxonSignedRankTest(sample1, sample2,
alternate: TwoSampleHypothesis.FirstValueIsSmallerThanSecond);
Assert.AreEqual(TwoSampleHypothesis.FirstValueIsSmallerThanSecond, target.Hypothesis);
double[] delta = { 0.1, 0.02, 0.09, 0.19, 0.07, 0, 0.01, 0.26, 0.07, 0.05 };
double[] ranks = { 7, 2, 6, 8, 4.5, 0, 1, 9, 4.5, 3 };
int[] signs = { +1, +1, +1, +1, +1, 0, -1, +1, +1, +1 };
Assert.IsTrue(delta.IsEqual(target.Delta, 1e-6));
Assert.IsTrue(ranks.IsEqual(target.Ranks, 1e-6));
Assert.IsTrue(signs.IsEqual(target.Signs));
Assert.AreEqual(44, target.Statistic);
Assert.IsTrue(target.Significant);
}
public void WilcoxonSignedRankTestConstructorTest4()
{
// Example from http://mlsc.lboro.ac.uk/resources/statistics/wsrt.pdf
double[] sample1 = { 2.0, 3.6, 2.6, 2.6, 7.3, 3.4, 14.9, 6.6, 2.3, 2.0, 6.8, 08.5 };
double[] sample2 = { 3.5, 5.7, 2.9, 2.4, 9.9, 3.3, 16.7, 6.0, 3.8, 4.0, 9.1, 20.9 };
var target = new TwoSampleWilcoxonSignedRankTest(sample2, sample1);
Assert.AreEqual(TwoSampleHypothesis.ValuesAreDifferent, target.Hypothesis);
double[] diffs = { +1.5, +2.1, +0.3, 0.2, +2.6, 0.1, +1.8, 0.6, +1.5, +2.0, +2.3, +12.4 };
int[] signs = { +1, +1, +1, -1, +1, -1, +1, -1, +1, +1, +1, +1 };
Assert.IsTrue(diffs.IsEqual(target.Delta, 1e-6));
Assert.IsTrue(signs.IsEqual(target.Signs));
Assert.AreEqual(71, target.Statistic);
Assert.AreEqual(0.01, target.PValue, 1e-2);
Assert.IsTrue(target.Significant);
}
public void gh848_compatibility_with_r()
{
// https://github.com/accord-net/framework/issues/848
var s1 = new double[]
{
600, 250, 550, 350, 300, 400, 300, 100, 250, 400, 200, 650, 300, 250, 550,
100, 450, 500, 300, 250, 750, 300, 450, 450, 150, 450, 450, 200, 450, 200,
500, 500, 300, 250, 250
};
var s2 = new double[]
{
250, 300, 550, 450, 300, 300, 450, 250, 50, 400, 250, 650, 300, 200, 450,
100, 350, 150, 300, 150, 500, 200, 450, 400, 200, 300, 350, 300, 250, 500,
450, 500, 250, 50, 50
};
var r1 = new TwoSampleWilcoxonSignedRankTest(s1, s2, exact: false);
Assert.AreEqual(258, r1.Statistic);
Assert.AreEqual(true, r1.HasZeros);
Assert.AreEqual(true, r1.HasTies);
Assert.AreEqual(0.0361, r1.PValue, 5e-3);
var r2 = new TwoSampleWilcoxonSignedRankTest(s1, s2, exact: false,
alternate: TwoSampleHypothesis.FirstValueIsGreaterThanSecond);
Assert.AreEqual(true, r2.HasZeros);
Assert.AreEqual(true, r2.HasTies);
Assert.AreEqual(0.01805, r2.PValue, 5e-3);
var r3 = new TwoSampleWilcoxonSignedRankTest(s1, s2, exact: false,
alternate: TwoSampleHypothesis.FirstValueIsSmallerThanSecond);
Assert.AreEqual(true, r3.HasZeros);
Assert.AreEqual(true, r3.HasTies);
Assert.AreEqual(0.9831, r3.PValue, 5e-3);
}
public void gh849_crashing_same_value()
{
// https://github.com/accord-net/framework/issues/848
var s1 = new double[]
{
1, 1, 5, 3, 1
};
var s2 = new double[]
{
1, 1, 5, 3, 1
};
var target = new TwoSampleWilcoxonSignedRankTest(s1, s2, exact: false);
Assert.AreEqual(0, target.Statistic);
Assert.AreEqual(true, target.HasZeros);
Assert.AreEqual(false, target.HasTies);
Assert.AreEqual(Double.NaN, target.PValue);
target = new TwoSampleWilcoxonSignedRankTest(s1, s2, exact: false,
alternate: TwoSampleHypothesis.FirstValueIsGreaterThanSecond);
Assert.AreEqual(true, target.HasZeros);
Assert.AreEqual(false, target.HasTies);
Assert.AreEqual(Double.NaN, target.PValue);
target = new TwoSampleWilcoxonSignedRankTest(s1, s2, exact: false,
alternate: TwoSampleHypothesis.FirstValueIsSmallerThanSecond);
Assert.AreEqual(true, target.HasZeros);
Assert.AreEqual(false, target.HasTies);
Assert.AreEqual(Double.NaN, target.PValue);
string expectedMessage = "An exact test cannot be computed when there are zeros in the samples (or when paired samples are the same in a paired test).";
Assert.Throws <ArgumentException>(() => new TwoSampleWilcoxonSignedRankTest(s1, s2, exact: true), expectedMessage);
Assert.Throws <ArgumentException>(() => new TwoSampleWilcoxonSignedRankTest(s1, s2, exact: true, alternate: TwoSampleHypothesis.FirstValueIsGreaterThanSecond), expectedMessage);
Assert.Throws <ArgumentException>(() => new TwoSampleWilcoxonSignedRankTest(s1, s2, exact: true, alternate: TwoSampleHypothesis.FirstValueIsSmallerThanSecond), expectedMessage);
}
public void WilcoxonSignedRankTestConstructorTest2()
{
// Example from http://vassarstats.net/textbook/ch12a.html
double[] sample1 = { 78, 24, 64, 45, 64, 52, 30, 50, 64, 50, 78, 22, 84, 40, 90, 72 };
double[] sample2 = { 78, 24, 62, 48, 68, 56, 25, 44, 56, 40, 68, 36, 68, 20, 58, 32 };
TwoSampleHypothesis alternate = TwoSampleHypothesis.FirstValueIsSmallerThanSecond;
var target = new TwoSampleWilcoxonSignedRankTest(sample1, sample2, alternate);
// The referred example uses the summed W statistic. The framework
// uses the positive W statistic. There is no difference, if proper
// respective statistical tables (or distributions) are followed.
Assert.AreEqual(86, target.Statistic); // W = 67
Assert.AreEqual(14, target.NumberOfSamples);
Assert.IsFalse(target.Significant);
Assert.AreEqual(0.98359499014987062, target.PValue, 1e-8);
/*
* a <- c(78, 24, 64, 45, 64, 52, 30, 50, 64, 50, 78, 22, 84, 40, 90, 72)
* b <- c(78, 24, 62, 48, 68, 56, 25, 44, 56, 40, 68, 36, 68, 20, 58, 32)
* wilcox.test(a,b, paired=TRUE, alternative="less") # 0.9836
*/
}
private void Button_Click(object sender, RoutedEventArgs e)
{
List <double> vpop1 = new List <double>();
List <double> vpop2 = new List <double>();
try
{
//Try comma separated instead
var TextScores = pop1.Text.Replace(" ", string.Empty).Split(',').ToList();
foreach (var S in TextScores)
{
vpop1.Add(double.Parse(S));
}
TextScores = pop2.Text.Replace(" ", string.Empty).Split(',').ToList();
foreach (var S in TextScores)
{
vpop2.Add(double.Parse(S));
}
}
catch
{
return;
}
var Hypo = TwoSampleHypothesis.FirstValueIsGreaterThanSecond;
switch (((Button)sender).Content.ToString())
{
case "Dif":
Hypo = TwoSampleHypothesis.ValuesAreDifferent;
break;
case "Less":
Hypo = TwoSampleHypothesis.FirstValueIsSmallerThanSecond;
break;
case "More":
Hypo = TwoSampleHypothesis.FirstValueIsGreaterThanSecond;
break;
default:
break;
}
dynamic test, testWilcoxon;
if (vpop1.Count == vpop2.Count)
{
test = new PairedTTest(vpop1.ToArray(), vpop2.ToArray(), Hypo);
testWilcoxon = new TwoSampleWilcoxonSignedRankTest(vpop1.ToArray(), vpop2.ToArray(), Hypo);
}
else
{
test = new TTest(
vpop1.ToArray(),
vpop2[0],
OneSampleHypothesis.ValueIsSmallerThanHypothesis);
testWilcoxon = new WilcoxonSignedRankTest(
vpop1.ToArray(),
vpop2[0],
OneSampleHypothesis.ValueIsSmallerThanHypothesis);
}
results.Text = "T-Test:\n Significant: " + test.Significant + "\n p-value: " + test.PValue +
"\nMannWhitneyWilcoxon Test:\n Significant: " + testWilcoxon.Significant + "\n p-value: " + testWilcoxon.PValue;
}
public void gh389_compatibility_with_r()
{
double[] sample1 = { 2.0, 3.6, 2.6, 2.6, 7.3, 3.4, 14.9, 6.6, 2.3, 2.0, 6.8, 08.5 };
double[] sample2 = { 3.5, 5.7, 2.9, 2.4, 9.9, 3.3, 16.7, 6.0, 3.8, 4.0, 9.1, 20.9 };
/*
* a <- c(2.0, 3.6, 2.6, 2.6, 7.3, 3.4, 14.9, 6.6, 2.3, 2.0, 6.8, 08.5)
* b <- c(3.5, 5.7, 2.9, 2.4, 9.9, 3.3, 16.7, 6.0, 3.8, 4.0, 9.1, 20.9)
* wilcox.test(a, b, paired=TRUE)
*
*/
TwoSampleWilcoxonSignedRankTest target;
target = new TwoSampleWilcoxonSignedRankTest(sample1, sample2, TwoSampleHypothesis.ValuesAreDifferent, exact: false);
Assert.AreEqual(TwoSampleHypothesis.ValuesAreDifferent, target.Hypothesis);
Assert.IsFalse(target.HasZeros);
Assert.IsTrue(target.HasTies);
Assert.AreEqual(0.01344, target.PValue, 1e-4); // wilcox.test(a,b, paired=TRUE)
target = new TwoSampleWilcoxonSignedRankTest(sample1, sample2, TwoSampleHypothesis.FirstValueIsGreaterThanSecond, exact: false);
Assert.IsFalse(target.HasZeros);
Assert.IsTrue(target.HasTies);
Assert.AreEqual(TwoSampleHypothesis.FirstValueIsGreaterThanSecond, target.Hypothesis);
Assert.AreEqual(0.9946, target.PValue, 1e-4); // wilcox.test(a,b, paired=TRUE, alternative='greater')
target = new TwoSampleWilcoxonSignedRankTest(sample1, sample2, TwoSampleHypothesis.FirstValueIsSmallerThanSecond, exact: false);
Assert.IsFalse(target.HasZeros);
Assert.IsTrue(target.HasTies);
Assert.AreEqual(TwoSampleHypothesis.FirstValueIsSmallerThanSecond, target.Hypothesis);
Assert.AreEqual(0.006718, target.PValue, 1e-4); // wilcox.test(a,b, paired=TRUE, alternative='less')
target = new TwoSampleWilcoxonSignedRankTest(sample1, sample2, adjustForTies: false);
Assert.IsFalse(target.HasZeros);
Assert.IsTrue(target.HasTies);
Assert.IsTrue(target.StatisticDistribution.Exact);
Assert.AreEqual(TwoSampleHypothesis.ValuesAreDifferent, target.Hypothesis);
Assert.AreEqual(0.00927734375, target.PValue, 1e-8);
target = new TwoSampleWilcoxonSignedRankTest(sample1, sample2,
TwoSampleHypothesis.FirstValueIsGreaterThanSecond, adjustForTies: false);
Assert.IsFalse(target.HasZeros);
Assert.IsTrue(target.HasTies);
Assert.IsTrue(target.StatisticDistribution.Exact);
Assert.AreEqual(TwoSampleHypothesis.FirstValueIsGreaterThanSecond, target.Hypothesis);
Assert.AreEqual(0.99658203125, target.PValue, 1e-8);
target = new TwoSampleWilcoxonSignedRankTest(sample1, sample2,
TwoSampleHypothesis.FirstValueIsSmallerThanSecond, adjustForTies: false);
Assert.IsFalse(target.HasZeros);
Assert.IsTrue(target.HasTies);
Assert.IsTrue(target.StatisticDistribution.Exact);
Assert.AreEqual(TwoSampleHypothesis.FirstValueIsSmallerThanSecond, target.Hypothesis);
Assert.AreEqual(0.004638671875, target.PValue, 1e-8);
target = new TwoSampleWilcoxonSignedRankTest(sample1, sample2,
TwoSampleHypothesis.ValuesAreDifferent, adjustForTies: false);
Assert.IsFalse(target.HasZeros);
Assert.IsTrue(target.HasTies);
Assert.IsTrue(target.StatisticDistribution.Exact);
Assert.AreEqual(TwoSampleHypothesis.ValuesAreDifferent, target.Hypothesis);
Assert.AreEqual(0.00927734375, target.PValue, 1e-8);
target = new TwoSampleWilcoxonSignedRankTest(sample1, sample2, TwoSampleHypothesis.FirstValueIsGreaterThanSecond, exact: true);
Assert.IsFalse(target.HasZeros);
Assert.IsTrue(target.HasTies);
Assert.AreEqual(TwoSampleHypothesis.FirstValueIsGreaterThanSecond, target.Hypothesis);
Assert.AreEqual(0.996337890625, target.PValue, 1e-8);
target = new TwoSampleWilcoxonSignedRankTest(sample1, sample2, TwoSampleHypothesis.FirstValueIsSmallerThanSecond, exact: true);
Assert.IsFalse(target.HasZeros);
Assert.IsTrue(target.HasTies);
Assert.AreEqual(TwoSampleHypothesis.FirstValueIsSmallerThanSecond, target.Hypothesis);
Assert.AreEqual(0.00439453125, target.PValue, 1e-8);
target = new TwoSampleWilcoxonSignedRankTest(sample1, sample2, TwoSampleHypothesis.ValuesAreDifferent, exact: true);
Assert.IsFalse(target.HasZeros);
Assert.IsTrue(target.HasTies);
Assert.AreEqual(TwoSampleHypothesis.ValuesAreDifferent, target.Hypothesis);
Assert.AreEqual(0.0087890625, target.PValue, 1e-8);
}
public static ChartValues <ObservablePoint> PValues(List <MainAnalysisObject> MAS, TwoSampleHypothesis Hypo = TwoSampleHypothesis.FirstValueIsGreaterThanSecond)
{
if (MAS == null || MAS.Count < 2)
{
return(null);
}
var GraphA = MAS[0];
var GraphB = MAS[1];
if (GraphA.GACs.Count != GraphB.GACs.Count)
{
return(null);
}
var res = new ChartValues <ObservablePoint>();
//Get MaxRange
double MaxEvals = double.PositiveInfinity;
double MinEvals = double.PositiveInfinity;
foreach (var M in MAS)
{
MaxEvals = Math.Min(M.GetSeries("ParetoFrontAnalysis").Last().X, MaxEvals);
MinEvals = Math.Min(M.GetSeries("ParetoFrontAnalysis").First().X, MinEvals);
}
double Step = Math.Max((MaxEvals - MinEvals) / 100, 1);
for (double Evals = MinEvals; Evals <= MaxEvals; Evals += Step)
{
var PerRunFitnessesA = new List <double>();
var PerRunFitnessesB = new List <double>();
for (int i = 0; i < GraphA.GACs.Count; i++)
{
bool AddedToA = false;
bool AddedToB = false;
var PFA = ParetoFrontAnalysis.GetParetoFront(GraphA.GACs[i]);
var PFB = ParetoFrontAnalysis.GetParetoFront(GraphB.GACs[i]);
double ValY = -1;
/*foreach(var Val in PFA)
* {
* if(Val.X > Evals)
* {
* PerRunFitnessesA.Add(Val.Y);
* AddedToA = true;
* break;
* }
* }*/
foreach (var Val in PFA)
{
if (Val.X <= Evals)
{
ValY = Val.Y;
AddedToA = true;
}
else
{
break;
}
}
if (!AddedToA)
{
PerRunFitnessesA.Add(PFA.Last().Y);
}
else
{
PerRunFitnessesA.Add(ValY);
}
/*foreach (var Val in PFB)
* {
* if (Val.X > Evals)
* {
* PerRunFitnessesB.Add(Val.Y);
* AddedToB = true;
* break;
* }
* }*/
foreach (var Val in PFB)
{
if (Val.X <= Evals)
{
ValY = Val.Y;
AddedToB = true;
}
else
{
break;
}
}
if (!AddedToB)
{
PerRunFitnessesB.Add(PFB.Last().Y);
}
else
{
PerRunFitnessesB.Add(ValY);
}
}
if (PerRunFitnessesA.Except(PerRunFitnessesB).Count() == 0)
{
res.Add(new ObservablePoint(Evals, 0.5));
}
else
{
var WilcoxonTest = new TwoSampleWilcoxonSignedRankTest(PerRunFitnessesA.ToArray(), PerRunFitnessesB.ToArray(), Hypo, false, true);
//var KolmogTest = new TwoSampleKolmogorovSmirnovTest(PerRunFitnessesA.ToArray(), PerRunFitnessesB.ToArray(), TwoSampleKolmogorovSmirnovTestHypothesis.FirstSampleIsSmallerThanSecond);
//var MannTest = new MannWhitneyWilcoxonTest(PerRunFitnessesA.ToArray(), PerRunFitnessesB.ToArray(), TwoSampleHypothesis.FirstValueIsSmallerThanSecond);
//var WelchTest = new Accord.Statistics.Testing.TwoSampleWilcoxonSignedRankTest(PerRunFitnessesA.ToArray(), PerRunFitnessesB.ToArray());
res.Add(new ObservablePoint(Evals, WilcoxonTest.PValue));
}
}
return(res);
}
