Une solution de ce style devrait faire l'affaire



x = rnorm(1000)
n = length(x)
cste = 1/length(x)
angle = vector()

for(i in 2:(n-3)){