Answer to Stackoverflow Question #44980505, R

Language: Layout:

#https://stackoverflow.com/questions/44980505/getting-slope-in-r-using-loops-and-conditionals/44981210#44981210
#acc <- data.frame(x=c(1, 2, 3,4), y=c(4, 3, 7,6))
x = sample(1:10,10)
y = sample(1:10,10)

acc = data.frame(x,y)
acc
n= nrow(acc)
n
if( (n==0) || (n < 3) )
   +     stop('The nrow(acc)  must be greater than 2')
    
#slope <- (acc$y[i+1] - acc$y[i]) / (acc$x[i+1] - acc$x[i])
stability <- as.vector(nrow(acc))

for (i in 1:(n-1)) {
 
  slope <- (acc$y[i+1] - acc$y[i]) / (acc$x[i+1] - acc$x[i])         
  
  if (slope > 0 && slope < 0.8) {
    stability[i] <- "low"
  } else if (slope >= 0.8 && slope <= 1) {
    stability[i] <- "high"
  } else if (slope > 1 && slope < 1.2) {
    stability[i] <- "high"
  } else if (slope >= 1.2) {
    stability[i] <- "low"
  } else if (slope >= -1 && slope <= -0.8) {
    stability[i] <- "high"
  } else if (slope >= -0.8 && slope <= 0) {
    stability[i] <- "low"
  } else if (slope < -1 && slope > -1.2) {
    stability[i] <- "high"
  } else
    stability[i] <- "low"
  print(sprintf("i=%d , stability=%s",i,stability[i]))
}

[ + ] Show input
Absolute running time: 0.24 sec, cpu time: 0.43 sec, memory peak: 30 Mb, absolute service time: 0,25 sec