Попытка выполнить производную над массивом, это код, который я произвел:
x <- c(30, 50, 60, 70, 80, 85, 87, 88, 90, 91, 91.5, 91.8)
Der <- function(x) {
z <- array()
i <- 1
x <- c(NA, x)
for (i in length(x)) {
d<- x[i+1] - x[i]
z[i] <- d
i <- i +1
}
x <- z[2:length(z)]
return(x)
}
y <- Der(x)
Может кто-нибудь сказать мне, где я иду не так?
Приветствия