knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE, fig.path = params$output_figure, dev = "svg")
library(dplyr) library(stringr) library(MassExpression) library(plotly) CompleteIntensityExperiment <- params$listInt$CompleteIntensityExperiment IntensityExperiment <- params$listInt$IntensityExperiment design <- colData(IntensityExperiment) comparisonExperiments <- listComparisonExperiments(CompleteIntensityExperiment)
## PCA p=plot_chosen_pca_experiment(CompleteIntensityExperiment, format = "html")
p[[2]]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.