Adjuste code PCA

[iamandreatonina]

Need to adjust part of the code of PCA, some typo errors. Rows 361 - 370.
`PCA_cpm_log_filtered<-PCA_cpm_log[,which(apply(PCA_cpm_log, 2, var) != 0)]
PCA_cpm_log_filtered<- PCA_cpm_log_filtered[which(apply(PCA_cpm_log_filtered, 1, var) != 0),]
color<- c(rep('darkgreen',88),rep('indianred',1082))

PCA_cpm_log_nonHS_filtered <- PCA_cpm_log_nonHS[,which(apply(PCA_cpm_log_nonHS, 2, var) != 0)]
PCA_cpm_log_nonHS_filtered <- PCA_cpm_log_nonHS[which(apply(PCA_cpm_log_nonHS, 1, var) != 0),]

PCA_cpm_log_woHS_filtered <- PCA_cpm_log_woHS[,which(apply(PCA_cpm_log_woHS, 2, var) != 0)]
PCA_cpm_log_woHS_filtered <- PCA_cpm_log_woHS[which(apply(PCA_cpm_log_woHS, 1, var) != 0),]
`