{"metadata":{"kernelspec":{"name":"ir","display_name":"R","language":"R"},"language_info":{"name":"R","codemirror_mode":"r","pygments_lexer":"r","mimetype":"text/x-r-source","file_extension":".r","version":"4.0.5"}},"nbformat_minor":4,"nbformat":4,"cells":[{"cell_type":"markdown","source":"## Load packages:","metadata":{"_uuid":"051d70d956493feee0c6d64651c6a088724dca2a","_execution_state":"idle"}},{"cell_type":"code","source":"library(jsonlite)\nlibrary(glue)\nlibrary(dplyr)\nlibrary(ggplot2)\nlibrary(forecast)","metadata":{"execution":{"iopub.status.busy":"2021-11-22T15:12:32.212146Z","iopub.execute_input":"2021-11-22T15:12:32.214735Z","iopub.status.idle":"2021-11-22T15:12:33.482987Z"},"_kg_hide-output":true,"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"list_best_crypto <- read.csv(\"../input/list-crypto/asset_details.csv\" , stringsAsFactors = T)","metadata":{"execution":{"iopub.status.busy":"2021-11-22T15:13:13.334806Z","iopub.execute_input":"2021-11-22T15:13:13.373977Z","iopub.status.idle":"2021-11-22T15:13:13.399538Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"# create a function to retrieve daily data\nretreive_daily_data <- function(pair, filename) {\n  url = glue(\"https://api.pro.coinbase.com/products/{pair}/candles?granularity=86400\")\n  columnNames <- c('unix', 'low', 'high', 'open', 'close', glue('{pair} volume'))\n  mydata <- fromJSON(url) #retrieve the data from the JSON url\n  df <- as.data.frame(mydata) #define the dataframe for the assigned values\n  colnames(df) <- columnNames  # rename the columns\n \n  return(df)\n}","metadata":{"execution":{"iopub.status.busy":"2021-11-22T15:14:01.744480Z","iopub.execute_input":"2021-11-22T15:14:01.746649Z","iopub.status.idle":"2021-11-22T15:14:01.761367Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"for (cr in levels(list_best_crypto$symbol)) {\n  tryCatch(\n    expr = {\n    newPair <- glue(\"{cr}-EUR\")\n    fileName <- glue(\"dailyData{newPair}.csv\")  #Assigning the name for each value\n    df <- retreive_daily_data(newPair, filename = fileName)\n    Date <- as.Date(as.POSIXct(df$unix, origin=\"1970-01-01 00:00:00.000\"))\n    df <- data.frame(Date, df[,-1])\n    \n    g<-ggplot(df, aes(x=Date, y=close))+\n           geom_line()+\n           ggtitle(newPair, subtitle = list_best_crypto$Asset_Name[list_best_crypto$symbol==cr])\n    \n    print(g)\n    \n    train <- ts(df$close)\n    fore <- forecast(train,30)\n    plot(fore, main = newPair)\n    print(fore)\n       \n    }\n  )\n   \n}","metadata":{"execution":{"iopub.status.busy":"2021-11-22T15:21:56.918514Z","iopub.execute_input":"2021-11-22T15:21:56.920165Z","iopub.status.idle":"2021-11-22T15:22:06.726752Z"},"trusted":true},"execution_count":null,"outputs":[]}]}