# define eqn and mdt file
fEqn <- system.file("extdata", "source.eqn", package="multiTreeR")
fMdt <- system.file("extdata", "source.mdt", package="multiTreeR")
# fit model using restrictions a=g and D1=D2
res <- doMT(fEqn, fMdt, restrictions = list('a=g','D1=D2'))
# show results
summary(res)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.