3d Gaussian classification (RGB)

Visualize distributions

gobj1 = PlotRepresentativeSample3D[data1, 2000, pointStyle1] ; gobj2 = PlotRepresentativeSample3D[data2, 2000, pointStyle2] ; gdist1 = Show[{gobj1, gobj2}, yS, ImageSize288] ;

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

Gaussian pdfs

Image classification

class1 = ClassifyImage3DAugmented[obj1, lpdf1, lpdf2] ; class2 = ClassifyImage3DAugmented[obj2, lpdf1, lpdf2] ; Show[GraphicsArray[{{obj1, class1}, {obj2, class2}}], ImageSize400] ;

[Graphics:../HTMLFiles/index_51.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_54.gif]

Created by Mathematica  (September 8, 2003)