working r scripts
pdf
file