[R] Internal functions

[piotr iksiński]

I've complex problem and this's idealization of it:

v=1:10

fx<-function(x){
v[x]=v[x]*2}

fy<-function(y){
fx(y)}

for(i in 1:10){
fy(i)}

How to modife expresion (and only that):
{v[x]=v[x]^2}

to achive the redefinetion of the values of vector v, the result should 
be: v=(1:10)*2. I think, that could be done with using of internal 
functions, but I'm not the programmer.
Thanks for help
pg

----------------------------------------------------
Płyta CD i kartka pocztowa "Pocztówka do Św.Mikołaja 2007" już 
w sprzedaży. Kupując tę płytę pomagasz dzieciom 
z domów dziecka. wwW.pocztowkadoswietegomikolaja.pl
http://klik.wp.pl/?adr=http%3A%2F%2Fcorto.www.wp.pl%2Fas%2Fpocztowka.html&sid=122