<br />
f<-Vectorize(function(x,op=1){<br />
if (op==1){floor(x/10000)}else {format(as.Date(as.character(x),"%Y%m%d"),"%Y")}<br />
},vectorize.args ='x'<br />
)</p>
<p>data1<-data.frame(x=1:3,y=c(20080706,20080906,20090706))</p>
<p>f(data1$y,op=1)<br />
f(data1$y,op=2)</p>
<p>
</p>
