# Version info: R 3.2.3, Biobase 2.30.0, GEOquery 2.40.0, limma 3.26.8 # R scripts generated Tue Apr 28 04:25:19 EDT 2020 Server: www.ncbi.nlm.nih.gov Query: acc=GSE103229&platform=GPL16956&type=txt&groups=&colors=&selection=XXXXXXXXXX&padj=fdr&logtransform=auto&columns=ID&columns=adj.P.Val&columns=P.Value&columns=F&columns=SEQUENCE&columns=SPOT_ID&num=250&annot=submitter # Unable to generate script analyzing differential expression. # Invalid input: at least two groups of samples should be selected. ################################################################ # Boxplot for selected GEO samples library(Biobase) library(GEOquery) # load series and platform data from GEO gset <- getGEO("GSE103229", GSEMatrix =TRUE, getGPL=FALSE) if (length(gset) > 1) idx <- grep("GPL16956", attr(gset, "names")) else idx <- 1 gset <- gset[[idx]] # set parameters and draw the plot dev.new(width=4+dim(gset)[[2]]/5, height=6) par(mar=c(2+round(max(nchar(sampleNames(gset)))/2),4,2,1)) title <- paste ("GSE103229", '/', annotation(gset), " selected samples", sep ='') boxplot(exprs(gset), boxwex=0.7, notch=T, main=title, outline=FALSE, las=2)