knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  warning = FALSE,
  message = TRUE,
  out.width = "100%"
)

Data preparation

library(massdataset)
library(tidyverse)
library(massqc)
data("sample_info", package = "massdataset")
data("expression_data", package = "massdataset")
data("variable_info", package = "massdataset")
object =
  create_mass_dataset(
    expression_data = expression_data,
    sample_info = sample_info,
    variable_info = variable_info
  )
object

QC correlation plot

object %>%
  massqc_sample_correlation()

object %>%
  massqc_sample_correlation()

object %>%
  activate_mass_dataset(what = "sample_info") %>%
  filter(class == "QC") %>%
  massqc_sample_correlation()

object %>%
  massqc_sample_correlation(lab = TRUE)

object %>%
  massqc_sample_correlation(lab = TRUE, type = "upper")

Session information

sessionInfo()


tidymass/massqc documentation built on Sept. 13, 2023, 10:31 p.m.