Funcion

cv <- function(df, n){
  input <- df[ sample(nrow(df)) , ]
  d <- nrow(df)/n  
  offset <- 1
  resultado <- c()
  
  for(i in 1:n){
      test <- input[offset:offset+d,]
      train <- input[-(offset:offset+d),]
      offset <- offset+d
      modelo <- lm(data = train)
      ptest <- predict.lm(modelo, newdata = test)
      output <- sqrt((sum((ptest-test[1])^2))/length(test))
      resultado <- c(resultado, output)
    }
    return(resultado)
  }