Script per analisi dei dati in R

backend/app/Http/Controllers/Stocks/StocksController.php

@@ -15,4 +15,11 @@ public function __construct()
     {
         $this->middleware('auth:api');
     }
+
+    public function RscriptCall()
+   {
+        $reading = shell_exec('Rscript EOD.R $Token');
+   }
 }
+
+

backend/script/EOD.R

@@ -0,0 +1,83 @@
+# This package is required for Accessing APIS (HTTP or HTTPS URLS from Web)
+library(httr)
+#This package exposes some additional functions to convert json/text to data frame
+library(rlist)
+#This package exposes some additional functions to convert json/text to data frame
+library(jsonlite)
+#This library is used to manipulate data
+library(dplyr)
+#this library is used to create SMA model
+library(smooth)
+
+
+
+buy_sell <- function(SMA_Short, SMA_Long, dataset) {
+  d <- list()  
+  last <- 14
+  #if neither a positive nor negative trend is found, than the system does nothing= 0
+  for (s in symbols) {
+    #checking if there is a positive trend
+    if (SMA_Short[last,s] > SMA_Long[last,s]) {
+      if (SMA_Short[last-1,s] < SMA_Long[last-1,s]) {
+        # buy =1
+        d[[s]]<- list(1,dataset[last,s])
+      } else {
+        d[[s]] <- list(0, NA)
+      }
+      #checking if there is a negative trend
+    } else if (SMA_Short[last,s] < SMA_Long[last,s]) {
+      if (SMA_Short[last-1,s] > SMA_Long[last-1,s]) {
+        # sell =-1
+        d[[s]] <- list(-1, dataset[last,s])
+      } else {
+        d[[s]] <- list(0, NA)
+      }
+    } else {
+      d[[s]] <- list(0, NA)
+    }
+  }
+  return(d)
+}
+
+#initializing  stock label
+symbols= c('AAPL','ABBV','ABT','ACN','AGN','AIG','ALL','AMGN','AMZN','AXP','BA','BAC','BIIB','BK','BLK','BMY','C','CAT','CELG','CL','CMCSA','COF','COP','COST','CSCO','CVS','CVX','DD','DHR','DIS','DOW','DUK','EMC','EMR','EXC','F','FB','FDX','FOX','FOXA','GD','GE','GILD','GM','GOOG','GOOGL','GS','HAL','HD','HON','IBM','INTC','JNJ','JPM','KMI','KO','LLY','LMT','LOW','MA','MCD','MDLZ','MDT','MET','MMM','MO','MON','MRK','MS','MSFT','NEE','NKE','ORCL','OXY','PEP','PFE','PG','PM','PYPL','QCOM','RTN','SBUX','SLB','SO','SPG','T','TGT','TXN','UNH','UNP','UPS','USB','USD','UTX','V','VZ','WBA','WFC'
+
+          )
+
+#initializing three different data_frame
+dati_totali<-data.frame(1:14)
+SMA_3<-data.frame(1:14)
+SMA_7<-data.frame(1:14)
+
+#getting user's Stock
+Token <- commandArgs()
+userStock<- GET('http://localhost/api/admin/stocks',add_headers(Authorization=paste("Bearer ",Token)))
+
+#API request to get all the EOD data for each stock
+for(s in symbols){
+
+
+  r<- GET(paste('https://api.marketstack.com/v1/tickers/', s, '/eod', sep=''),add_headers(Name = 'access_key',Name='limit'),query=list(access_key='b7f513ecf8b91aa4dc345df69bf55a3d',limit=14))
+
+  #convert JSON text in dataframe
+  dati<-fromJSON(content(r,as="text"))
+  dati_totali[s]=rev(dati[["data"]][["eod"]][["adj_close"]])
+
+  #sma model with two different time window for each stock
+  #more information: "https://en.wikipedia.org/wiki/Moving_average"
+  SMA_3[s]<-sma(ts(dati_totali[s]),order = 3,silent = FALSE)$fitted
+  SMA_7[s]<-sma(ts(dati_totali[s]),order = 7,silent = FALSE)$fitted
+}
+
+#binding date's information to each value
+date<-rev(dati[["data"]][["eod"]][["date"]])
+SMA_3<-dplyr::bind_cols(date,SMA_3)
+SMA_7<-dplyr::bind_cols(date,SMA_7)
+
+#creating a list of buy_sell where each stock are checked 
+list_buy_sell<-buy_sell(SMA_3,SMA_7,dati_totali)
+
+
+
+
+