> list_files
[[1]]
[1] "25.csv"

[[2]]
[1] "21.csv"

[[3]]
[1] "23.csv"

[[4]]
[1] "24.csv"

[[5]]
[1] "27.csv"

for (i in seq_along(list_files)) {
    df<-read.csv(list_files[[i]], sep="", stringsAsFactors=FALSE)
    time_series <- as.xts(df$SMS, order.by =as.POSIXct(df$TIME))
    final_list[[i]] <- time_series
  }
  final_list
}