data/Scalco17.R

In mikewlcheung/metasem: Meta-Analysis using Structural Equation Modeling

Scalco17 <-
structure(list(data = structure(list(`Al-Swidi et al., 2014` = structure(c(1, 
0.562, 0.18, 0.798, NA, 0.562, 1, 0.314, 0.696, NA, 0.18, 0.314, 
1, 0.216, NA, 0.798, 0.696, 0.216, 1, NA, NA, NA, NA, NA, NA), .Dim = c(5L, 
5L), .Dimnames = list(c("ATT", "SN", "PBC", "BI", "BEH"), c("ATT", 
"SN", "PBC", "BI", "BEH"))), `Arvola et al., 2008 (Study A from IT)` = structure(c(1, 
0.69, 0.44, 0.73, NA, 0.69, 1, 0.46, 0.62, NA, 0.44, 0.46, 1, 
0.41, NA, 0.73, 0.62, 0.41, 1, NA, NA, NA, NA, NA, NA), .Dim = c(5L, 
5L), .Dimnames = list(c("ATT", "SN", "PBC", "BI", "BEH"), c("ATT", 
"SN", "PBC", "BI", "BEH"))), `Arvola et al., 2008 (Study A from UK)` = structure(c(1, 
0.52, 0.22, 0.6, NA, 0.52, 1, 0.28, 0.56, NA, 0.22, 0.28, 1, 
0.31, NA, 0.6, 0.56, 0.31, 1, NA, NA, NA, NA, NA, NA), .Dim = c(5L, 
5L), .Dimnames = list(c("ATT", "SN", "PBC", "BI", "BEH"), c("ATT", 
"SN", "PBC", "BI", "BEH"))), `Arvola et al., 2008 (Study A from FI)` = structure(c(1, 
0.57, 0.4, 0.67, NA, 0.57, 1, 0.34, 0.55, NA, 0.4, 0.34, 1, 0.36, 
NA, 0.67, 0.55, 0.36, 1, NA, NA, NA, NA, NA, NA), .Dim = c(5L, 
5L), .Dimnames = list(c("ATT", "SN", "PBC", "BI", "BEH"), c("ATT", 
"SN", "PBC", "BI", "BEH"))), `Arvola et al., 2008 (Study B from IT)` = structure(c(1, 
0.76, 0.35, 0.71, NA, 0.76, 1, 0.36, 0.64, NA, 0.35, 0.36, 1, 
0.24, NA, 0.71, 0.64, 0.24, 1, NA, NA, NA, NA, NA, NA), .Dim = c(5L, 
5L), .Dimnames = list(c("ATT", "SN", "PBC", "BI", "BEH"), c("ATT", 
"SN", "PBC", "BI", "BEH"))), `Arvola et al., 2008 (Study B from UK)` = structure(c(1, 
0.46, 0.03, 0.55, NA, 0.46, 1, 0.15, 0.58, NA, 0.03, 0.15, 1, 
0.1, NA, 0.55, 0.58, 0.1, 1, NA, NA, NA, NA, NA, NA), .Dim = c(5L, 
5L), .Dimnames = list(c("ATT", "SN", "PBC", "BI", "BEH"), c("ATT", 
"SN", "PBC", "BI", "BEH"))), `Arvola et al., 2008 (Study B from FI)` = structure(c(1, 
0.51, 0.26, 0.51, NA, 0.51, 1, 0.21, 0.38, NA, 0.26, 0.21, 1, 
0.16, NA, 0.51, 0.38, 0.16, 1, NA, NA, NA, NA, NA, NA), .Dim = c(5L, 
5L), .Dimnames = list(c("ATT", "SN", "PBC", "BI", "BEH"), c("ATT", 
"SN", "PBC", "BI", "BEH"))), `Bamberg, 2002` = structure(c(1, 
0.41, 0.45, 0.48, 0.48, 0.41, 1, 0.32, 0.4, 0.17, 0.45, 0.32, 
1, 0.55, 0.31, 0.48, 0.4, 0.55, 1, 0.34, 0.48, 0.17, 0.31, 0.34, 
1), .Dim = c(5L, 5L), .Dimnames = list(c("ATT", "SN", "PBC", 
"BI", "BEH"), c("ATT", "SN", "PBC", "BI", "BEH"))), `Dean, Raats, & Shepherd, 2012 (Study A)` = structure(c(1, 
0.66, 0.53, 0.74, 0.55, 0.66, 1, 0.36, 0.72, 0.55, 0.53, 0.36, 
1, 0.45, 0.31, 0.74, 0.72, 0.45, 1, 0.64, 0.55, 0.55, 0.31, 0.64, 
1), .Dim = c(5L, 5L), .Dimnames = list(c("ATT", "SN", "PBC", 
"BI", "BEH"), c("ATT", "SN", "PBC", "BI", "BEH"))), `Dean, Raats, & Shepherd, 2012 (Study B)` = structure(c(1, 
0.64, 0.48, 0.71, 0.35, 0.64, 1, 0.43, 0.71, 0.34, 0.48, 0.43, 
1, 0.43, 0.3, 0.71, 0.71, 0.43, 1, 0.49, 0.35, 0.34, 0.3, 0.49, 
1), .Dim = c(5L, 5L), .Dimnames = list(c("ATT", "SN", "PBC", 
"BI", "BEH"), c("ATT", "SN", "PBC", "BI", "BEH"))), `Dowd & Burke, 2013` = structure(c(1, 
0.44, 0.3, 0.68, NA, 0.44, 1, 0.3, 0.55, NA, 0.3, 0.3, 1, 0.51, 
NA, 0.68, 0.55, 0.51, 1, NA, NA, NA, NA, NA, NA), .Dim = c(5L, 
5L), .Dimnames = list(c("ATT", "SN", "PBC", "BI", "BEH"), c("ATT", 
"SN", "PBC", "BI", "BEH"))), `Guido et al., 2010` = structure(c(1, 
0.04, 0.11, 0.27, NA, 0.04, 1, 0.22, 0.46, NA, 0.11, 0.22, 1, 
0.42, NA, 0.27, 0.46, 0.42, 1, NA, NA, NA, NA, NA, NA), .Dim = c(5L, 
5L), .Dimnames = list(c("ATT", "SN", "PBC", "BI", "BEH"), c("ATT", 
"SN", "PBC", "BI", "BEH"))), `Honkanen & Young, 2015` = structure(c(1, 
0.371, 0.228, 0.574, NA, 0.371, 1, 0.13, 0.561, NA, 0.228, 0.13, 
1, 0.319, NA, 0.574, 0.561, 0.319, 1, NA, NA, NA, NA, NA, NA), .Dim = c(5L, 
5L), .Dimnames = list(c("ATT", "SN", "PBC", "BI", "BEH"), c("ATT", 
"SN", "PBC", "BI", "BEH"))), `Lee, Bonn, & Cho, 2015` = structure(c(1, 
0.266, 0.183, 0.303, NA, 0.266, 1, 0.136, 0.491, NA, 0.183, 0.136, 
1, 0.27, NA, 0.303, 0.491, 0.27, 1, NA, NA, NA, NA, NA, NA), .Dim = c(5L, 
5L), .Dimnames = list(c("ATT", "SN", "PBC", "BI", "BEH"), c("ATT", 
"SN", "PBC", "BI", "BEH"))), `Lodorfos & Dennis, 2008` = structure(c(1, 
0.281, 0.12, 0.82, NA, 0.281, 1, 0.114, 0.534, NA, 0.12, 0.114, 
1, 0.486, NA, 0.82, 0.534, 0.486, 1, NA, NA, NA, NA, NA, NA), .Dim = c(5L, 
5L), .Dimnames = list(c("ATT", "SN", "PBC", "BI", "BEH"), c("ATT", 
"SN", "PBC", "BI", "BEH"))), `Onwezen et al., 2014 (Study A)` = structure(c(1, 
0.344, 0.171, 0.561, 0.42, 0.344, 1, 0.228, 0.524, 0.421, 0.171, 
0.228, 1, 0.185, 0.185, 0.561, 0.524, 0.185, 1, 0.657, 0.42, 
0.421, 0.185, 0.657, 1), .Dim = c(5L, 5L), .Dimnames = list(c("ATT", 
"SN", "PBC", "BI", "BEH"), c("ATT", "SN", "PBC", "BI", "BEH"))), 
    `Robinson & Smith, 2002` = structure(c(1, 0.476, 0.259, 0.459, 
    NA, 0.476, 1, 0.299, 0.382, NA, 0.259, 0.299, 1, 0.332, NA, 
    0.459, 0.382, 0.332, 1, NA, NA, NA, NA, NA, NA), .Dim = c(5L, 
    5L), .Dimnames = list(c("ATT", "SN", "PBC", "BI", "BEH"), 
        c("ATT", "SN", "PBC", "BI", "BEH"))), `Sparks & Shepherd, 1992` = structure(c(1, 
    0.37, 0.06, 0.38, NA, 0.37, 1, 0.05, 0.3, NA, 0.06, 0.05, 
    1, 0.27, NA, 0.38, 0.3, 0.27, 1, NA, NA, NA, NA, NA, NA), .Dim = c(5L, 
    5L), .Dimnames = list(c("ATT", "SN", "PBC", "BI", "BEH"), 
        c("ATT", "SN", "PBC", "BI", "BEH"))), `Vassallo, Scalvedi, & Saba, 2016` = structure(c(1, 
    0.32, 0.37, 0.78, 0.55, 0.32, 1, 0.25, 0.63, 0.47, 0.37, 
    0.25, 1, 0.43, 0.6, 0.78, 0.63, 0.43, 1, 0.73, 0.55, 0.47, 
    0.6, 0.73, 1), .Dim = c(5L, 5L), .Dimnames = list(c("ATT", 
    "SN", "PBC", "BI", "BEH"), c("ATT", "SN", "PBC", "BI", "BEH"
    ))), `Vermeir & Verbeke, 2008` = structure(c(1, NA, NA, 0.666, 
    NA, NA, 1, NA, 0.371, NA, NA, NA, 1, 0.389, NA, 0.666, 0.371, 
    0.389, 1, NA, NA, NA, NA, NA, NA), .Dim = c(5L, 5L), .Dimnames = list(
        c("ATT", "SN", "PBC", "BI", "BEH"), c("ATT", "SN", "PBC", 
        "BI", "BEH"))), `Yadav & Pathak, 2016` = structure(c(1, 
    0.02, -0.03, 0.55, NA, 0.02, 1, -0.09, -0.02, NA, -0.03, 
    -0.09, 1, 0.15, NA, 0.55, -0.02, 0.15, 1, NA, NA, NA, NA, 
    NA, NA), .Dim = c(5L, 5L), .Dimnames = list(c("ATT", "SN", 
    "PBC", "BI", "BEH"), c("ATT", "SN", "PBC", "BI", "BEH"))), 
    `Yazdanpanah & Forouzani, 2015` = structure(c(1, -0.025, 
    0.003, 0.65, NA, -0.025, 1, 0.075, 0.049, NA, 0.003, 0.075, 
    1, -0.021, NA, 0.65, 0.049, -0.021, 1, NA, NA, NA, NA, NA, 
    NA), .Dim = c(5L, 5L), .Dimnames = list(c("ATT", "SN", "PBC", 
    "BI", "BEH"), c("ATT", "SN", "PBC", "BI", "BEH"))), `Zagata, 2012` = structure(c(1, 
    0.391, 0.388, 0.518, 0.239, 0.391, 1, 0.222, 0.497, 0.272, 
    0.388, 0.222, 1, 0.388, 0.204, 0.518, 0.497, 0.388, 1, 0.338, 
    0.239, 0.272, 0.204, 0.338, 1), .Dim = c(5L, 5L), .Dimnames = list(
        c("ATT", "SN", "PBC", "BI", "BEH"), c("ATT", "SN", "PBC", 
        "BI", "BEH")))), .Names = c("Al-Swidi et al., 2014", 
"Arvola et al., 2008 (Study A from IT)", "Arvola et al., 2008 (Study A from UK)", 
"Arvola et al., 2008 (Study A from FI)", "Arvola et al., 2008 (Study B from IT)", 
"Arvola et al., 2008 (Study B from UK)", "Arvola et al., 2008 (Study B from FI)", 
"Bamberg, 2002", "Dean, Raats, & Shepherd, 2012 (Study A)", "Dean, Raats, & Shepherd, 2012 (Study B)", 
"Dowd & Burke, 2013", "Guido et al., 2010", "Honkanen & Young, 2015", 
"Lee, Bonn, & Cho, 2015", "Lodorfos & Dennis, 2008", "Onwezen et al., 2014 (Study A)", 
"Robinson & Smith, 2002", "Sparks & Shepherd, 1992", "Vassallo, Scalvedi, & Saba, 2016", 
"Vermeir & Verbeke, 2008", "Yadav & Pathak, 2016", "Yazdanpanah & Forouzani, 2015", 
"Zagata, 2012")), n = c(184, 202, 270, 200, 202, 270, 200, 320, 
501, 499, 137, 207, 755, 482, 144, 944, 547, 261, 2905, 456, 
220, 389, 1054), Age = c(33.89, 39.16, 39.16, 39.16, 39.16, 39.16, 
39.16, NA, 39.16, 39.16, 40.37, NA, 47, 24.5, 40.04, 44.9, 36, 
NA, 42.43, 20.5, 25.59, 20.98, NA), Female = c(25.5, 28, 50, 
30, 28, 50, 30, NA, 76.35, 76.35, 79.56, NA, 61, 65.6, NA, 50.2, 
65, NA, 60, NA, 45, 64.3, 25.5)), .Names = c("data", "n", "Age", 
"Female"))