add the sidap_firstRun.R source code