RosettaCodeData/Task/Apply-a-callback-to-an-array/R/apply-a-callback-to-an-array-2.r

cubes <- numeric(5)
for(i in seq_along(cubes))
{
   cubes[i] <- cube(elements[i])
}