data$id <- seq.int(nrow( data ))
lo <- loess( data$value ~ data$id )
data$value <- predict( lo )