Update download and get cor with stage.R

stage