data/issp89.R

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

my.df <- matrix(
c(0.77298,0.26975,0.24009,0.23778,0.20869,0.22377,0.18801,0.07055,0.10051,
0.26975,0.91307,0.44374,0.26083,0.28387,0.20660,0.12764,0.22892,0.09590,
0.24009,0.44374,1.11292,0.29440,0.26262,0.27320,0.18548,0.20417,0.18243,
0.23778,0.26083,0.29440,0.80501,0.47489,0.45939,0.40998,0.09104,0.10142,
0.20869,0.28387,0.26262,0.47489,0.89692,0.41972,0.31541,0.33907,0.06561,
0.22377,0.20660,0.27320,0.45939,0.41972,1.36089,0.74274,0.18137,0.12973,
0.18801,0.12764,0.18548,0.40998,0.31541,0.74274,1.01075,0.13724,0.12776,
0.07055,0.22892,0.20417,0.09104,0.33907,0.18137,0.13724,1.81805,-0.01980,
0.10051,0.09590,0.18243,0.10142,0.06561,0.12973,0.12776,-0.01980,0.91252,
1.16582,0.35465,0.36978,0.17702,0.12299,0.16673,0.14370,0.08989,0.16993,
0.35465,0.90768,0.46732,0.16265,0.13714,0.06732,0.02009,0.15205,0.15499,
0.36978,0.46732,1.06293,0.27094,0.20331,0.16522,0.11922,0.25387,0.06877,
0.17702,0.16265,0.27094,0.73625,0.27053,0.33506,0.33495,0.16124,0.00912,
0.12299,0.13714,0.20331,0.27053,0.71718,0.19873,0.14582,0.21907,0.04089,
0.16673,0.06732,0.16522,0.33506,0.19873,0.92247,0.55128,0.17143,0.01380,
0.14370,0.02009,0.11922,0.33495,0.14582,0.55128,1.00462,0.16561,0.04322,
0.08989,0.15205,0.25387,0.16124,0.21907,0.17143,0.16561,1.49431,0.29094,
0.16993,0.15499,0.06877,0.00912,0.04089,0.01380,0.04322,0.29094,1.01960,
0.95825,0.32958,0.34909,0.21547,0.22496,0.13948,0.15463,0.15248,0.10405,
0.32958,1.02277,0.56464,0.30819,0.22806,0.07300,0.07002,0.17056,0.13502,
0.34909,0.56464,1.24067,0.37438,0.26483,0.14087,0.14459,0.24406,0.16992,
0.21547,0.30819,0.37438,0.92492,0.38382,0.37915,0.35435,0.22515,0.07795,
0.22496,0.22806,0.26483,0.38382,0.93168,0.33693,0.21318,0.28831,0.10226,
0.13948,0.07300,0.14087,0.37915,0.33693,0.82987,0.43769,0.23195,0.03856,
0.15463,0.07002,0.14459,0.35435,0.21318,0.43769,0.83476,0.19002,0.03986,
0.15248,0.17056,0.24406,0.22515,0.28831,0.23195,0.19002,1.42583,0.38343,
0.10405,0.13502,0.16992,0.07795,0.10226,0.03856,0.03986,0.38343,1.03062,
0.83995,0.21117,0.14249,0.13268,0.17861,0.22783,0.18991,-0.00191,0.05857,
0.21117,0.93380,0.34383,0.19040,0.15068,0.12191,-0.04762,0.05840,0.13090,
0.14249,0.34383,1.33025,0.31041,0.10873,0.19756,0.12113,0.06168,0.18095,
0.13268,0.19040,0.31041,0.77512,0.36093,0.36519,0.22716,0.16240,-0.01475,
0.17861,0.15068,0.10873,0.36093,0.91598,0.37035,0.19550,0.40488,-0.05915,
0.22783,0.12191,0.19756,0.36519,0.37035,1.48445,0.62637,0.12943,-0.02037,
0.18991,-0.04762,0.12113,0.22716,0.19550,0.62637,1.05049,0.00675,-0.04500,
-0.00191,0.05840,0.06168,0.16240,0.40488,0.12943,0.00675,1.86778,-0.08383,
0.05857,0.13090,0.18095,-0.01475,-0.05915,-0.02037,-0.04500,-0.08383,1.22117,
0.80810,0.20217,0.20802,0.11116,0.09876,0.07659,0.06804,0.05225,0.03386,
0.20217,0.68454,0.28387,0.09954,0.11877,-0.03587,-0.01883,0.05770,0.08697,
0.20802,0.28387,0.72571,0.10309,0.08448,-0.00108,-0.01835,-0.00844,0.08276,
0.11116,0.09954,0.10309,0.66950,0.23643,0.16195,0.11231,0.09310,0.05615,
0.09876,0.11877,0.08448,0.23643,0.75828,0.16618,0.07984,0.26911,0.08776,
0.07659,-0.03587,-0.00108,0.16195,0.16618,0.53584,0.19382,0.04999,-0.02122,
0.06804,-0.01883,-0.01835,0.11231,0.07984,0.19382,0.35623,-0.01129,-0.02473,
0.05225,0.05770,-0.00844,0.09310,0.26911,0.04999,-0.01129,1.65765,0.26386,
0.03386,0.08697,0.08276,0.05615,0.08776,-0.02122,-0.02473,0.26386,0.92147,
1.01395,0.22954,0.28090,0.17442,0.13069,0.15246,0.14946,0.09215,0.02067,
0.22954,0.83489,0.38101,0.20961,0.19196,-0.01541,0.02917,0.14823,0.12068,
0.28090,0.38101,1.03315,0.31389,0.20047,0.08230,0.03753,0.16529,0.09507,
0.17442,0.20961,0.31389,0.75219,0.31134,0.33768,0.29687,0.18295,-0.00436,
0.13069,0.19196,0.20047,0.31134,0.63406,0.19217,0.17073,0.25021,0.02909,
0.15246,-0.01541,0.08230,0.33768,0.19217,1.03169,0.57104,0.19396,-0.01089,
0.14946,0.02917,0.03753,0.29687,0.17073,0.57104,0.84474,0.18118,-0.03621,
0.09215,0.14823,0.16529,0.18295,0.25021,0.19396,0.18118,1.55793,0.26837,
0.02067,0.12068,0.09507,-0.00436,0.02909,-0.01089,-0.03621,0.26837,0.99748,
1.47393,0.36556,0.20761,0.07433,-0.00716,0.23596,0.28532,-0.12957,0.23244,
0.36556,1.02574,0.49094,0.26935,0.19967,0.12872,0.08257,0.09875,0.01458,
0.20761,0.49094,1.31700,0.34545,0.26353,0.12744,0.06881,0.17624,-0.00993,
0.07433,0.26935,0.34545,1.13316,0.55650,0.38922,0.31651,0.24667,-0.02022,
-0.00716,0.19967,0.26353,0.55650,1.79077,0.36631,0.20183,0.55643,-0.10183,
0.23596,0.12872,0.12744,0.38922,0.36631,1.51401,0.74587,0.18885,0.15199,
0.28532,0.08257,0.06881,0.31651,0.20183,0.74587,1.44312,0.21835,0.28257,
-0.12957,0.09875,0.17624,0.24667,0.55643,0.18885,0.21835,1.93809,0.28139,
0.23244,0.01458,-0.00993,-0.02022,-0.10183,0.15199,0.28257,0.28139,1.36061,
1.16117,0.26003,0.23631,0.17985,0.23422,0.21904,0.22176,0.06419,0.18465,
0.26003,1.01972,0.39343,0.15209,0.22393,0.07466,0.03718,0.05031,0.10495,
0.23631,0.39343,1.26450,0.25379,0.20835,0.11879,0.04935,0.30066,0.02556,
0.17985,0.15209,0.25379,0.78405,0.38739,0.33272,0.30916,0.18768,0.05717,
0.23422,0.22393,0.20835,0.38739,1.21795,0.23879,0.19013,0.39217,0.01377,
0.21904,0.07466,0.11879,0.33272,0.23879,0.92506,0.45726,0.08398,0.17012,
0.22176,0.03718,0.04935,0.30916,0.19013,0.45726,0.85252,0.10015,0.05312,
0.06419,0.05031,0.30066,0.18768,0.39217,0.08398,0.10015,1.53181,0.03982,
0.18465,0.10495,0.02556,0.05717,0.01377,0.17012,0.05312,0.03982,1.10561,
1.31866,0.44646,0.47768,0.37483,0.23591,0.19399,0.12066,0.29264,0.12477,
0.44646,1.08271,0.62945,0.24424,0.09992,0.13435,0.11183,0.32794,0.15055,
0.47768,0.62945,1.20761,0.36466,0.10417,0.10985,0.09685,0.31362,0.27206,
0.37483,0.24424,0.36466,0.89961,0.38600,0.44069,0.39434,0.28157,0.10683,
0.23591,0.09992,0.10417,0.38600,0.93135,0.34027,0.26519,0.25326,0.03489,
0.19399,0.13435,0.10985,0.44069,0.34027,0.90436,0.54739,0.17502,0.00141,
0.12066,0.11183,0.09685,0.39434,0.26519,0.54739,0.90400,0.25957,0.01211,
0.29264,0.32794,0.31362,0.28157,0.25326,0.17502,0.25957,1.68930,0.24936,
0.12477,0.15055,0.27206,0.10683,0.03489,0.00141,0.01211,0.24936,0.99178,
1.37086,0.25955,0.15452,0.17023,0.06660,0.16357,0.14251,0.10661,0.10646,
0.25955,1.15179,0.41429,0.19229,0.14911,-0.01744,-0.02186,0.25652,0.04050,
0.15452,0.41429,0.97636,0.18980,0.13481,0.01460,-0.01479,0.28310,0.12462,
0.17023,0.19229,0.18980,0.87233,0.35803,0.33406,0.30636,0.16645,-0.12023,
0.06660,0.14911,0.13481,0.35803,0.71043,0.15927,0.16683,0.26221,-0.06464,
0.16357,-0.01744,0.01460,0.33406,0.15927,1.05043,0.49658,-0.00166,-0.01504,
0.14251,-0.02186,-0.01479,0.30636,0.16683,0.49658,0.89145,0.11579,0.00022,
0.10661,0.25652,0.28310,0.16645,0.26221,-0.00166,0.11579,1.84673,0.15823,
0.10646,0.04050,0.12462,-0.12023,-0.06464,-0.01504,0.00022,0.15823,1.12438,
1.33139,0.41256,0.44888,0.29776,0.31779,0.20194,0.24395,0.15964,0.11839,
0.41256,1.23767,0.60688,0.18834,0.35874,0.16144,0.08221,0.44843,0.33333,
0.44888,0.60688,1.35000,0.35452,0.30558,0.24800,0.27983,0.35521,0.21031,
0.29776,0.18834,0.35452,1.12956,0.47826,0.42717,0.55162,0.28998,0.16285,
0.31779,0.35874,0.30558,0.47826,1.39472,0.33622,0.32470,0.29790,0.15794,
0.20194,0.16144,0.24800,0.42717,0.33622,1.29278,0.79060,0.21801,0.11454,
0.24395,0.08221,0.27983,0.55162,0.32470,0.79060,1.34927,0.25843,0.12856,
0.15964,0.44843,0.35521,0.28998,0.29790,0.21801,0.25843,1.58772,0.63627,
0.11839,0.33333,0.21031,0.16285,0.15794,0.11454,0.12856,0.63627,1.42450),
ncol=9, byrow=TRUE)
my.df <- split(my.df, rep(1:11, each=9))
my.df <- lapply(my.df, function(x) { my.names <- c("JP1","JP2","JP3","JN1","JN2","JN3","JN4","TD1","TD2") 
                                     my.matrix <- matrix(x, ncol=9)
                                     dimnames(my.matrix) <- list(my.names, my.names)
                                     my.matrix})
names(my.df) <- c("West Germany","Great Britian","USA","Austria","Hungary","Netherlands","Italy","Ireland","Northern Ireland","Norway","Israel")
my.n <- c(591,656,832,823,581,627,546,463,319,1047,670)  
issp89 <- list(data=my.df, n=my.n)
rm(my.df, my.n)