dim test = {{48.0, 47.0, 51.0, 0.0}, {48.0, 47.0, 51.0, 42.0, 0.0}}
TrueVal = 49.0

for i = 0 to 1
	Vari = 0.0
	Sum = 0.0
	c = 0
	while test[i,c] <> 0
		Vari += (test[i,c] - TrueVal) ^2
		Sum += test[i,c]
		c += 1
	end while
	AvgErr = Vari / c
	RefAvg = Sum / c
	CrowdErr = (TrueVal - RefAvg) ^2

	print "Average error : "; AvgErr
	print "  Crowd error : "; CrowdErr
	print "    Diversity : "; AvgErr - CrowdErr
	print
next i