r scripts and results