showClass("cellHTS")
showMethods(class="cellHTS")
## An empty cellHTS
obj <- new("cellHTS")
data("KcViabSmall")
KcViabSmall
state(KcViabSmall)
## Replicate 1 as a cellHTS object
y <- KcViabSmall[,1]
compare2cellHTS(KcViabSmall, y)
data("KcViab")
compare2cellHTS(KcViab, KcViabSmall)
Run the code above in your browser using DataLab