knitr::opts_chunk$set( collapse = TRUE, comment = "#>", warning = FALSE, message = TRUE, out.width = "100%" )
library(massdataset) library(tidyverse) library(massstat) data("liver_aging_pos") liver_aging_pos
liver_aging_pos[1,] %>% extract_expression_data() %>% as.numeric() %>% density() %>% plot()
liver_aging_pos[1,] %>% scale_data(center = TRUE, method = "auto") %>% extract_expression_data() %>% as.numeric() %>% density() %>% plot()
liver_aging_pos[1,] %>% scale_data(center = TRUE, method = "range") %>% extract_expression_data() %>% as.numeric() %>% density() %>% plot()
liver_aging_pos[1,] %>% scale_data(center = TRUE, method = "pareto") %>% extract_expression_data() %>% as.numeric() %>% density() %>% plot()
sessionInfo()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.