# \donttest{
data(Schoenberg2013)
# Conduct forward search algorithm for the network of Laparoscopic
# Heller myotomy
#
FSresult <- NMAoutlier(logOR, selogOR, t1, t2, id, data = Schoenberg2013, n_cores = 2)
# Draw forward plot for z-values from difference of direct and
# indirect evidence
#
fwdplot(FSresult, "nsplit")
# }
Run the code above in your browser using DataLab