fork download 
  1. shinyServer( 
  2.   function(input, output,session) {
  3.     library(rsconnect)
  4.     library(tseries)
  5.     library(quantmod)
  6.     library(forecast)
  7.     library(car)
  8.     library(haven)
  9.  
  10.     yahoo1<- reactive({
  11.       paste("Please enter the code for YAHOO finance")
  12.     })
  13.     output$yahooop<-renderText({ yahoo1()})
  14.  
  15.     observeEvent(
  16.     input$goButton,{
  17.      index2<-as.character( input$index1)
  18.     index3<-getSymbols(c(index2),from = "1900-01-05",auto.assign = FALSE)
  19.     index.open<-na.omit(data.frame(index3[,1]))
  20.     index.close<-na.omit(data.frame(index3[,4]))
  21.     index.open.test<-data.frame(-tail(index.open,120))
  22.     index.close.test<-data.frame(-tail(index.close,120))
  23.       index.open.train<-data.frame(index.open[1:(nrow(index.open)-365),])
  24.       index.close.train<-data.frame(index.close[1:(nrow(index.open)-365),])
  25.     index.open.year<-data.frame(tail(index.open,365))
  26.     index.close.year<-data.frame(tail(index.close,365))
  27.     colnames(index.open.year)="OP.value"
  28.     colnames(index.open.train)="OP.value"
  29.     colnames(index.close.year)="close.value"
  30.     colnames(index.close.train)="close.value"
  31.     mod1<-auto.arima(index.open.train, seasonal = TRUE,ic="aic",test = "adf",seasonal.test ="seas",allowdrift = TRUE,
  32.                      allowmean = TRUE,stepwise=FALSE,approximation=FALSE)
  33.     mod2<-auto.arima(index.close.train, seasonal = TRUE,ic="aic",test = "adf",seasonal.test ="seas",allowdrift = TRUE,
  34.                      allowmean = TRUE,stepwise=FALSE,approximation=FALSE)
  35.     predict.open<-forecast(index.open.test,mod=mod1,h=120)
  36.     predict.close<-forecast(index.close.test,mod=mod2,h=120)
  37.     for(x in c(1:120)){d1<-(index.open[x]-index.close[x])-(predict.close$fitted[x]-predict.open$fitted[x])
  38.     d2<-sum(d1)}
  39.     output$open.predict.plot1<-renderPlot(plot(forecast(tail(index.open.year,30) ,model=mod1,h=5),main = paste(c(index2),".open","ARIMA predicton plot")))
  40.  
  41.     output$open.value1<-renderTable(tail(index.open.year,5),rownames = TRUE)
  42.     open.formulaText1 <- reactive({
  43.       paste("it is the index opening index in the past five days")
  44.     })
  45.     output$open.table1<-renderText({ open.formulaText1()})
  46.     output$open.predict.table1<-renderTable(data.frame(forecast(tail(index.open.year,30) ,model=mod2,h=5)))
  47.  
  48.     open.formulaText2 <- reactive({
  49.       paste("The expected value of the opening index  in the next five days and its 80%, 95% confidence interval")
  50.     })
  51.     output$open.table2<-renderText({ open.formulaText2()})
  52.  
  53.     output$close.predict.plot1<-renderPlot(plot(forecast(tail(index.close.year,30) ,model=mod2,h=5),main =paste(c(index2),".close"," ARIMA predicton plot")))
  54.     output$close.value1<-renderTable(tail(index.close.year,5),rownames = TRUE)
  55.     close.formulaText1 <- reactive({
  56.       paste("it is the index closeing index in the past five days")
  57.     })
  58.     output$close.table1<-renderText({ close.formulaText1()})
  59.     output$close.predict.table1<-renderTable(data.frame(forecast(tail(index.close.year,30) ,model=mod2,h=5)))
  60.  
  61.     close.formulaText2 <- reactive({
  62.       paste("The expected value of the closeing index  in the next five days and its 80%, 95% confidence interval")
  63.     })
  64.     output$close.table2<-renderText({ close.formulaText2()})
  65.     income <- reactive({
  66.       paste("the net income is",d2 )
  67.     })  
  68.     })})
Success #stdin #stdout #stderr 0.26s 38900KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
stderr 
Error: could not find function "shinyServer"
Execution halted
https://ideone.com/Btdu8o
language:
R (R 3.5.2)
created:
3 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!