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