hyphy-common 2.2.7+dfsg-1 / usr / share / hyphy / ChartAddIns / KH Resampler

This file is indexed.

/usr/share/hyphy/ChartAddIns/KH Resampler is in hyphy-common 2.2.7+dfsg-1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below. 

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
if (NON_EMPTY_SELECTION)
{
	data_rows  	 = Columns 	(SELECTED_CHART_ROWS);

	if (data_rows % 2 == 0)
	{
		temp = -1;
		data_columns = -1;
		
		for (count = 0; count<data_rows; count = count+1)
		{
			temp2 = SELECTED_CHART_COLS[count];
			if (temp<0)
			{
				temp = temp2;
			}
			else
			{
				if (temp!=temp2)
				{
					if (data_columns<0)
					{
						data_columns = temp2;
					}
					else
					{
						if (temp2!=data_columns)
						{
							break;
						}
					}
				}
			}
		}
		
		if ((count == data_rows)&&(data_columns>=0)&&(temp>=0))
		{
			for (count = 0; count < data_rows; count = count+2)
			{
				if (SELECTED_CHART_ROWS[count]!=SELECTED_CHART_ROWS[count+1])
				{
					break;
				}
			}
			if (count==data_rows)
			{
			
				SELECTED_CHART_ROWS = {2,data_rows/2};
				for (count = 0; count < data_rows; count = count+2)
				{
					SELECTED_CHART_ROWS[0][count/2]=SELECTED_CHART_DATA[count];
					SELECTED_CHART_ROWS[1][count/2]=SELECTED_CHART_DATA[count+1];
				}
				SELECTED_CHART_DATA = SELECTED_CHART_ROWS;
				sumVec = {Columns(SELECTED_CHART_DATA),1};
				
				for (count = Columns(SELECTED_CHART_DATA)-1; count >=0 ; count = count - 1)
				{
					sumVec[count] = 1;
				} 
				
				scd = SELECTED_CHART_DATA;
				fprintf (stdout, "How many samples should be generated?");
				fscanf  (stdin, "Number", samples);
				resampledLRT = {samples,3};
				for (count = 0; count < samples; count = count + 1)
				{
					resampled = Random(SELECTED_CHART_DATA,1)*sumVec;
					resampledLRT[count][0] = resampled[0];
					resampledLRT[count][1] = resampled[1];
					resampledLRT[count][2] = resampled[1]-resampled[0];
				}
				
				labels = {{"Model_1", "Model_2", "Model_2 - Model_1"}};


				OpenWindow (CHARTWINDOW,{{"Resampled LRT"}
					{"labels"}
					{"resampledLRT"}
					{"Bar Chart"}
					{"Index"}
					{labels[2]}
					{"Index"}
					{"LRT"}
					{"LRT"}
					{""}
					{""}
					{""}
					{"10;1.309;0.785398"}
					{"Times:12:0;Times:10:0;Times:14:2"}
					{"0;0;16777215;5000268;0;0;6750054;11842740;13158600;14474460;0;3947580;16777215;0;5000268;11776947;10066329;9199669;7018159;1460610;16748822;11184810;14173291"}
					{"16"}
					},
					"SCREEN_WIDTH-150;SCREEN_HEIGHT-150;100;100");

				return;
			}
		}
	}

	fprintf (stdout, "Please select two columns of data.\n");
}
else
{
	NON_EMPTY_SELECTION = -1;
}

APT Browse - Built by Thomas Orozco.