update results
delete unused r code