library(geometric2)
setwd("more_testing/")
data("biosamps")
gse <- "GSE6346"
get_input(gse)
exprs <- get_eset(gse)
samples <- fread("sample_review.txt")
my_design <- get_design()
fit <- lmFit(exprs, my_design)
fit <- fitting()
contrasts <- get_contrast.matrix()
fit2 <- contrasts.fit(fit, contrasts)
fit3 <- eBayes(fit2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.