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