Semantics.time(c("5h","30min","no4sU"),"Test")
myfun <- function(s,name) {
r<-Semantics.time(s,name)
cbind(r,data.frame(hpi=paste0(r$duration.4sU+3,"h")))
}
sars <- ReadGRAND(system.file("extdata", "sars.tsv.gz", package = "grandR"),
design=function(names)
MakeColdata(names,c("Cell",Design$dur.4sU,Design$Replicate),
semantics=DesignSemantics(duration.4sU=myfun)),
verbose=TRUE)
Coldata(sars)
Run the code above in your browser using DataLab