Naive Principal Component Analysis in R