banp <- ReadGRAND(system.file("extdata", "BANP.tsv.gz", package = "grandR"),
design=c("Cell","Experimental.time","Genotype",
Design$dur.4sU,Design$has.4sU,Design$Replicate))
contrasts <- GetContrasts(banp,contrast=c("Experimental.time.original","0h"),name.format="$A")
reference.columns <- FindReferences(banp,reference= Experimental.time==0)
banp <- EstimateRegulation(banp,"Regulation",
contrasts=contrasts,
reference.columns=reference.columns,
verbose=TRUE,
time.experiment = "Experimental.time",
N=0, # don't sample in the example
dispersion=0.1) # don't estimate dispersion in the example
head(GetAnalysisTable(banp))
Run the code above in your browser using DataLab