Я создал функцию, которая сохраняет следующие точки в списке. Теперь я хотел бы построить сюжет из этих точек. Однако я хотел бы изменить цвета каждой точки из любой цветовой палитры. Есть функция:
CreatePath <- function (f1, x0, nStep){
f1 <- function( x){
c( sin( x[1] + x[2]), cos( x[2]) + sin( x[1]))}
x0 <- c( 1, 2)
p1 <- list (x0)
nStep <- 25
k <- 0
while (k < nStep-1) {
k <- k +1
p1 <- c (p1, list (f1 (p1 [[length(p1)]])))
}
p1
}