This is what i\'ve created, but I don\'t think it works properly.
\'\'\'Mycode <- funtion(x){return (x) if (x>=y&x<=z)}\'\'\'
It should return fun