Demonstrace MSA 14. 1. 2010

Directory[]

SetDirectory[NotebookDirectory[]]

Demonstrace nutno stahnout z

http://demonstrations.wolfram.com/

Do SEARCH zadat napr. PrincipalComponents

Documentation Center

MultivariateStatistics/tutorial/MultivariateStatistics

<<MultivariateStatistics`

data=N[{{1232,4175},{1115,6652},{2205,7612},{1897,10914},{1932,10850},{1612,7627},{1598,6954},{1804,8365},{1752,9469},{2067,6410},{2365,10327},{1646,7320},{1579,8196},{1880,9709},{1773,10370},{1712,7749},{1932,6818},{1820,9307},{1900,6457},{2426,10102},{1558,7414},{1470,7556},{1858,7833},{1587,8309},{2208,9559},{1487,6255},{2206,10723},{2332,5430},{2540,12090},{2322,10072}}];
datatr=Transpose[data];

Histogram3D[data,6]

Map[Histogram[#,7]&,datatr]

Principal components

pcdata=PrincipalComponents[data]
pcdatatr=Transpose[pcdata];

(covdata=Covariance[data])//MatrixForm

{Mean[pcdata],Variance[pcdata]}//TableForm

(covpcdata=Covariance[pcdata])//MatrixForm

eigenval=Eigenvalues[covdata]

(eigenvec=Eigenvectors[covdata])//MatrixForm

PrincipalComponents-source.nb

Discriminant Analysis

FisherDiscriminantAnalysis-source[1].nb

SignalDetectionTheory-source.nb

Hurt, J.: Discriminant Analysis and Multidimensional Scaling in:

http://library.wolfram.com/infocenter/Conferences/5777/

Factor Analysis

PairwiseAxesRotationsInFactorAnalysis-source.nb

Cluster Analysis

(* F1 *)FindClusters

tutorial/PartitioningDataIntoClusters

HierarchicalClustering/tutorial/HierarchicalClustering

ClusterAnalysisFor2DPoints-source.nb

Multidimensional Scaling

MultidimensionalScaling-source.nb

ObtuseAngleShadowingNetworksAndDistanceBasedInterpolation-source.nb

Working with Files

ResetDirectory[]

Directory[]

$Path

FileNames["*Example*",$Path,Infinity]

FileNames["*",{"C:\\Program Files\\Wolfram Research\\Mathematica\\7.0\\AddOns\\Packages"}]

ParentDirectory[]

SetDirectory["C:\\Program Files\\Wolfram Research\\Mathematica\\7.0\\AddOns\\Packages"];Directory[]

FileNames[]

ResetDirectory[]