Create Rforensic.R