if (FALSE) {
if(requireNamespace("Biobase",quietly = TRUE)&
requireNamespace("AnnoProbe",quietly = TRUE)){
gse = "GSE42872"
a = geo_download(gse,destdir=tempdir())
find_anno(geo$gpl)
ids <- AnnoProbe::idmap(geo$gpl,destdir = tempdir())
Group = rep(c("control","treat"),each = 3)
Group = factor(Group)
deg = get_deg(geo$exp,Group,ids,entriz = FALSE)
head(deg)
}else{
if(!requireNamespace("AnnoProbe",quietly = TRUE)) {
warning("Package 'AnnoProbe' needed for this function to work.
Please install it by install.packages('AnnoProbe')",call. = FALSE)
}
if(!requireNamespace("Biobase",quietly = TRUE)) {
warning("Package 'Biobase' needed for this function to work.
Please install it by BiocManager::install('Biobase')",call. = FALSE)
}
}
}
Run the code above in your browser using DataLab