added download script to .R