library(TurtleGraphics) turtle_init(400, 400, mode="clip") turtle_hide() star <- function(N, size, angle, R,initial_angle) { turtle_up() turtle_move(R) # put the pen down turtle_down() # point in direction 130 degrees turtle_setangle(initial_angle) # repeat 40 times for(i in 1:N) { # move 200 steps turtle_move(size) # turn right 130 degrees turtle_right(angle) } }