Delete fun1.r

old test rubbish