data/Hunter83.R

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

Hunter83 <-
structure(list(data = structure(list(`Campbell et al. (1973)` = structure(c(1, 
0.65, 0.48, 0.33, 0.65, 1, 0.52, 0.4, 0.48, 0.52, 1, 0.23, 0.33, 
0.4, 0.23, 1), .Dim = c(4L, 4L), .Dimnames = list(c("Ability", 
"Job_knowledge", "Work_sample", "Supervisor"), c("Ability", "Job_knowledge", 
"Work_sample", "Supervisor"))), `Corts et al. (1977)` = structure(c(1, 
0.53, 0.5, 0.03, 0.53, 1, 0.49, 0.04, 0.5, 0.49, 1, 0.18, 0.03, 
0.04, 0.18, 1), .Dim = c(4L, 4L), .Dimnames = list(c("Ability", 
"Job_knowledge", "Work_sample", "Supervisor"), c("Ability", "Job_knowledge", 
"Work_sample", "Supervisor"))), `O'Leary and Trattner (1977)` = structure(c(1, 
0.54, 0.49, 0.23, 0.54, 1, 0.41, 0.19, 0.49, 0.41, 1, 0.3, 0.23, 
0.19, 0.3, 1), .Dim = c(4L, 4L), .Dimnames = list(c("Ability", 
"Job_knowledge", "Work_sample", "Supervisor"), c("Ability", "Job_knowledge", 
"Work_sample", "Supervisor"))), `Trattner rt al. (1977)` = structure(c(1, 
0.55, 0.36, 0.29, 0.55, 1, 0.34, 0.44, 0.36, 0.34, 1, 0.29, 0.29, 
0.44, 0.29, 1), .Dim = c(4L, 4L), .Dimnames = list(c("Ability", 
"Job_knowledge", "Work_sample", "Supervisor"), c("Ability", "Job_knowledge", 
"Work_sample", "Supervisor"))), `Vineberg and Taylor (1972)` = structure(c(1, 
0.54, 0.36, 0.06, 0.54, 1, 0.5, 0.21, 0.36, 0.5, 1, 0.13, 0.06, 
0.21, 0.13, 1), .Dim = c(4L, 4L), .Dimnames = list(c("Ability", 
"Job_knowledge", "Work_sample", "Supervisor"), c("Ability", "Job_knowledge", 
"Work_sample", "Supervisor"))), `Vineberg and Taylor (1972)` = structure(c(1, 
0.44, 0.32, 0.15, 0.44, 1, 0.49, 0.2, 0.32, 0.49, 1, 0.19, 0.15, 
0.2, 0.19, 1), .Dim = c(4L, 4L), .Dimnames = list(c("Ability", 
"Job_knowledge", "Work_sample", "Supervisor"), c("Ability", "Job_knowledge", 
"Work_sample", "Supervisor"))), `Vineberg and Taylor (1972)` = structure(c(1, 
0.36, 0.39, 0.1, 0.36, 1, 0.64, 0.3, 0.39, 0.64, 1, 0.25, 0.1, 
0.3, 0.25, 1), .Dim = c(4L, 4L), .Dimnames = list(c("Ability", 
"Job_knowledge", "Work_sample", "Supervisor"), c("Ability", "Job_knowledge", 
"Work_sample", "Supervisor"))), `Vineberg and Taylor (1972)` = structure(c(1, 
0.47, 0.35, 0.15, 0.47, 1, 0.49, 0.27, 0.35, 0.49, 1, 0.19, 0.15, 
0.27, 0.19, 1), .Dim = c(4L, 4L), .Dimnames = list(c("Ability", 
"Job_knowledge", "Work_sample", "Supervisor"), c("Ability", "Job_knowledge", 
"Work_sample", "Supervisor"))), `Campell et al. (1973)` = structure(c(1, 
0.39, NA, 0.28, 0.39, 1, NA, 0.39, NA, NA, NA, NA, 0.28, 0.39, 
NA, 1), .Dim = c(4L, 4L), .Dimnames = list(c("Ability", "Job_knowledge", 
"Work_sample", "Supervisor"), c("Ability", "Job_knowledge", "Work_sample", 
"Supervisor"))), `Drauden (1978)` = structure(c(1, 0.33, NA, 
0.29, 0.33, 1, NA, 0.25, NA, NA, NA, NA, 0.29, 0.25, NA, 1), .Dim = c(4L, 
4L), .Dimnames = list(c("Ability", "Job_knowledge", "Work_sample", 
"Supervisor"), c("Ability", "Job_knowledge", "Work_sample", "Supervisor"
))), `Campbell et al. (1973)` = structure(c(1, NA, 0.51, 0.29, 
NA, NA, NA, NA, 0.51, NA, 1, 0.27, 0.29, NA, 0.27, 1), .Dim = c(4L, 
4L), .Dimnames = list(c("Ability", "Job_knowledge", "Work_sample", 
"Supervisor"), c("Ability", "Job_knowledge", "Work_sample", "Supervisor"
))), `Boyles et al. (19??)` = structure(c(1, NA, 0.69, 0.4, NA, 
NA, NA, NA, 0.69, NA, 1, 0.38, 0.4, NA, 0.38, 1), .Dim = c(4L, 
4L), .Dimnames = list(c("Ability", "Job_knowledge", "Work_sample", 
"Supervisor"), c("Ability", "Job_knowledge", "Work_sample", "Supervisor"
))), `Schoon (1979)` = structure(c(NA, NA, NA, NA, NA, 1, 0.72, 
0.05, NA, 0.72, 1, 0.32, NA, 0.05, 0.32, 1), .Dim = c(4L, 4L), .Dimnames = list(
    c("Ability", "Job_knowledge", "Work_sample", "Supervisor"), c("Ability", 
    "Job_knowledge", "Work_sample", "Supervisor"))), `van Rijn and Payne (1980)` = structure(c(1, 
0.62, 0.5, NA, 0.62, 1, 0.62, NA, 0.5, 0.62, 1, NA, NA, NA, NA, 
NA), .Dim = c(4L, 4L), .Dimnames = list(c("Ability", "Job_knowledge", 
"Work_sample", "Supervisor"), c("Ability", "Job_knowledge", "Work_sample", 
"Supervisor")))), .Names = c("Campbell et al. (1973)", "Corts et al. (1977)", 
"O'Leary and Trattner (1977)", "Trattner rt al. (1977)", "Vineberg and Taylor (1972)", 
"Vineberg and Taylor (1972)", "Vineberg and Taylor (1972)", "Vineberg and Taylor (1972)", 
"Campell et al. (1973)", "Drauden (1978)", "Campbell et al. (1973)", 
"Boyles et al. (19??)", "Schoon (1979)", "van Rijn and Payne (1980)"
)), n = c(443, 186, 292, 233, 368, 360, 380, 366, 456, 78, 384, 
59, 160, 210)), .Names = c("data", "n"))