print(params) 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)
plot_samples_correlation_matrix(CompleteIntensityExperiment, title="Samples correlations", onlyDEProteins=TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.