Create PCAwithR.tex