# NOT RUN {
require(VBTree)
dl2vbt(chrvec2dl(colnames(TPMdata)))
epstable <- epsExtract(TPMdata, 0.7, 2, 3)
# Without calculation for constitutive equation
DMM <- DMMprocess(epstable)
print(DMM)
# }
# NOT RUN {
# Calculating for constitutive equation but
# Without plots printout.
DMM <- DMMprocess(epstable, ConsFunc=TRUE)
print(DMM)
# Calculating for constitutive equation and
# required fitting plots printout.
DMMprocess(epstable, InteractMode=TRUE, ConsFunc=TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab