Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- > 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
- }
Add Comment
Please, Sign In to add comment