2d Gaussian classification (RG plane)

Visualize distributions

which = {1, 2} ; gobj1 = PlotRepresentativeSample2D[data1, 2000, which, pointStyle1] ; gobj2 = ... meLabelNone, nS] ; gbase = Show[g1, g2, nS] ; Show[GraphicsArray[{g1, g2}], imSize, yS] ;

[Graphics:../HTMLFiles/index_35.gif]

Gaussian models

Extract 2d data

Compute pdfs

Visualize pdfs

ShowTwoGaussianPDFs[pdf1, pdf2, pr, x, y, yS, imSize] ;

[Graphics:../HTMLFiles/index_39.gif]

Classification in 2d

ShowTwoClassificationRegions[pdf1, pdf2, pr, x, y, classColors, gbase, AxesFalse, FrameTrue, FrameTicksFalse, yS] ;

[Graphics:../HTMLFiles/index_41.gif]

Image classification

class1 = ClassifyImage2DAugmented[obj1, pdf1, pdf2, {Red, Green}] ; class2 = ClassifyImage2DAu ... f2, {Red, Green}] ; Show[GraphicsArray[{{obj1, class1}, {obj2, class2}}], ImageSize400] ;

[Graphics:../HTMLFiles/index_43.gif]

Error plot

cnt1 = CountPixels[class1] ; cnt2 = CountPixels[class2] ;

bar = {cnt1, cnt2} // Transpose ; BarChart[bar[[1]], bar[[2]], BarStyle {pointStyle1[[ ... , FrameTrue, BarLabels {"Kellogs", "Tide"}, imSize] ;

[Graphics:../HTMLFiles/index_46.gif]

Created by Mathematica  (September 8, 2003)