Langage R - écrire une fonction

En fait, je ne vois pas où est l'erreur dans cette fonction :

f<-function(x) {
+ + y=rep(0, length(x))
+ + for (i in 1:(length(x))) {
+ y[i]<-((x[i] - mean(x))^4)}
+ return (sum y)}

Voici la bonne façon de faire:

f=function(x){
	lenx=length(x)
	meanx=mean(x) #evite de refaire la moyenne a chaque iteration
	y=NULL #Cree un vecteur vide

	for(i in 1:lenx){
		y[i]=(x[i]-meanx)^4
	}
	return(sum(y))
}