mmeta (version 3.0.0)

MultipleTables.summary: Summarize the object of class MultipleTables.

Description

Summarize the model of the class MultipleTables fitted by MultipleTables.modelFit.

Usage

MultipleTables.summary(
  multiple_tables_object,
  alpha = 0.05,
  verbose = TRUE,
  digit = 3,
  control = list()
)

Value

A list with the following components: model, posterior mean & equal tail confidence interval of overall measure, estimated hyperparameters, the chi-square test statistics & the p-value of the likelihood ratio test, posterior means & the lower/upper bounds of the equal tail confidence intervals of study-specific measure.

Arguments

multiple_tables_object

The object created by MultipleTables.create and fitted by MultipleTables.modelFit.

alpha

a numeric value specifying the significant level. Default value sets to 0.05.

verbose

a logical value; if TRUE (default), the detailed summary messages will display.

digit

an integer value specifying how many decimal places to keep. Default value sets to 3.

control

a list can be specified to control the fitting process.

See Also

MultipleTables.create, MultipleTables.modelFit, and MultipleTables.plot.

Examples

# \donttest{
 library(mmeta)
 library(ggplot2)
 ## Analyze the dataset colorectal to conduct exact inference of the odds ratios
 data(colorectal)
 colorectal['study_name'] <- colorectal['studynames']
 ## If exact method is used, the codes for sampling method are similar.
 ## Create object multiple_tables_obj_exact
 multiple_tables_obj_exact <- MultipleTables.create(data=colorectal,
 measure='OR', model= 'Sarmanov')
 ## Model fit default
 multiple_tables_obj_exact <- MultipleTables.modelFit(multiple_tables_obj_exact, method = 'exact')
 ## Summary of the fitting process (default)
 multiple_tables_obj_exact <- MultipleTables.summary(multiple_tables_obj_exact)
 ## Structure of SingleTable object
 str(multiple_tables_obj_exact)
 ## If set alpha level to 0.1
 multiple_tables_obj_exact <- MultipleTables.summary(multiple_tables_obj_exact, alpha = 0.1)
 ## If set digit to 4
 multiple_tables_obj_exact <- MultipleTables.summary(multiple_tables_obj_exact,
 alpha = 0.05, digit = 4)
 ## If decided not to print out
 multiple_tables_obj_exact <- MultipleTables.summary(multiple_tables_obj_exact,
 alpha = 0.05, digit = 4,verbose = FALSE)
# }