%% Analisi del dataset delle lavatrici
Y=readtable('lavatrici.xlsx','Sheet','dati','Range','A1:G17','ReadRowNames',true);
outLavatrici=pcaFS(Y);


%% Dataset dei wafer
X=readtable('wafer.txt','ReadRowNames',true);
% grafico in coordinate parallele
parallelplot(X)
% Matrice dei diagrammi di dispersione
spmplot(X)

outWafer=pcaFS(X);
plo=struct;
plo.label=X.Properties.RowNames;
% spmplot con etichette
% spmplot(X,'plo',plo,'selunit',1:n)



%% Dataset scrittori
Xtable=readtable('scrittori.xlsx','ReadRowNames',1,'Sheet','dati','Range','A2:G18','VariableNamingRule','preserve');
% grafico in coordinate parallele
parallelplot(Xtable)
% Matrice dei digrammi di dispersione
spmplot(Xtable)
outScrittori=pcaFS(Xtable);