Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: Using Nearest function
Replies: 0

 Dário Abdulrehman Posts: 8 Registered: 5/26/10
Using Nearest function
Posted: Jun 7, 2010 8:06 AM

This is my first attempt at writing Mathematica code but I am getting
strange results which are probably due to some bug I cannot detect.

This code creates a test set with 2 classes and size 1000 from a Bivariate
Gaussian distribution then creates 6 training sets with 2 classes and sizes
10^i, i = 1..6.

Then I run the Nearest neighbor algorithm on each train set and test set and
compute the error rate.

However, as you can see from the table at the end, I get error rates that
don't make much sense. I might as well flip a coin instead of running the
algorithm.
Unfortunately I cannot spot the bug in the code.

Thanks.
****************************************************
(* Code *)

Needs["MultivariateStatistics`"];

m = 6;
testSize = 1000;

MN1=MultinormalDistribution[{0.5,0.5},(1 0
0 1

)];
MN2=MultinormalDistribution[{-0.5,-0.5},(1 0
0 1

)];

RandomVector[n_]:=Join[Array[RandomReal[MN1]&,n/2],

Array[RandomReal[MN2]&,n/2]];

testSet = RandomVector[testSize];
trainingSets=Map[Function[x,RandomVector[x]],NestList[10 #&,10,m-1]];

classOf[i_] = If[i<=(testSize/2),1,2];

NN[trainingSet_]:=Module[{nnFunc=Nearest[trainingSet->Automatic]},
N[Fold[Plus,0,MapIndexed[If
[classOf[First[nnFunc[#1]]]!=classOf[First[#2]],1,0]&,testSet]]/testSize]]

Grid[{Prepend[NestList[10
#&,10,m-1],"m"],Prepend[Map[Function[trainingSet,NN[trainingSet]],trainingSets],"error
rate"]},Frame->All]

m 10 100 1000 10000 100000 1000000
error rate 0.5 0.5 0.322 0.484 0.499 0.501