## ----vignetteSetup, echo=FALSE, message=FALSE, warning = FALSE----------------
## Bib setup
library(RefManageR)
bib <- c(eoPredData = citation("eoPredData")[1])

## ----"citation"---------------------------------------------------------------
## Citation info
citation("eoPredData")

## ----eval = FALSE-------------------------------------------------------------
#  if (!require("BiocManager", quietly = TRUE))
#      install.packages("BiocManager")
#  BiocManager::install("ExperimentHub")
#  BiocManager::install("mixOmics")

## ----"start", message=FALSE, eval=FALSE---------------------------------------
#  library(ExperimentHub)
#  eh <- ExperimentHub()
#  query(eh, "eoPredData")
#  
#  library(mixOmics)
#  # model object
#  eoPredModel <- eh[['EH8090']]
#  # test object
#  x_test <- eh[['EH8403']]
#  dim(x_test) # 452,453 by 49
#  x_test <- x_test[rownames(x_test) %in% colnames(eoPredModel$X),]
#  dim(x_test) # 341,281 by 49
#  # code to predict on x_test
#  predictions <- predict(eoPredModel, t(x_test), dist = "max.dist")

## ----reproduce3, echo=FALSE---------------------------------------------------
## Session info
sessionInfo()

## ----vignetteBiblio, results="asis", echo=FALSE, warning=FALSE, message=FALSE----
RefManageR::PrintBibliography(
    bib, .opts = list(hyperlink = "to.doc", style = "html"))