# #——包括= FALSE --------------------------------------------------------- knitr: opts_chunk美元集(崩溃= TRUE,发表评论 = "#>" ) ## ---- eval = FALSE --------------------------------------------------------------- # 如果(!requireNamespace(“BiocManager”,悄悄地= TRUE)) # install.packages (BiocManager) # BiocManager::安装(“shinyepico ") ## ---- eval = FALSE --------------------------------------------------------------- # install.packages(“遥控器”)#库(“遥控器”)# install_github(“omorante / shinyepico”,升级=“总是”,依赖关系= TRUE ) ## ---- 呼应= FALSE,整洁= FALSE,评论= NA -------------------------------------- writeline (unlist (strsplit (packageDescription(“shinyepico”)[[“进口”]],”,"))) ## ---- 呼应= FALSE,整洁= FALSE,评论= NA -------------------------------------- writeline (unlist (strsplit (packageDescription(“shinyepico”)[[”建议 "]],", "))) ## ---- eval = FALSE --------------------------------------------------------------- # 库(shinyepico) # set.seed (123) # run_shinyepico () ## ---- 回声= FALSE, eval = TRUE --------------------------------------------------- knitr:: kable (read.csv(“。/ Sample_Sheet.csv ")) ## ---- 呼应= FALSE,eval = TRUE --------------------------------------------------- knitr:: kable (data.frame (MAC = c(1 0 1 0 0 1),莫= c (0, 1, 0, 1, 1, 0), DonorB = c (0, 1, 0, 0, 0, 1), DonorC = c (0, 0, 1, 0 1 0 ))) ## ---- 回声= FALSE, eval = TRUE --------------------------------------------------- knitr:: kable (data.frame(对比=“MAC-MO Hypermethylated = 2275, Hypomethylated = 21日总= 2296 )) ## ---- 回声= FALSE, eval = TRUE --------------------------------------------------- knitr:: kable (data.frame(对比=代表(“MAC-MO”,3),45 Hypermethylated = c (64160), Hypomethylated = c(78111、62),总= c (142271107 ))) ## ---- 回声= FALSE --------------------------------------------------------------- sessionInfo ()