Data Exploration

PCA on Ethanol (all batches sensor 1)

ethanol.num.s1 <- subset(ethanol, select=c(S1DR, S1NDR, S1I_001, S1I_01, S1I_1, S1D_001, S1D_01, S1D_1)); pca <- princomp(~ ., data=ethanol.num.s1,scale=TRUE, center=TRUE); summary(pca,loadings=T)

Importance of components: Comp.1 Comp.2 Comp.3 Comp.4 Comp.5 Comp.6 Comp.7 Comp.8 Standard deviation 4.210380e+04 6.685728e+01 2.821223e+01 2.357205e+01 5.420127e+00 3.189903e+00 1.264809e+00 8.366698e-01 Proportion of Variance 9.999967e-01 2.521468e-06 4.489840e-07 3.134373e-07 1.657200e-08 5.739988e-09 9.024141e-10 3.948792e-10 Cumulative Proportion 9.999967e-01 9.999992e-01 9.999997e-01 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00 1.000000e+00

Loadings: Comp.1 Comp.2 Comp.3 Comp.4 Comp.5 Comp.6 Comp.7 Comp.8 S1DR 1.000
S1NDR 0.998
S1I_001 -0.279 -0.294 0.127 0.905 S1I_01 -0.170 -0.625 -0.640 -0.144 -0.387 S1I_1 -0.981 0.120 0.121
S1D_001 0.274 -0.158 -0.934 0.165 S1D_01 -0.104 0.659 -0.679 0.300
S1D_1 -0.991

PCA on Ethanol (batch 1 sensor 1)