Create findoutcredate.R