library("netmeta")
data(smokingcessation)
smokingcessation$id <- 1:nrow(smokingcessation)
study912 <- subset(smokingcessation, id %in% 9:12)
p1 <- pairwise(list(treat1, treat2, treat3),
list(event1, event2, event3), list(n1, n2, n3),
data = study912, sm = "OR")
# Outlier and influential detection measures for each study in the
# network
measures <- NMAoutlier.measures(p1)
# plot of standardized residuals for each study
measplot(measures, "estand")
# plot of Mahalanobis distance values for each study
measplot(measures, "mah")
# plot of leverage values for each study
measplot(measures, "leverage")
if (FALSE) {
# Outlier detection measures considered deletion each time of an
# included study
deletion <- NMAoutlier.measures(p1, measure = "deletion")
# plot for R statistic for heterogeneity estimator
measplot(deletion, "rheterogeneity", measure = "deletion")
# plot for R statistic for Qinconsistency
measplot(deletion, "rqinc", measure = "deletion")
# plot of COVRATIO values when considering deletion for each study
measplot(deletion, "covratio", measure = "deletion")
}
Run the code above in your browser using DataLab