# NOT RUN {
# example DGEobj
exObj <- readRDS(system.file("miniObj.RDS", package = "DGEobj"))
# Assign attributes to a DGEobj
MyAttributes <- list(Platform = "RNA-Seq",
Instrument = "HiSeq",
Vendor = "Unknown",
readType = "PE",
readLength = 75,
strandSpecific = TRUE)
exObj <- setAttributes(exObj, MyAttributes)
# Set attributes on an item inside a DGEobj
MyAttributes <- list(normalized = FALSE,
LowIntFilter = "FPK >5 in >= 1 group")
exObj[["counts"]] <- setAttributes(exObj[["counts"]], MyAttributes)
# }
Run the code above in your browser using DataLab