comparison ks_distribution.R @ 30:62bb454ad4e9 draft

Uploaded

29:96e1400d3125

{
	pi <- items[1]
	mu <- items[2]
	var <- items[3]
}
if (number_comp == 2)
{
	pi <- items[1:2]
	mu <- items[3:4]
	var <- items[5:6]
}
if (number_comp == 3)
{
	pi <- items[1:3]
	mu <- items[4:6]
	var <- items[7:9]
}
if (number_comp == 4)
{
	pi <- items[1:4]
	mu <- items[5:8]
	var <- items[9:12]
}
if (number_comp == 5)
{
	pi <- items[1:5]
	mu <- items[6:10]
	var <- items[11:15]
}
if (number_comp == 6)
{
	pi <- items[1:6]
	mu <- items[7:12]
	var <- items[13:18]
}

30:62bb454ad4e9

{
	pi <- items[1]
	mu <- items[2]
	var <- items[3]
}
else if (number_comp == 2)
{
	pi <- items[1:2]
	mu <- items[3:4]
	var <- items[5:6]
}
else if (number_comp == 3)
{
	pi <- items[1:3]
	mu <- items[4:6]
	var <- items[7:9]
}
else if (number_comp == 4)
{
	pi <- items[1:4]
	mu <- items[5:8]
	var <- items[9:12]
}
else if (number_comp == 5)
{
	pi <- items[1:5]
	mu <- items[6:10]
	var <- items[11:15]
}
else if (number_comp == 6)
{
	pi <- items[1:6]
	mu <- items[7:12]
	var <- items[13:18]
}