Update findoutcredate.R