diff --git a/.gitignore b/.gitignore index f1f2051..5649fec 100644 --- a/.gitignore +++ b/.gitignore @@ -3,3 +3,4 @@ .Rapp.history .Rproj.user *.Rproj +.RData diff --git a/.travis.yml b/.travis.yml index 7ae89b9..f8d5770 100644 --- a/.travis.yml +++ b/.travis.yml @@ -1,13 +1,31 @@ language: r -r: - - oldrel - - release - - devel cache: packages -r_packages: covr +r: release +dist: xenial +warnings_are_errors: true +r_check_args: --no-tests --as-cran --no-manual +sudo: required + +env: + - NOT_CRAN=true + +r_packages: + - ape + - covr + - devtools + - BiasedUrn + - digest + - lme4 + - gsl + - R.rsp + - metafor + +apt_packages: + - libgsl-dev + + after_success: - - Rscript -e 'covr::codecov()' -notifications: - email: - on_success: never - on_failure: never \ No newline at end of file + - Rscript -e 'library(covr);codecov()' + + + \ No newline at end of file diff --git a/DESCRIPTION b/DESCRIPTION index 3886bd7..eb972f0 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -5,7 +5,7 @@ Title: Meta-Analysis Datasets Authors@R: c(person(given = "Thomas", family="White", role="aut", email = ""), person(given = "Daniel", family="Noble", role="aut", email = ""), person(given = "Alistair", family="Senior", role="aut", email = ""), person(given = "Wolfgang", family = "Viechtbauer", role = c("aut","cre"), email = "wvb@metafor-project.org", comment = c(ORCID = "0000-0003-3463-4063"))) Depends: R (>= 3.2.0) Imports: utils, tools -Suggests: metafor, ape, multcomp +Suggests: metafor, ape, multcomp, testthat Description: A collection of meta-analytic datasets. License: GPL (>=2) ByteCompile: TRUE diff --git a/data-raw/.rfiles.txt b/data-raw/.rfiles.txt index 122ae12..64c1ac0 100644 --- a/data-raw/.rfiles.txt +++ b/data-raw/.rfiles.txt @@ -1,4 +1,5 @@ "dat.bangertdrowns2004.r" +"dat.barone2019.r" "dat.begg1989.r" "dat.berkey1998.r" "dat.besson2016.r" @@ -14,15 +15,18 @@ "dat.english2016.r" "dat.fine1993.r" "dat.gibson2002.r" +"dat.griffith2006.r" "dat.hackshaw1998.r" "dat.hart1999.r" "dat.hasselblad1998.r" "dat.hine1989.r" +"dat.ho2012.r" "dat.ishak2007.r" "dat.konstantopoulos2011.r" "dat.laopaiboon2015.r" "dat.lee2004.r" "dat.li2007.r" +"dat.lim2014.r" "dat.linde2005.r" "dat.maire2019.r" "dat.mcdaniel1994.r" @@ -36,6 +40,7 @@ "dat.pignon2000.r" "dat.pritz1997.r" "dat.raudenbush1985.r" +"dat.reed2001.r" "dat.riley2003.r" "dat.senn2013.r" "dat.tamim2011.r" diff --git a/data-raw/dat.barone2019.csv b/data-raw/dat.barone2019.csv new file mode 100644 index 0000000..23d9ff3 --- /dev/null +++ b/data-raw/dat.barone2019.csv @@ -0,0 +1,57 @@ +id;Author;Year;Paradigm;Measure;Age_months;n;Dropped_participants;Dropped_participants_corrected;Familiarization;Belief;Agent;Target_object_Presence;Object_movements;Motive_transformation;Salience_of_agents_MS;Interaction;Design;Test_trials;logit.p.;vlogit.p.;sei +voe1;Onishi & Baillargeon;2005;VOE;VOE;15.23;14;14;7;2;L;real present person;real, present;1;other reason;absence;no;BS;1;2.3398012;1.1514538;1.073058153 +voe2;Onishi & Baillargeon;2005;VOE;VOE;15.23;14;NA;7;2;L;real present person;real, present;1;other reason;absence;no;BS;1;3.0834589;1.2830486;1.132717352 +al1;Southgate et al.;2007;AL;AL;25.13;10;16;8;2;L;videotaped person;absent;1;other reason;back turned;no;BS;1;2.197225;1.111111;1.054092501 +al2;Southgate et al.;2007;AL;AL;25.2;10;NA;8;2;L;videotaped person;absent;2;other reason;back turned;no;BS;1;1.386294;0.625;0.790569415 +voe3;Surian et al. ;2007;VOE;VOE;13.13;28;8;8;5;L;virtual agent;real, present;1;other reason;absence;no;BS;1;0.9250377;0.4934802;0.702481459 +voe4;Surian et al. ;2007;VOE;VOE;13.1;26;7;7;5;L;virtual agent;real, present;1;other reason;absence;no;BS;1;0.4897258;0.5263789;0.725519745 +voe5;Song et al.;2008;VOE;VOE;18.6;14;9;9;3;L;real present person;real, present;1;other reason;absence;no;BS;1;2.5574571;1.1843525;1.088279606 +voe6;Song et al.;2008;VOE;VOE;18.57;16;13;13;3;L;real present person;real, present;1;other reason;absence;no;BS;1;2.6481471;1.0527578;1.026039863 +int1;Buttelmann et al.;2009;Interactive;Help;18;25;119;60;0;L;real present person;real, present;1;trick;absence;yes;BS;1;0.9444616;0.1984127;0.445435405 +int2;Buttelmann et al.;2009;Interactive;Help;16.3;25;NA;59;0;L;real present person;real, present;1;trick;absence;yes;BS;1;1.386294;0.25;0.5 +voe7;Scott & Baillargeon;2009;VOE;VOE;17.73;14;19;19;4;I;real present person;real, present;0;other reason;absence;no;WS;2;1.126369;0.2802925;0.529426577 +voe8;Scott & Baillargeon;2009;VOE;VOE;17.8;14;10;10;4;I;real present person;real, present;0;other reason;absence;no;WS;2;1.822959;0.3536756;0.594706314 +int3;Southgate et al.;2010;Interactive;Pointing;17.73;12;3;3;0;L;real present person;real, present;1;trick;absence;yes;BS;1;1.098612;0.4444444;0.666666633 +int4;Southgate et al.;2010;Interactive;Pointing;17.83;12;11;11;0;L;real present person;real, present;1;trick;absence;yes;BS;1;1.609438;0.6;0.774596669 +int5;Southgate et al.;2010;Interactive;Pointing;17.97;12;6;6;0;L;real present person;real, present;1;trick;absence;yes;BS;1;1.098612;0.4444444;0.666666633 +voe9;Scott et al.;2010;VOE;VOE;18.67;18;10;10;1;NP;real present person;real, present;0;other reason;absence;no;BS;1;2.3216632;0.8882644;0.942477798 +voe10;Scott et al.;2010;VOE;VOE;18.8;16;3;3;2;NP;real present person;real, present;0;other reason;absence;no;BS;1;1.7956614;0.9211631;0.959772421 +al3;Senju et al.;2011;AL;AL;18;18;12;12;4;L;videotaped person;absent;1;other reason;first-person experience;no;BS;1;1.252763;0.3214286;0.566946735 +voe11;Luo;2011;VOE;VOE;10.1;12;7;7;3;L;real present person;real, present;0;other reason;absence;no;WS;2;1.0128669;0.31690148;0.562940032 +al4;Surian & Geraci;2012;AL;AL;17.13;24;2;2;2;L;virtual agent;real, present;1;other reason;absence;no;WS;1;0.8873032;0.2016807;0.449088744 +al5;Surian & Geraci;2012;AL;AL;11.5;16;3;3;2;L;virtual agent;real, present;1;other reason;absence;no;WS;1;-0.2513144;0.2539683;0.503952676 +al6;Meristo et al.;2012;AL;AL;23;10;4;4;2;L;virtual agent;real, present;1;other reason;absence;no;WS;1;3.044522;2.095238;1.447493696 +al7;Thoermer et al.;2012;AL;AL;18.07;44;10;10;2;L;videotaped person;absent;2;other reason;back turned;no;BS;1;0.1823216;0.09166667;0.302765041 +int6;Knudsen & Liszkowski (a);2012;Interactive;Pointing;18.4;19;5;5;0;L;real present person;absent;2;other reason;absence;yes;BS;4;0.5389965;0.2261905;0.475594891 +int7;Knudsen & Liszkowski (a);2012;Interactive;Pointing;18.67;19;5;5;0;L;real present person;absent;2;other reason;absence;yes;BS;4;-0.1053605;0.2111111;0.45946828 +int8;Knudsen & Liszkowski (b);2012;Interactive;Pointing;18.33;16;7;7;0;L;real present person;real, present;1;other reason;absence;yes;BS;2;-0.2513144;0.2539683;0.503952676 +int9;Knudsen & Liszkowski (b);2012;Interactive;Pointing;24.47;16;NA;6;0;L;real present person;real, present;1;other reason;absence;yes;WS;2;0.7884574;0.2909091;0.539359898 +voe12;Yott & Poulin-Dubois;2012;VOE;VOE;18.77;34;34;34;3;L;real present person;real, present;1;other reason;absence;no;BS;1;1.5780054;0.4276829;0.653974694 +voe13;Poulin-Dubois et al.;2013;VOE;VOE;16.13;51;17;17;3;L;real present person;real, present;1;other reason;used a blindfold;no;BS;1;-0.33;0.2631895;0.51301998 +int10;Buttelmann et al.;2014;Interactive;Help;18.3;18;21;21;0;C;real present person;real, present;0;other reason;absence;yes;BS;1;0.6931472;0.25;0.5 +al8;Zmyj et al.;2015;AL;AL;18.07;22;15;15;2;L;videotaped person;absent;2;other reason;back turned;no;BS;1;-0.7621401;0.2095238;0.457737698 +int11;Buttelmann et al.;2015;Interactive;Help;18.17;31;10;10;0;I;real present person;real, present;0;other reason;absence;yes;BS;4;0.06453852;0.1291667;0.359397691 +voe14;Scott et al.;2015;VOE;VOE;17.47;18;3;3;6;I;real present person;absent;0;trick;absence;no;BS;1;2.5393191;0.9211631;0.959772421 +voe15;Scott et al.;2015;VOE;VOE;17.53;18;7;7;6;I;real present person;absent;0;trick;absence;no;BS;1;2.1221453;0.8553657;0.924859827 +voe16;Scott et al.;2015;VOE;VOE;17.4;18;5;5;6;I;real present person;absent;0;trick;absence;no;BS;1;2.1221453;0.8553657;0.924859827 +voe17;Yott & Poulin-Dubois;2016;VOE;VOE;16;72;25;25;3;L;real present person;real, present;1;other reason;absence;no;WS;2;0.4471367;0.04708104;0.216981658 +int12;Fizke et al.;2017;Interactive;Help;26;23;25;23;0;L;real present person;real, present;1;trick;absence;yes;BS;2;-0.8266786;0.2053571;0.453163436 +int13;Fizke et al.;2017;Interactive;Help;26;23;NA;23;0;I;real present person;real, present;0;trick;absence;yes;BS;2;-0.4418328;0.1825397;0.42724665 +voe19;Moriguchi et al.;2017;VOE;VOE;18.5;37;1;1;2;L;real present person;real, present;1;other reason;absence;no;WS;1;1.18949;0.1079077;0.328493075 +al9;Kulke et al.;2018;AL;AL;24.5;11;0;0;4;L;videotaped person;absent;1;other reason;back turned;no;BS;1;-0.9808293;0.4583333;0.677003176 +al10;Kulke et al.;2018;AL;AL;24.5;9;0;0;4;L;videotaped person;absent;2;other reason;back turned;no;BS;1;0.2231436;0.45;0.670820393 +al11;Grosse Wiesmann et al.;2018;AL;AL;25.2;25;7;4;2;L;videotaped person;absent;1;other reason;back turned;no;BS;1;0.08004271;0.1602564;0.400320372 +al12;Grosse Wiesmann et al.;2018;AL;AL;25.2;25;NA;3;2;L;videotaped person;absent;2;other reason;back turned;no;BS;1;-0.08004271;0.1602564;0.400320372 +al13;Dorrenberg et al.;2018;AL;AL;24.53;50;16;8;2;L;videotaped person;absent;1;other reason;back turned;no;WS;2;0.4895482;0.08488964;0.291358267 +al14;Dorrenberg et al.;2018;AL;AL;24.53;49;NA;8;2;L;videotaped person;absent;2;other reason;back turned;no;WS;NA;-1.126011;0.1103604;0.332205358 +al15;Schuwerk et al.;2018;AL;AL;25.5;58;20;20;2;L;videotaped person;absent;2;other reason;back turned;no;BS;1;-0.06899287;0.06904762;0.262769138 +int14;Poulin-Dubois & Yott;2018;Interactive;Help;18;53;19;19;0;L;real present person;real, present;1;trick;absence;yes;WS;1;-0.5819215;0.08204334;0.286432086 +int15;Powell et al.;2018;Interactive;Help;18.6;94;34;17;0;L;real present person;real, present;1;trick;absence;yes;BS;1;0.5221894;0.04552058;0.213355525 +int16;Powell et al.;2018;Interactive;Pointing;25.5;16;NA;17;0;L;real present person;real, present;1;other reason;absence;yes;WS;2;0.7884574;0.2909091;0.539359898 +int17;Priewasser et al.;2018;Interactive;Help;25.64;14;17;17;0;L;real present person;real, present;1;trick;absence;yes;BS;1;2.564949;1.076923;1.037749006 +int18;Crivello & Poulin-Dubois;2018;Interactive;Help;18.4;41;15;15;0;L;real present person;real, present;1;trick;absence;yes;BS;1;-0.5500463;0.1051282;0.324234791 +int19;Crivello & Poulin-Dubois;2018;Interactive;Help;18.47;97;9;9;0;L;real present person;real, present;1;trick;absence;yes;BS;1;0.3117796;0.04224739;0.205541699 +int20;Dorrenberg et al.;2018;Interactive;Pointing;24.53;32;3;3;0;L;real present person;real, present;1;trick;absence;yes;BS;3;0.5108256;0.1333333;0.365148326 +voe18;Dorrenberg et al.;2018;VOE;VOE;24.53;26;9;9;2;L;videotaped person;real, present;1;other reason;absence;no;WS;2;0.3225528;0.12853416;0.35851661 +int21;Kiraly et al.;2018;Interactive;Pointing;18.1;15;12;12;0;L;real present person;real, present;1;trick;first-person experience (belief-revision);yes;BS;1;-1.011601;0.3409091;0.583874216 +int22;Kiraly et al.;2018;Interactive;Pointing;18;15;6;6;0;L;real present person;real, present;1;trick;first-person experience;yes;BS;1;0.6931472;0.3;0.547722558 diff --git a/data-raw/dat.barone2019.r b/data-raw/dat.barone2019.r new file mode 100644 index 0000000..ef89edd --- /dev/null +++ b/data-raw/dat.barone2019.r @@ -0,0 +1,6 @@ +# Load +# This csv file was downloaded from https://osf.io/re8uj/?view_only=d2605771dd664831a104318db9ff7aa9 on Sept 13, 2019 +dat.barone2019 <- read.csv("data-raw/dat.barone2019.csv", header=TRUE, sep=";", stringsAsFactors=FALSE) + +# Output +save(dat.barone2019, file="data/dat.barone2019.rda", ascii=FALSE) diff --git a/data/dat.bangertdrowns2004.rda b/data/dat.bangertdrowns2004.rda index afb5840..2eec5be 100644 Binary files a/data/dat.bangertdrowns2004.rda and b/data/dat.bangertdrowns2004.rda differ diff --git a/data/dat.barone2019.rda b/data/dat.barone2019.rda new file mode 100644 index 0000000..04124c5 Binary files /dev/null and b/data/dat.barone2019.rda differ diff --git a/data/dat.begg1989.rda b/data/dat.begg1989.rda index 342e449..ae29deb 100644 Binary files a/data/dat.begg1989.rda and b/data/dat.begg1989.rda differ diff --git a/data/dat.berkey1998.rda b/data/dat.berkey1998.rda index a7c0b43..76b0290 100644 Binary files a/data/dat.berkey1998.rda and b/data/dat.berkey1998.rda differ diff --git a/data/dat.besson2016.rda b/data/dat.besson2016.rda index d1d9d00..846e1d4 100644 Binary files a/data/dat.besson2016.rda and b/data/dat.besson2016.rda differ diff --git a/data/dat.bonett2010.rda b/data/dat.bonett2010.rda index 223c360..97194d3 100644 Binary files a/data/dat.bonett2010.rda and b/data/dat.bonett2010.rda differ diff --git a/data/dat.bourassa1996.rda b/data/dat.bourassa1996.rda index eb8a629..f134b4f 100644 Binary files a/data/dat.bourassa1996.rda and b/data/dat.bourassa1996.rda differ diff --git a/data/dat.cleasby2012.1.rda b/data/dat.cleasby2012.1.rda index ef78a34..eac83ff 100644 Binary files a/data/dat.cleasby2012.1.rda and b/data/dat.cleasby2012.1.rda differ diff --git a/data/dat.cleasby2012.2.rda b/data/dat.cleasby2012.2.rda index f8a1320..70f5579 100644 Binary files a/data/dat.cleasby2012.2.rda and b/data/dat.cleasby2012.2.rda differ diff --git a/data/dat.colditz1994.rda b/data/dat.colditz1994.rda index 75df63b..1a3ed57 100644 Binary files a/data/dat.colditz1994.rda and b/data/dat.colditz1994.rda differ diff --git a/data/dat.collins1985a.rda b/data/dat.collins1985a.rda index e41ba5e..2e799ae 100644 Binary files a/data/dat.collins1985a.rda and b/data/dat.collins1985a.rda differ diff --git a/data/dat.collins1985b.rda b/data/dat.collins1985b.rda index b512d50..3ab3cb8 100644 Binary files a/data/dat.collins1985b.rda and b/data/dat.collins1985b.rda differ diff --git a/data/dat.curtis1998.rda b/data/dat.curtis1998.rda index 6dec289..9826fd7 100644 Binary files a/data/dat.curtis1998.rda and b/data/dat.curtis1998.rda differ diff --git a/data/dat.debruin2009.rda b/data/dat.debruin2009.rda index 3744343..15a9dd5 100644 Binary files a/data/dat.debruin2009.rda and b/data/dat.debruin2009.rda differ diff --git a/data/dat.egger2001.rda b/data/dat.egger2001.rda index d78d007..ae3435f 100644 Binary files a/data/dat.egger2001.rda and b/data/dat.egger2001.rda differ diff --git a/data/dat.english2016.1.rda b/data/dat.english2016.1.rda index c128679..bffd2f9 100644 Binary files a/data/dat.english2016.1.rda and b/data/dat.english2016.1.rda differ diff --git a/data/dat.english2016.2.rda b/data/dat.english2016.2.rda index a3a2f08..07d7b24 100644 Binary files a/data/dat.english2016.2.rda and b/data/dat.english2016.2.rda differ diff --git a/data/dat.fine1993.rda b/data/dat.fine1993.rda index 25211bd..6182cd1 100644 Binary files a/data/dat.fine1993.rda and b/data/dat.fine1993.rda differ diff --git a/data/dat.gibson2002.rda b/data/dat.gibson2002.rda index 4779008..7ab9a0f 100644 Binary files a/data/dat.gibson2002.rda and b/data/dat.gibson2002.rda differ diff --git a/data/dat.griffith2006.rda b/data/dat.griffith2006.rda index 70d1c35..3ffbe8f 100644 Binary files a/data/dat.griffith2006.rda and b/data/dat.griffith2006.rda differ diff --git a/data/dat.hackshaw1998.rda b/data/dat.hackshaw1998.rda index f71449e..2b8316d 100644 Binary files a/data/dat.hackshaw1998.rda and b/data/dat.hackshaw1998.rda differ diff --git a/data/dat.hart1999.rda b/data/dat.hart1999.rda index e12c2f6..f56a83e 100644 Binary files a/data/dat.hart1999.rda and b/data/dat.hart1999.rda differ diff --git a/data/dat.hasselblad1998.rda b/data/dat.hasselblad1998.rda index 97c8a53..8dfb4aa 100644 Binary files a/data/dat.hasselblad1998.rda and b/data/dat.hasselblad1998.rda differ diff --git a/data/dat.hine1989.rda b/data/dat.hine1989.rda index 8c79ef5..acecbd5 100644 Binary files a/data/dat.hine1989.rda and b/data/dat.hine1989.rda differ diff --git a/data/dat.ho2012.rda b/data/dat.ho2012.rda new file mode 100644 index 0000000..bc25c31 Binary files /dev/null and b/data/dat.ho2012.rda differ diff --git a/data/dat.ishak2007.rda b/data/dat.ishak2007.rda index 81a2a65..085ab65 100644 Binary files a/data/dat.ishak2007.rda and b/data/dat.ishak2007.rda differ diff --git a/data/dat.konstantopoulos2011.rda b/data/dat.konstantopoulos2011.rda index 2af4f5b..bef09f5 100644 Binary files a/data/dat.konstantopoulos2011.rda and b/data/dat.konstantopoulos2011.rda differ diff --git a/data/dat.laopaiboon2015.rda b/data/dat.laopaiboon2015.rda index b3cb27f..928c559 100644 Binary files a/data/dat.laopaiboon2015.rda and b/data/dat.laopaiboon2015.rda differ diff --git a/data/dat.lee2004.rda b/data/dat.lee2004.rda index f5f6ef6..22a50d2 100644 Binary files a/data/dat.lee2004.rda and b/data/dat.lee2004.rda differ diff --git a/data/dat.li2007.rda b/data/dat.li2007.rda index c215058..11218d4 100644 Binary files a/data/dat.li2007.rda and b/data/dat.li2007.rda differ diff --git a/data/dat.lim2014.1.rda b/data/dat.lim2014.1.rda index 1604ad0..3eb84cf 100644 Binary files a/data/dat.lim2014.1.rda and b/data/dat.lim2014.1.rda differ diff --git a/data/dat.lim2014.2.rda b/data/dat.lim2014.2.rda index bfa77f5..35771a1 100644 Binary files a/data/dat.lim2014.2.rda and b/data/dat.lim2014.2.rda differ diff --git a/data/dat.lim2014.3.rda b/data/dat.lim2014.3.rda index fc3f6ce..812548c 100644 Binary files a/data/dat.lim2014.3.rda and b/data/dat.lim2014.3.rda differ diff --git a/data/dat.lim2014.4.rda b/data/dat.lim2014.4.rda index dde4abe..8af3c57 100644 Binary files a/data/dat.lim2014.4.rda and b/data/dat.lim2014.4.rda differ diff --git a/data/dat.linde2005.rda b/data/dat.linde2005.rda index f3bf09e..3001df1 100644 Binary files a/data/dat.linde2005.rda and b/data/dat.linde2005.rda differ diff --git a/data/dat.maire2019.data.rda b/data/dat.maire2019.data.rda index 0a1a5e0..1d87b02 100644 Binary files a/data/dat.maire2019.data.rda and b/data/dat.maire2019.data.rda differ diff --git a/data/dat.maire2019.dmat.rda b/data/dat.maire2019.dmat.rda index 2063769..703ded1 100644 Binary files a/data/dat.maire2019.dmat.rda and b/data/dat.maire2019.dmat.rda differ diff --git a/data/dat.mcdaniel1994.rda b/data/dat.mcdaniel1994.rda index 157dd1d..aaa2a10 100644 Binary files a/data/dat.mcdaniel1994.rda and b/data/dat.mcdaniel1994.rda differ diff --git a/data/dat.molloy2014.rda b/data/dat.molloy2014.rda index f747a8a..89e6faa 100644 Binary files a/data/dat.molloy2014.rda and b/data/dat.molloy2014.rda differ diff --git a/data/dat.nakagawa2007.rda b/data/dat.nakagawa2007.rda index b1d9c04..c447758 100644 Binary files a/data/dat.nakagawa2007.rda and b/data/dat.nakagawa2007.rda differ diff --git a/data/dat.nielweise2007.rda b/data/dat.nielweise2007.rda index d43efb2..0a36b6f 100644 Binary files a/data/dat.nielweise2007.rda and b/data/dat.nielweise2007.rda differ diff --git a/data/dat.nielweise2008.rda b/data/dat.nielweise2008.rda index f5ba281..24e666e 100644 Binary files a/data/dat.nielweise2008.rda and b/data/dat.nielweise2008.rda differ diff --git a/data/dat.normand1999.rda b/data/dat.normand1999.rda index 77b562d..eb2479b 100644 Binary files a/data/dat.normand1999.rda and b/data/dat.normand1999.rda differ diff --git a/data/dat.pagliaro1992.rda b/data/dat.pagliaro1992.rda index dbf6fd9..21eedad 100644 Binary files a/data/dat.pagliaro1992.rda and b/data/dat.pagliaro1992.rda differ diff --git a/data/dat.pignon2000.rda b/data/dat.pignon2000.rda index b801a61..a0a02e5 100644 Binary files a/data/dat.pignon2000.rda and b/data/dat.pignon2000.rda differ diff --git a/data/dat.pritz1997.rda b/data/dat.pritz1997.rda index 5499dcc..a6e4af7 100644 Binary files a/data/dat.pritz1997.rda and b/data/dat.pritz1997.rda differ diff --git a/data/dat.raudenbush1985.rda b/data/dat.raudenbush1985.rda index 64eeb1b..2723b9e 100644 Binary files a/data/dat.raudenbush1985.rda and b/data/dat.raudenbush1985.rda differ diff --git a/data/dat.reed2001.rda b/data/dat.reed2001.rda index cca7377..bd5e11f 100644 Binary files a/data/dat.reed2001.rda and b/data/dat.reed2001.rda differ diff --git a/data/dat.riley2003.rda b/data/dat.riley2003.rda index 4bb8c60..6982a86 100644 Binary files a/data/dat.riley2003.rda and b/data/dat.riley2003.rda differ diff --git a/data/dat.senn2013.rda b/data/dat.senn2013.rda index 873a3d3..2984c25 100644 Binary files a/data/dat.senn2013.rda and b/data/dat.senn2013.rda differ diff --git a/data/dat.tamim2011.rda b/data/dat.tamim2011.rda index b8e7197..07e6778 100644 Binary files a/data/dat.tamim2011.rda and b/data/dat.tamim2011.rda differ diff --git a/data/dat.valstad2017.rda b/data/dat.valstad2017.rda index d6160a8..a05c1a4 100644 Binary files a/data/dat.valstad2017.rda and b/data/dat.valstad2017.rda differ diff --git a/data/dat.weaver2018.rda b/data/dat.weaver2018.rda index 239927b..a30f95e 100644 Binary files a/data/dat.weaver2018.rda and b/data/dat.weaver2018.rda differ diff --git a/data/dat.xia2008.rda b/data/dat.xia2008.rda index 716b936..5c40458 100644 Binary files a/data/dat.xia2008.rda and b/data/dat.xia2008.rda differ diff --git a/data/dat.yusuf1985.rda b/data/dat.yusuf1985.rda index 60ccc0b..39df67d 100644 Binary files a/data/dat.yusuf1985.rda and b/data/dat.yusuf1985.rda differ diff --git a/man/dat.barone2019.Rd b/man/dat.barone2019.Rd new file mode 100644 index 0000000..8cafe09 --- /dev/null +++ b/man/dat.barone2019.Rd @@ -0,0 +1,240 @@ +\name{dat.barone2019} +\docType{data} +\alias{dat.barone2019} +\title{Studies on Spontaneous-Response False Belief Tasks in Infants} +\description{Results from studies which use spontaneous-response false belief tasks in infants up to 2 years old.} +\usage{dat.barone2019} +\format{The data frame contains the following columns: +\tabular{lll}{ +\bold{id} \tab \code{character} \tab study identifier \cr +\bold{Author} \tab \code{character} \tab author names \cr +\bold{Year} \tab \code{integer} \tab year published \cr +\bold{Paradigm} \tab \code{character} \tab Experimental paradigm used in the study (VOE = violation of expectation; AL = anticipatory looking; interactive = Interactive design) \cr +\bold{Measure} \tab \code{character} \tab Measure used in the study (VOE = violation of expectation; AL = anticipatory looking; Pointing = Pointing behavior; Help = Correct helping) \cr +\bold{Age_months} \tab \code{numeric} \tab Average age in months \cr +\bold{n} \tab \code{integer} \tab Sample size \cr +\bold{Dropped_participants} \tab \code{integer} \tab Number of participants excluded from each condition \cr +\bold{Dropped_participants_corrected} \tab \code{integer} \tab Number of participants excluded from each condition corrected \cr +\bold{Familiarization} \tab \code{integer} \tab Number of familiarization trials performed in each condition (0 = warm-up trials instead of familiarization trials) \cr +\bold{Belief} \tab \code{character} \tab Type of belief attributed to the agent (L = Object location; NP = Non-obvious property of an object; I = Identity of an object; C = Expected or unexpected contents)\cr +\bold{Agent} \tab \code{character} \tab Agent used in study (real present person; videotaped person; virtual agent)\cr +\bold{Target_object_Presence} \tab \code{character} \tab Real presence of the target object: whether, at the test trial, the target object was real and present or absent (real, present = real and present; absent = absent)\cr +\bold{Object_movements} \tab \code{integer} \tab Number of displacements of the object that the agent did not see before the object arrived at its final position \cr +\bold{Motive_transformation} \tab \code{character} \tab Capturing whether the key transformation was done to trick the agent or for some other reason (trick = Explicity trick the agent; other reason = Some other reason including no explicit reason at all)\cr +\bold{Salience_of_agents_MS} \tab \code{character} \tab Salience of the agent’s mental state (absence = the false belief state had to be tracked from the agent’s absence during the key events; back turned = the false belief state had to be tracked due to the agent’s back turned during the key transformation; first-person experience = the false belief experience was demonstrated initially on the children themselves; blindfold = the agent used a blindfold during the transformation)\cr +\bold{Interaction} \tab \code{character} \tab Interaction between the child and the agent during the test or not (yes = yes; no = no)\cr +\bold{Design} \tab \code{character} \tab Study design employed in each condition (BS = between-subjects design; WS = within-subjects design)\cr +\bold{Test_trials} \tab \code{integer} \tab Number of test trials that were conducted with each child \cr +\bold{logit.p.} \tab \code{numeric} \tab Logit transformed proportion (log odds) \cr +\bold{vlogit.p.} \tab \code{numeric} \tab Sampling variance \cr +\bold{sei} \tab \code{numeric} \tab Standard error +} +} +\details{ + The dataset includes fifty-six effect sizes from studies which use spontaneous-response false belief tasks in infants up to 2 years old. Belief conditions using violation-of-expectation, anticipatory looking and interactive paradigms were included in this dataset, including 1469 infants. The data in this dataset were obtained from the authors reposatory on the Open Science Framework https://osf.io/re8uj/?view_only=d2605771dd664831a104318db9ff7aa9 +} +\source{ + Barone, P., Corradi, G., & Gomila, A. (2019, July 26). Infants’ performance in spontaneous-response false belief tasks: a review and meta-analysis. Retrieved from osf.io/re8uj +} +\references{ + Barone, P., Corradi, G., & Gomila, A. (2019). Infants’ performance in spontaneous-response false belief tasks: A review and meta-analysis. \emph{Infant Behavior and Development}, \bold{57}, 101350. +} +\author{W. Kyle Hamilton, \email{whamilton@ucmerced.edu}} +\examples{ +if (require(metafor)) { +# This code example is a very slightly modified version of the one provided by the authors +# which can be found here https://osf.io/s5ajt/?view_only=d2605771dd664831a104318db9ff7aa9 + +## Make copy of dataset +dat <- dat.barone2019 + + +dat$Familiarization <- as.factor(dat$Familiarization) +dat$Test_trials <- as.factor(dat$Test_trials) +dat$Object_movements <- as.factor(dat$Object_movements) +dat$Belief <- as.factor(dat$Belief) + +# First model +res <- + rma( + yi = logit.p., + sei = sei, + data = dat, + slab = paste(Author, Year) + ) +res + +# Funnel plot +# Note the nonsymmetrical distribution in this funnel plot +# this is an example of publication bias. +funnel(res, main = "Standard Error") + +# Forest plot (grouped by paradigm) +par(mar = c(4, 4, 1, 2)) +dat$Paradigm[order(dat$Paradigm)] +rows = c(5:19, 23:44, 48:66) +length(rows) +table(dat$Paradigm) +### set up forest plot (with 2x2 table counts added; rows argument is used +### to specify exactly in which rows the outcomes will be plotted) +forest( + res, + xlim = c(-11, 10), + ylim = c(-1, 70), + order = order(dat$Paradigm), + rows = rows, + xlab = "", + mlab = "" +) + +### add text with Q-value, dfs, p-value, and I^2 statistic +text(-11,-1, pos = 4, cex = 0.75, bquote( + paste( + "RE Model for All Studies (Q = ", + .(formatC( + res$QE, digits = 2, format = "f" + )), + ", df = ", + .(res$k - res$p), + ", p = ", + .(formatC( + res$QEp, digits = 2, format = "f" + )), + "; ", + I ^ 2, + " = ", + .(formatC( + res$I2, digits = 1, format = "f" + )), + "\%)" + ) +)) + +### set font expansion factor (as in forest() above) and use bold italic +### font and save original settings in object 'op' +op <- par(cex = 0.75, font = 4) + +### add text for the subgroups +text(-11, c(16, 41, 63) + 4, pos = 4, c("AL", + "Interactive", + "VOE")) + +### switch to bold font +par(font = 2) + +### set par back to the original settings +par(op) + +### fit random-effects model in the three subgroups +res.AL <- + rma( + yi = logit.p., + sei = sei , + data = dat[dat$Paradigm == "AL", ], + slab = paste(Author, Year), + method = "REML" + ) +res.AL +res.inter <- + rma( + yi = logit.p., + sei = sei, + data = dat[dat$Paradigm == "Interactive", ], + slab = paste(Author, Year), + method = "REML" + ) +res.inter +res.VOE <- + rma( + yi = logit.p., + sei = sei, + data = dat[dat$Paradigm == "VOE", ], + slab = paste(Author, Year), + method = "REML" + ) +res.VOE +### add summary polygons for the three subgroups +addpoly(res.AL, + row = 2.5, + cex = 0.75, + mlab = "") +addpoly(res.inter, + row = 21.5, + cex = 0.75, + mlab = "") +addpoly(res.VOE, + row = 46.5, + cex = 0.75, + mlab = "") + +### add text with Q-value, dfs, p-value, and I^2 statistic for subgroups +text(-11, 2.5, pos = 4, cex = 0.75, bquote( + paste( + "RE Model for Subgroup (Q = ", + .(formatC( + res.AL$QE, digits = 2, format = "f" + )), + ", df = ", + .(res.AL$k - res.AL$p), + ", p = ", + .(formatC( + res.AL$QEp, digits = 2, format = "f" + )), + "; ", + I ^ 2, + " = ", + .(formatC( + res.AL$I2, digits = 1, format = "f" + )), + "\%)" + ) +)) +text(-11, 21.5, pos = 4, cex = 0.75, bquote( + paste( + "RE Model for Subgroup (Q = ", + .(formatC( + res.inter$QE, digits = 2, format = "f" + )), + ", df = ", + .(res.inter$k - res.inter$p), + ", p = ", + .(formatC( + res.inter$QEp, digits = 2, format = "f" + )), + "; ", + I ^ 2, + " = ", + .(formatC( + res.inter$I2, digits = 1, format = "f" + )), + "\%)" + ) +)) +text(-11, 46.5, pos = 4, cex = 0.75, bquote( + paste( + "RE Model for Subgroup (Q = ", + .(formatC( + res.VOE$QE, digits = 2, format = "f" + )), + ", df = ", + .(res.VOE$k - res.VOE$p), + ", p = ", + .(formatC( + res.VOE$QEp, digits = 2, format = "f" + )), + "; ", + I ^ 2, + " = ", + .(formatC( + res.VOE$I2, digits = 1, format = "f" + )), + "\%)" + ) +)) + + +} +} +\keyword{datasets} +\concept{infants} +\concept{psychology} diff --git a/man/dat.begg1989.Rd b/man/dat.begg1989.Rd index 5e40ca6..84d5460 100644 --- a/man/dat.begg1989.Rd +++ b/man/dat.begg1989.Rd @@ -68,3 +68,5 @@ res } } \keyword{datasets} +\concept{medicine} +\concept{oncology} \ No newline at end of file diff --git a/man/dat.berkey1998.Rd b/man/dat.berkey1998.Rd index e25f101..3a54545 100644 --- a/man/dat.berkey1998.Rd +++ b/man/dat.berkey1998.Rd @@ -55,3 +55,5 @@ print(res, digits=3) } } \keyword{datasets} +\concept{medicine} +\concept{dentistry} diff --git a/man/dat.besson2016.Rd b/man/dat.besson2016.Rd index 4b6bff2..37e9859 100644 --- a/man/dat.besson2016.Rd +++ b/man/dat.besson2016.Rd @@ -30,4 +30,4 @@ dat <- dat.besson2016 dat } -\keyword{datasets} \ No newline at end of file +\keyword{datasets} diff --git a/man/dat.bonett2010.Rd b/man/dat.bonett2010.Rd index 98a4bc9..2e4f22e 100644 --- a/man/dat.bonett2010.Rd +++ b/man/dat.bonett2010.Rd @@ -56,3 +56,4 @@ predict(res, newmods=c(0,1), digits=2) } } \keyword{datasets} +\concept{psychology} \ No newline at end of file diff --git a/man/dat.bourassa1996.Rd b/man/dat.bourassa1996.Rd index d8d6e8c..2e5da0f 100644 --- a/man/dat.bourassa1996.Rd +++ b/man/dat.bourassa1996.Rd @@ -50,3 +50,4 @@ predict(res, transf=exp, digits=2) } } \keyword{datasets} +\concept{psychology} \ No newline at end of file diff --git a/man/dat.colditz1994.Rd b/man/dat.colditz1994.Rd index c443433..e11ee87 100644 --- a/man/dat.colditz1994.Rd +++ b/man/dat.colditz1994.Rd @@ -73,3 +73,4 @@ cor(dat$ablat, dat$year) } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.collins1985a.Rd b/man/dat.collins1985a.Rd index 527ca44..ab227c3 100644 --- a/man/dat.collins1985a.Rd +++ b/man/dat.collins1985a.Rd @@ -71,3 +71,4 @@ print(res, digits=2) } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.collins1985b.Rd b/man/dat.collins1985b.Rd index a3c3ea6..d4d265a 100644 --- a/man/dat.collins1985b.Rd +++ b/man/dat.collins1985b.Rd @@ -54,3 +54,4 @@ rma.peto(n1i=fup.nti, n2i=fup.nci, ai=ned.xti, ci=ned.xci, data=dat, digits=2) } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.curtis1998.Rd b/man/dat.curtis1998.Rd index 2bcfd30..6295518 100644 --- a/man/dat.curtis1998.Rd +++ b/man/dat.curtis1998.Rd @@ -76,3 +76,4 @@ predict(res, transf=exp, digits=2) } } \keyword{datasets} +\concept{ecology} diff --git a/man/dat.debruin2009.Rd b/man/dat.debruin2009.Rd index bcbd282..7504dd8 100644 --- a/man/dat.debruin2009.Rd +++ b/man/dat.debruin2009.Rd @@ -49,3 +49,4 @@ print(res, digits=3) } } \keyword{datasets} +\concept{psychology} diff --git a/man/dat.egger2001.Rd b/man/dat.egger2001.Rd index 090a071..a2e5dc3 100644 --- a/man/dat.egger2001.Rd +++ b/man/dat.egger2001.Rd @@ -72,3 +72,4 @@ funnel(res, refline=0, level=c(90, 95, 99), shade=c("white", "gray", "darkgray") } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.fine1993.Rd b/man/dat.fine1993.Rd index c8e69b6..f8fd4cb 100644 --- a/man/dat.fine1993.Rd +++ b/man/dat.fine1993.Rd @@ -116,3 +116,4 @@ profile(res, rho=1)} } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.hackshaw1998.Rd b/man/dat.hackshaw1998.Rd index 7426101..2bb9644 100644 --- a/man/dat.hackshaw1998.Rd +++ b/man/dat.hackshaw1998.Rd @@ -41,3 +41,4 @@ predict(res, transf=exp, digits=2) } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.hart1999.Rd b/man/dat.hart1999.Rd index fa9d362..d6da145 100644 --- a/man/dat.hart1999.Rd +++ b/man/dat.hart1999.Rd @@ -65,3 +65,4 @@ res } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.hasselblad1998.Rd b/man/dat.hasselblad1998.Rd index 95db2e0..2ffdf86 100644 --- a/man/dat.hasselblad1998.Rd +++ b/man/dat.hasselblad1998.Rd @@ -118,3 +118,5 @@ res } } \keyword{datasets} +\concept{medicine} +\concept{psychology} diff --git a/man/dat.hine1989.Rd b/man/dat.hine1989.Rd index f0e8442..685b4c3 100644 --- a/man/dat.hine1989.Rd +++ b/man/dat.hine1989.Rd @@ -42,3 +42,4 @@ res } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.ho2012.Rd b/man/dat.ho2012.Rd index 5fd021b..b9c5144 100644 --- a/man/dat.ho2012.Rd +++ b/man/dat.ho2012.Rd @@ -7,12 +7,12 @@ \format{The data frame contains the following columns: \tabular{lll}{ \bold{author} \tab \code{character} \tab study authors \cr -\bold{yi} \tab \code{numeric} \tab Hedges' \italic{g} standardized mean difference \cr -\bold{sei} \tab \code{numeric} \tab standard error of Hedges' \italic{g} standardized mean difference +\bold{yi} \tab \code{numeric} \tab Hedges' \emph{g} standardized mean difference \cr +\bold{sei} \tab \code{numeric} \tab standard error of Hedges' \emph{g} standardized mean difference } } \details{ - The difference between EMDR and exposure-based CBT are indicated by the Hedges' \italic{g} effect sizes. These data are in Figure 1 of Ho and Lee (2012). + The difference between EMDR and exposure-based CBT are indicated by the Hedges' \emph{g} effect sizes. These data are in Figure 1 of Ho and Lee (2012). } \source{ Ho M. S. K. & Lee C. W. (2012). Cognitive behaviour therapy versus eye movement desensitization and reprocessing for post-traumatic disorder-is it all in the homework then?. \emph{European Review of Applied Psychology}, \bold{62}, 253--260. @@ -31,3 +31,4 @@ rma(yi = yi, sei = sei, data = dat) } } \keyword{datasets} +\concept{psychology} diff --git a/man/dat.ishak2007.Rd b/man/dat.ishak2007.Rd index 162af61..6b90928 100644 --- a/man/dat.ishak2007.Rd +++ b/man/dat.ishak2007.Rd @@ -64,3 +64,4 @@ print(res, digits=2) } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.konstantopoulos2011.Rd b/man/dat.konstantopoulos2011.Rd index d4984d4..776e0f6 100644 --- a/man/dat.konstantopoulos2011.Rd +++ b/man/dat.konstantopoulos2011.Rd @@ -62,3 +62,4 @@ round(res.ml$sigma2[1] / sum(res.ml$sigma2), 3) } } \keyword{datasets} +\concept{education} diff --git a/man/dat.laopaiboon2015.Rd b/man/dat.laopaiboon2015.Rd index 2c2f9bd..bfa70c7 100644 --- a/man/dat.laopaiboon2015.Rd +++ b/man/dat.laopaiboon2015.Rd @@ -50,3 +50,4 @@ predict(res, transf=exp) } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.lee2004.Rd b/man/dat.lee2004.Rd index f40d608..99539fd 100644 --- a/man/dat.lee2004.Rd +++ b/man/dat.lee2004.Rd @@ -36,3 +36,4 @@ predict(res, transf=exp, digits=2) } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.li2007.Rd b/man/dat.li2007.Rd index e05755e..9c80cf0 100644 --- a/man/dat.li2007.Rd +++ b/man/dat.li2007.Rd @@ -49,3 +49,4 @@ funnel(res, refline=0, level=c(90, 95, 99), shade=c("white", "gray", "darkgray") } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.lim2014.Rd b/man/dat.lim2014.Rd index aa40b3f..dd2e4b8 100644 --- a/man/dat.lim2014.Rd +++ b/man/dat.lim2014.Rd @@ -16,7 +16,7 @@ The data frame dat.lim2014.1 contains the following columns: \tabular{lll}{ \bold{Article} \tab \code{integer} \tab a numeric identifier denoting the primary article \cr -\bold{Datapoint} \tab \code{integer} \tab a unqiue numeric identifier for the specific correlation \cr +\bold{Datapoint} \tab \code{integer} \tab a unique numeric identifier for the specific correlation \cr \bold{Amniotes} \tab \code{character} \tab whether the species is amniotic or not \cr \bold{animal} \tab \code{character} \tab the species in which the correlation is made \cr \bold{Common.Name} \tab \code{character} \tab common name of the species \cr @@ -25,7 +25,7 @@ The data frame dat.lim2014.1 contains the following columns: \bold{Offspring} \tab \code{character} \tab the trait used to quantify offspring size \cr \bold{Reproduction} \tab \code{character} \tab does the species reproduce semalparously or iteroparously \cr \bold{Propagule} \tab \code{character} \tab the life stage of the offspring \cr -\bold{Environment} \tab \code{character} \tab is the correlaiton quanitifed in the wild or in captivity \cr +\bold{Environment} \tab \code{character} \tab is the correlation quantified in the wild or in captivity \cr \bold{Author} \tab \code{character} \tab authors of the primary study \cr \bold{year} \tab \code{character} \tab year published \cr \bold{Phylum} \tab \code{character} \tab phylum of the species \cr @@ -39,7 +39,7 @@ The data frame dat.lim2014.1 contains the following columns: The data frame dat.lim2014.2 contains the following columns: \tabular{lll}{ \bold{Article} \tab \code{integer} \tab a numeric identifier denoting the primary article \cr -\bold{Datapoint} \tab \code{integer} \tab a unqiue numeric identifier for the specific correlation \cr +\bold{Datapoint} \tab \code{integer} \tab a unique numeric identifier for the specific correlation \cr \bold{Amniotes} \tab \code{character} \tab whether the species is amniotic or not \cr \bold{animal} \tab \code{character} \tab the species in which the correlation is made \cr \bold{Common.Name} \tab \code{character} \tab common name of the species \cr @@ -48,7 +48,7 @@ The data frame dat.lim2014.2 contains the following columns: \bold{Fecundity} \tab \code{character} \tab the trait used to quantify offspring numbers \cr \bold{Reproduction} \tab \code{character} \tab does the species reproduce semalparously or iteroparously \cr \bold{Propagule} \tab \code{character} \tab the life stage of the offspring \cr -\bold{Environment} \tab \code{character} \tab is the correlaiton quanitifed in the wild or in captivity \cr +\bold{Environment} \tab \code{character} \tab is the correlation quantified in the wild or in captivity \cr \bold{Author} \tab \code{character} \tab authors of the primary study \cr \bold{year} \tab \code{character} \tab year published \cr \bold{Phylum} \tab \code{character} \tab phylum of the species \cr @@ -69,7 +69,7 @@ The data frame dat.lim2014.3 contains the following columns: \bold{Offspring} \tab \code{character} \tab the trait used to quantify offspring size \cr \bold{Propagule} \tab \code{character} \tab the life stage of the offspring \cr \bold{Reproduction} \tab \code{character} \tab does the species reproduce semalparously or iteroparously \cr -\bold{Environment} \tab \code{character} \tab is the correlaiton quanitifed in the wild or in captivity \cr +\bold{Environment} \tab \code{character} \tab is the correlation quantified in the wild or in captivity \cr \bold{Author} \tab \code{character} \tab authors of the primary study \cr \bold{Date} \tab \code{character} \tab year published \cr \bold{Phylum} \tab \code{character} \tab phylum of the species \cr @@ -78,7 +78,7 @@ The data frame dat.lim2014.3 contains the following columns: \bold{Family} \tab \code{character} \tab family of the species \cr \bold{Genus} \tab \code{character} \tab genus of the species \cr \bold{yi} \tab \code{numeric} \tab effect size of correlation (zr) \cr -\bold{Datapoint} \tab \code{integer} \tab a unqiue numeric identifier for the specific correlation \cr +\bold{Datapoint} \tab \code{integer} \tab a unique numeric identifier for the specific correlation \cr } The data frame dat.lim2014.4 contains the following columns: \tabular{lll}{ @@ -90,7 +90,7 @@ The data frame dat.lim2014.4 contains the following columns: \bold{Offspring} \tab \code{character} \tab the trait used to quantify offspring size \cr \bold{Propagule} \tab \code{character} \tab the life stage of the offspring \cr \bold{Reproduction} \tab \code{character} \tab does the species reproduce semalparously or iteroparously \cr -\bold{Environment} \tab \code{character} \tab is the correlaiton quanitifed in the wild or in captivity \cr +\bold{Environment} \tab \code{character} \tab is the correlation quantified in the wild or in captivity \cr \bold{Author} \tab \code{character} \tab authors of the primary study \cr \bold{Date} \tab \code{character} \tab year published \cr \bold{Phylum} \tab \code{character} \tab phylum of the species \cr @@ -99,7 +99,7 @@ The data frame dat.lim2014.4 contains the following columns: \bold{Family} \tab \code{character} \tab family of the species \cr \bold{Genus} \tab \code{character} \tab genus of the species \cr \bold{yi} \tab \code{numeric} \tab effect size of correlation (zr) \cr -\bold{Datapoint} \tab \code{integer} \tab a unqiue numeric identifier for the specific correlation \cr +\bold{Datapoint} \tab \code{integer} \tab a unique numeric identifier for the specific correlation \cr } The data dat.lim2014.phy1 contains a phylogeny for the species in dat.lim2014.1\cr The data dat.lim2014.phy2 contains a phylogeny for the species in dat.lim2014.2\cr @@ -109,49 +109,57 @@ The data dat.lim2014.phy4 contains a phylogeny for the species in dat.lim2014.4\ \details{ A meta-analysis on the strength of correlation between 1) maternal size and offspring size (dat.lim2014.1), 2) maternal size and maternal fecundity (dat.lim2014.2), 3) offspring size and offspring number (dat.lim2014.3), 4) offspring size and offspring number, adjusted for maternal size (dat.lim2014.4). - In each case the correlation is given as the z-transformed correlation coefficient. In places these have been computed from other statsitics in the primary literature. A number of predictors related to life-history traits of the species are given. Topologies for the phylogenetic relationship between the species included in each data set are included. The data exhibit phylogenetic signals. + In each case the correlation is given as the z-transformed correlation coefficient. In places these have been computed from other statistics in the primary literature. A number of predictors related to life-history traits of the species are given. Topologies for the phylogenetic relationship between the species included in each data set are included. The data exhibit phylogenetic signals. } \source{Lim, J.N., Senior, A.M. & Nakagawa, S. (2014). Heterogeneity in individual quality and reproductive trade-offs within species. \emph{Evolution}, \bold{8}, 2306-2318.} \author{Alistair M Senior, \email{alistair.senior@sydney.edu.au}} \examples{ # exploring phylogeneitc effects - the metafor and ape packages are required -if((require(metafor) && require(ape))){ - - # demonstrated with the maternal size, offspring size correlation - dat<-dat.lim2014.1 - phy<-dat.lim2014.phy1 - plot(phy, cex=0.25) - - # calculate the sample variance for zr - dat$vi<-(1/sqrt(dat$N-1))^2 - - # convert phy to ultrametric format (Grafen's method) - phy<-compute.brlen(phy) - - # convert to correlation matrix - CorMatrix <- vcv.phylo(phy, cor=TRUE) - Cov <- CorMatrix[match(dat$animal, rownames(CorMatrix)), - match(dat$animal, colnames(CorMatrix))] - - # ensure the random effects are factors - dat$article <- as.factor(dat$Article) - dat$effect.id <- as.factor(dat$Datapoint) - dat$animal <- as.factor(dat$animal) - - # fit the phylogenetic multi-level meta-analysis and check the results - PMA <- rma.mv(yi = yi , V = vi, - random=list(~1|animal, ~1|article, ~1|effect.id), - R = list(animal = Cov), data=dat) - summary(PMA) - - # phylogenetic signals are sometimes quantified as phylogenetic heritability, or 'Pagel's lambda': sigma_phylo / sigma_total - PMA$sigma2[1]/sum(PMA$sigma2) - - # an alternative is to include the typical sampling variance in the total variance, which becomes analagous to I2 for the phylogeny - - # calculate the typical sampling variance - tsv<-((sum(1/dat$vi)) * (length(dat$vi)-1)) / (((sum(1/dat$vi))^2) - (sum((1/dat$vi)^2))) - PMA$sigma2[1]/(sum(PMA$sigma2) + tsv) +if ((require(metafor) && require(ape))) { + # demonstrated with the maternal size, offspring size correlation + dat <- dat.lim2014.1 + phy <- dat.lim2014.phy1 + plot(phy, cex = 0.25) + + # calculate the sample variance for zr + dat$vi <- (1 / sqrt(dat$N - 1)) ^ 2 + + # convert phy to ultrametric format (Grafen's method) + phy <- compute.brlen(phy) + + # convert to correlation matrix + CorMatrix <- vcv.phylo(phy, cor = TRUE) + Cov <- CorMatrix[match(dat$animal, rownames(CorMatrix)), + match(dat$animal, colnames(CorMatrix))] + + # ensure the random effects are factors + dat$article <- as.factor(dat$Article) + dat$effect.id <- as.factor(dat$Datapoint) + dat$animal <- as.factor(dat$animal) + + # fit the phylogenetic multi-level meta-analysis and check the results + PMA <- rma.mv( + yi = yi , + V = vi, + random = list( ~ 1 | + animal, ~ 1 | article, ~ 1 | effect.id), + R = list(animal = Cov), + data = dat + ) + summary(PMA) + + # phylogenetic signals are sometimes quantified as phylogenetic heritability, + # or 'Pagel's lambda': sigma_phylo / sigma_total + PMA$sigma2[1] / sum(PMA$sigma2) + + # an alternative is to include the typical sampling variance in the + # total variance, which becomes analagous to I2 for the phylogeny + + # calculate the typical sampling variance + tsv <- + ((sum(1 / dat$vi)) * (length(dat$vi) - 1)) / (((sum(1 / dat$vi)) ^ 2) - (sum((1 / + dat$vi) ^ 2))) + PMA$sigma2[1] / (sum(PMA$sigma2) + tsv) } } \keyword{datasets} diff --git a/man/dat.linde2005.Rd b/man/dat.linde2005.Rd index 6994907..3f3c377 100644 --- a/man/dat.linde2005.Rd +++ b/man/dat.linde2005.Rd @@ -63,3 +63,5 @@ predict(res, newmods=diag(4), transf=exp, digits=2) } } \keyword{datasets} +\concept{medicine} +\concept{psychiatry} diff --git a/man/dat.mcdaniel1994.Rd b/man/dat.mcdaniel1994.Rd index 4010907..8369fac 100644 --- a/man/dat.mcdaniel1994.Rd +++ b/man/dat.mcdaniel1994.Rd @@ -67,3 +67,4 @@ res } } \keyword{datasets} +\concept{psychology} diff --git a/man/dat.molloy2014.Rd b/man/dat.molloy2014.Rd index d56e047..65c93c2 100644 --- a/man/dat.molloy2014.Rd +++ b/man/dat.molloy2014.Rd @@ -58,3 +58,5 @@ funnel(res) } } \keyword{datasets} +\concept{psychology} +\concept{medicine} diff --git a/man/dat.nielweise2007.Rd b/man/dat.nielweise2007.Rd index ff8ba4f..6f7d958 100644 --- a/man/dat.nielweise2007.Rd +++ b/man/dat.nielweise2007.Rd @@ -47,3 +47,4 @@ predict(res, transf=exp, digits=2)} } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.nielweise2008.Rd b/man/dat.nielweise2008.Rd index bec7406..f9da415 100644 --- a/man/dat.nielweise2008.Rd +++ b/man/dat.nielweise2008.Rd @@ -47,3 +47,4 @@ predict(res, transf=exp, digits=2)} } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.normand1999.Rd b/man/dat.normand1999.Rd index e725e4d..e53e30e 100644 --- a/man/dat.normand1999.Rd +++ b/man/dat.normand1999.Rd @@ -49,3 +49,4 @@ text( 5, 11, "Observed SMD [95\% CI]", pos=2, cex=.8) } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.pagliaro1992.Rd b/man/dat.pagliaro1992.Rd index 81372f9..3c2ffbb 100644 --- a/man/dat.pagliaro1992.Rd +++ b/man/dat.pagliaro1992.Rd @@ -65,3 +65,4 @@ predict(res, newmods=c(rep(0,26), 1, -1), transf=exp, digits=2) } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.pignon2000.Rd b/man/dat.pignon2000.Rd index 8d6d642..1f53b68 100644 --- a/man/dat.pignon2000.Rd +++ b/man/dat.pignon2000.Rd @@ -55,3 +55,4 @@ predict(res, transf=exp) } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.pritz1997.Rd b/man/dat.pritz1997.Rd index 598062c..262b285 100644 --- a/man/dat.pritz1997.Rd +++ b/man/dat.pritz1997.Rd @@ -22,6 +22,7 @@ Pritz, M. B. (1997). Treatment of cerebral vasospasm due to aneurysmal subarachnoid hemorrhage: Past, present, and future of hyperdynamic therapy. \emph{Neurosurgery Quarterly}, \bold{7}, 273--285. } \examples{ +\dontrun{ if (require(metafor)) { ### copy data into 'dat' and examine data @@ -53,6 +54,7 @@ predict(res, transf=transf.ilogit) res <- rma.glmm(measure="PLO", xi=xi, ni=ni, data=dat) predict(res, transf=transf.ilogit) -} +}} } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.raudenbush1985.Rd b/man/dat.raudenbush1985.Rd index 7b560b3..74862f7 100644 --- a/man/dat.raudenbush1985.Rd +++ b/man/dat.raudenbush1985.Rd @@ -53,3 +53,4 @@ res } } \keyword{datasets} +\concept{education} diff --git a/man/dat.riley2003.Rd b/man/dat.riley2003.Rd index 8380ccb..e735e65 100644 --- a/man/dat.riley2003.Rd +++ b/man/dat.riley2003.Rd @@ -47,3 +47,4 @@ predict(res, transf=exp, digits=2) } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.senn2013.Rd b/man/dat.senn2013.Rd index c97a560..0259f74 100644 --- a/man/dat.senn2013.Rd +++ b/man/dat.senn2013.Rd @@ -157,3 +157,4 @@ if (require(multcomp)) { } } \keyword{datasets} +\concept{medicine} diff --git a/man/dat.valstad2017.Rd b/man/dat.valstad2017.Rd index 54df0ed..a48687c 100644 --- a/man/dat.valstad2017.Rd +++ b/man/dat.valstad2017.Rd @@ -34,3 +34,5 @@ Valstad, M., Alvares, G. A., Egknud, M., Matziorinis, A. M., Andreassen, O. A., dat } \keyword{datasets} +\concept{medicine} +\concept{psychiatry} diff --git a/man/dat.yusuf1985.Rd b/man/dat.yusuf1985.Rd index 200c35b..46050a0 100644 --- a/man/dat.yusuf1985.Rd +++ b/man/dat.yusuf1985.Rd @@ -43,3 +43,6 @@ predict(res, transf=exp, digits=2) } } \keyword{datasets} +\concept{medicine} +\concept{cardiology} +