opgave project1.R
screeplot and princomp have differing results?