Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- SeedRandom["ColorData problem aah help"]
- data=RandomVariate[LogisticDistribution[.007,.01],{1200,2}];
- dataClustered=FindClusters[data,4,DistanceFunction->EuclideanDistance];
- ListPlot[dataClustered,PlotStyle->"PlumColors"]
- Directive[Opacity->.3,PointSize->.015]
Add Comment
Please, Sign In to add comment