Nothing
## ----loading, echo = FALSE, results = 'hide', message=FALSE, warning=FALSE----
library(PINstimation)
## ----option.1.1---------------------------------------------------------------
options(pinstimation.parallel.cores = 3)
## ----option.1.2---------------------------------------------------------------
getOption("pinstimation.parallel.cores")
## ----option.1.3---------------------------------------------------------------
options(pinstimation.parallel.cores = -2)
getOption("pinstimation.parallel.cores")
## ----option.1.4, results=F----------------------------------------------------
xdata <- hfdata
xdata$volume <- NULL
aggdata <- aggregate_trades(xdata, timelag = 500, algorithm = "LR")
## ----option.1.5---------------------------------------------------------------
getOption("pinstimation.parallel.cores")
## ----option.2-----------------------------------------------------------------
options("pinstimation.parallel.threshold" = 20)
## ----option.2.1.1, results=F--------------------------------------------------
ecm.1 <- mpin_ecm(data = dailytrades, is_parallel = FALSE)
## ----option.2.1.2, results='markup', echo=FALSE-------------------------------
show(ecm.1)
## ----option.2.2.1, results=F--------------------------------------------------
ecm.2 <- mpin_ecm(dailytrades, layers = 2, is_parallel = TRUE)
## ----option.2.21.2, results='markup', echo=FALSE------------------------------
show(ecm.2)
## ----option.2.3.1, results='hide'---------------------------------------------
ecm.3 <- mpin_ecm(dailytrades, layers = 3, is_parallel = TRUE)
## ----option.2.3.2, results='markup', echo=FALSE-------------------------------
show(ecm.3)
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.