Nothing
suppressMessages(require(DT))
suppressMessages(require(shinyjs))
suppressMessages(require(yuima))
suppressMessages(require(shiny))
suppressMessages(require(sde))
suppressMessages(require(quantmod))
suppressMessages(require(shinydashboard))
suppressMessages(require(shinyBS))
suppressMessages(require(ggplot2))
suppressMessages(require(plotly))
suppressMessages(require(ghyp))
### comment this for web app version ###
if(!exists("yuimaGUIdata"))
yuimaGUIdata <- reactiveValues(series=list(),
model=list(), multimodel=list(),
usr_model = list(), usr_multimodel = list(),
simulation=list(), multisimulation=list(),
usr_simulation = list(), usr_multisimulation = list(),
cp=list(),
cpYuima=list(),
llag = list(),
cluster = list(),
hedging = list())
### comment this for web app version ###
if(is.null(getOption("yuimaGUItheme"))) options(yuimaGUItheme = "black")
#NIG distribution
dNIG.gui <- function(x, alpha, delta, beta, mu){
g <- NIG.ad(alpha = alpha, delta = delta, beta = beta, mu = mu)
dghyp(x = x, object = g)
}
rNIG.gui <- function(n, alpha, delta, beta, mu){
g <- NIG.ad(alpha = alpha, delta = delta, beta = beta, mu = mu)
rghyp(n = n, object = g)
}
pNIG.gui <- function(q, alpha, delta, beta, mu){
g <- NIG.ad(alpha = alpha, delta = delta, beta = beta, mu = mu)
pghyp(q = q, object = g)
}
#hyp distribution
dhyp.gui <- function(x, alpha, delta, beta, mu){
g <- hyp.ad(alpha = alpha, delta = delta, beta = beta, mu = mu)
dghyp(x = x, object = g)
}
rhyp.gui <- function(n, alpha, delta, beta, mu){
g <- hyp.ad(alpha = alpha, delta = delta, beta = beta, mu = mu)
rghyp(n = n, object = g)
}
phyp.gui <- function(q, alpha, delta, beta, mu){
g <- hyp.ad(alpha = alpha, delta = delta, beta = beta, mu = mu)
pghyp(q = q, object = g)
}
#VG distribution
dVG.gui <- function(x, lambda, alpha, beta, mu){
g <- VG.ad(lambda = lambda, alpha = alpha, beta = beta, mu = mu)
dghyp(x = x, object = g)
}
rVG.gui <- function(n, lambda, alpha, beta, mu){
g <- VG.ad(lambda = lambda, alpha = alpha, beta = beta, mu = mu)
rghyp(n = n, object = g)
}
pVG.gui <- function(q, lambda, alpha, beta, mu){
g <- VG.ad(lambda = lambda, alpha = alpha, beta = beta, mu = mu)
pghyp(q = q, object = g)
}
#ghyp distribution
dghyp.gui <- function(x, lambda, alpha, delta, beta, mu){
g <- ghyp.ad(lambda = lambda, alpha = alpha, delta = delta, beta = beta, mu = mu)
dghyp(x = x, object = g)
}
rghyp.gui <- function(n, lambda, alpha, delta, beta, mu){
g <- ghyp.ad(lambda = lambda, alpha = alpha, delta = delta, beta = beta, mu = mu)
rghyp(n = n, object = g)
}
pghyp.gui <- function(q, lambda, alpha, delta, beta, mu){
g <- ghyp.ad(lambda = lambda, alpha = alpha, delta = delta, beta = beta, mu = mu)
pghyp(q = q, object = g)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.