A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z | AA | AB | AC | AD | AE | AF | AG | AH | AI | AJ | AK | AL | AM | AN | AO | AP | AQ | AR | AS | AT | AU | AV | AW | AX | AY | AZ | ||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
1 | unique.id | study.id | study.slate | study.name | study.analysis | study.vars | study.vars.labels | study.cases.include | study.sites.include | study.global.include | study.primary.include | study.secondary.include | study.figure2.include | study.table1.include | study.table1.weird.split | stat.vars | stat.type | stat.test | stat.params | stat.ncp | stat.df | stat.p.value | orig.sample.nation | ori.sample.weird | ori.study.figure2.include | orig.stat.type | orig.test.alternative | orig.test.sample | orig.stat.df1 | orig.stat.df2 | orig.stat.n1 | orig.stat.n2 | orig.stat.N | orig.stat.estimate | orig.stat.estimate1 | orig.stat.estimate2 | orig.stat.ncp | orig.stat.ncp.ciL | orig.stat.ncp.ciU | orig.stat.p.value | orig.ES.d | orig.ES.d.ciL | orig.ES.d.ciU | orig.ES.r | orig.ES.r.ciL | orig.ES.r.ciU | orig.ES.cohensQ | orig.ES.cohensQ.ciL | orig.ES.cohensQ.ciU | comments | study.description | cohensQ | |
2 | 1 | 1 | 1 | Huang | Huang.1 | list(High=c('huan1.1_Y1','huan1.1_R0'), Low=c('huan2.1_Y1','huan2.1_R0')) | list(Condition=c('High','Low')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 1 | 1 | 1 | varfun.Huang.1 | t | t.test(x = High, y = Low, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US & Hong Kong, China | 10 | 0 | Direction & SES (Huang et al., 2014) | |||||||||||||||||||||||||||
3 | 2 | 1 | 1 | Huang | Huang.2 | list(High=c('huan1.1_Y1','huan1.1_R0','homewealth'), Low=c('huan2.1_Y1','huan2.1_R0', 'homewealth')) | list(Condition=c('High','Low'), HomeWealth = c('homewealth','homewealth')) | list(each=rbind(c('Condition','X > 0'),c('HomeWealth','X == 1'))) | list(c('all')) | 1 | 1 | 0 | 0 | 0 | 0 | varfun.Huang.1 | t | t.test(x = High, y = Low, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Direction & SES (Huang et al., 2014) | |||||||||||||||||||||||||||
4 | 3 | 1 | 1 | Huang | Huang.3 | list(High=c('huan1.1_Y1','huan1.1_R0'), Low=c('huan2.1_Y1','huan2.1_R0')) | list(Condition=c('High','Low')) | list(each=c('Condition','X > 0')) | list(c('Source.Global=="ouhk" | Source.Global == "hkust" ')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Huang.1 | t | t.test(x = High, y = Low, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 1 | t | two.sided | independent | 78 | 40 | 40 | 80 | 3.69 | 1.64 | 5.72 | <.001 | 0.83 | 0.37 | 1.28 | 0.39 | 0.18 | 0.54 | Direction & SES (Huang et al., 2014) | ||||||||||
5 | 4 | 1 | 1 | Huang | Huang.4 | list(High=c('huan1.1_Y1','huan1.1_R0'), Low=c('huan2.1_Y1','huan2.1_R0')) | list(Condition=c('High','Low')) | list(each=c('Condition','X > 0')) | list(c('Country=="USA" ')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Huang.1 | t | t.test(x = High, y = Low, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Hong Kong, China | 0 | 1 | t | two.sided | independent | 98 | 50 | 50 | 100 | -2.95 | -4.95 | -0.94 | 0.00 | -0.59 | -0.99 | -0.19 | -0.29 | -0.45 | -0.09 | Direction & SES (Huang et al., 2014) | ||||||||||
6 | 5 | 1 | 1 | Huang | Huang.5 | list(High=c('huan1.1_Y1','huan1.1_R0','homewealth'), Low=c('huan2.1_Y1','huan2.1_R0', 'homewealth')) | list(Condition=c('High','Low'), HomeWealth = c('homewealth','homewealth')) | list(each=rbind(c('Condition','X > 0'),c('HomeWealth','X == 1'))) | list(c('Tablet=="Tablets" ')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Huang.1 | t | t.test(x = High, y = Low, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Direction & SES (Huang et al., 2014) | |||||||||||||||||||||||||||
7 | 6 | 1 | 1 | Huang | Huang.6 | list(High=c('huan1.1_Y1','huan1.1_R0','homewealth'), Low=c('huan2.1_Y1','huan2.1_R0', 'homewealth')) | list(Condition=c('High','Low'), HomeWealth = c('homewealth','homewealth')) | list(each=rbind(c('Condition','X > 0'),c('HomeWealth','X == 2'))) | list(c('Tablet=="Tablets" ')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Huang.1 | t | t.test(x = High, y = Low, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Hong Kong, China | 0 | 0 | Direction & SES (Huang et al., 2014) | |||||||||||||||||||||||||||
8 | 7 | 2 | 1 | Kay | Kay.1 | list(Order=c('kay1.4','kay1.5','kay1.6'), DisOrder=c('kay2.4','kay2.5','kay2.6')) | list(Condition=c('Order','DisOrder')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Kay.1 | t | t.test(x = Order, y = DisOrder, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 1 | t | two.sided | independent | 65 | 33 | 34 | 67 | 2.00 | 0.00 | 3.98 | 0.05 | 0.49 | 0.00 | 0.97 | 0.24 | 0.00 | 0.44 | Structure & Goal Pursuit (Kay et al., 2014) | ||||||||||
9 | 8 | 3 | 1 | Alter | Alter.1 | list(Fluent=c('alt1.3','alt1.4','alt1.5','alt1.6','alt1.7','alt1.8'), DisFluent=c('alt2.3','alt2.4','alt2.5','alt2.6','alt2.7','alt2.8')) | list(Condition=c('Fluent','DisFluent')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 1 | 1 | 0 | varfun.Alter.1 | t | t.test(x = DisFluent, y = Fluent, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Incidental Disfluency (Alter et al., 2007) | |||||||||||||||||||||||||||
10 | 9 | 3 | 1 | Alter | Alter.2 | list(Fluent=c('alt1.3','alt1.4','alt1.5','alt1.6','alt1.7','alt1.8'), DisFluent=c('alt2.3','alt2.4','alt2.5','alt2.6','alt2.7','alt2.8')) | list(Condition=c('Fluent','DisFluent')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Alter.2 | t | t.test(x = DisFluent, y = Fluent, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Incidental Disfluency (Alter et al., 2007) | |||||||||||||||||||||||||||
11 | 10 | 3 | 1 | Alter | Alter.3 | list(Fluent=c('alt1.3','alt1.4','alt1.5','alt1.6','alt1.7','alt1.8'), DisFluent=c('alt2.3','alt2.4','alt2.5','alt2.6','alt2.7','alt2.8')) | list(Condition=c('Fluent','DisFluent')) | list(each=c('Condition','X > 0')) | list(c('Language=="English"&Setting=="In a lab" ')) | 1 | 1 | 0 | 0 | 0 | 0 | varfun.Alter.1 | t | t.test(x = DisFluent, y = Fluent, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 1 | t | two.sided | independent | 39 | 20 | 21 | 41 | 2.01 | -0.01 | 4.01 | 0.05 | 0.63 | 0.00 | 1.25 | 0.31 | 0.00 | 0.54 | Incidental Disfluency (Alter et al., 2007) | ||||||||||
12 | 11 | 3 | 1 | Alter | Alter.4 | list(Fluent=c('alt1.3','alt1.4','alt1.5','alt1.6','alt1.7','alt1.8'), DisFluent=c('alt2.3','alt2.4','alt2.5','alt2.6','alt2.7','alt2.8')) | list(Condition=c('Fluent','DisFluent')) | list(each=c('Condition','X > 0')) | list(c('Language=="English"&Setting=="In a lab" ')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Alter.2 | t | t.test(x = DisFluent, y = Fluent, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Incidental Disfluency (Alter et al., 2007) | |||||||||||||||||||||||||||
13 | 12 | 3 | 1 | Alter | Alter.5 | list(Fluent=c('alt1.3','alt1.4','alt1.5','alt1.6','alt1.7','alt1.8'), DisFluent=c('alt2.3','alt2.4','alt2.5','alt2.6','alt2.7','alt2.8')) | list(Condition=c('Fluent','DisFluent')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 0 | 0 | 0 | 0 | varfun.Alter.3 | t | t.test(x = DisFluent, y = Fluent, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Incidental Disfluency (Alter et al., 2007) | |||||||||||||||||||||||||||
14 | 13 | 3 | 1 | Alter | Alter.6 | list(Fluent=c('alt1.3','alt1.4','alt1.5','alt1.6','alt1.7','alt1.8'), DisFluent=c('alt2.3','alt2.4','alt2.5','alt2.6','alt2.7','alt2.8')) | list(Condition=c('Fluent','DisFluent')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 0 | 0 | 0 | 0 | varfun.Alter.4 | t | t.test(x = DisFluent, y = Fluent, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Incidental Disfluency (Alter et al., 2007) | |||||||||||||||||||||||||||
15 | 14 | 4 | 1 | Graham | Graham.1 | list(Binding=c('grah1.8','grah1.9','grah1.10','grah1.11','grah1.12','grah1.13','grah1.14','grah1.15','grah1.16'),Politics=c('politics')) | list(Condition=c('Binding','Politics'),Politics=c('politics')) | list(sep=rbind(c('Condition','X > 0'), c('Politics','between(X,1,7)'))) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Graham.1 | Z.f | cor_test_fisherZ(r1=matrix(c(Binding,Politics),ncol=2), r2=NULL, n1=N[1], n2=NULL, conf.level=stat.params$conf.level, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=TRUE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Various (mainly US, GB and Canada). | 1 | 1 | t.r | two.sided | paired | 1207 | 1209 | 1209 | 0.25 | 0.25 | 8.97 | 6.98 | 10.96 | 0.52 | 0.40 | 0.63 | 0.25 | 0.20 | 0.30 | Moral Foundations (Graham et al., 2009) | ||||||||||
16 | 15 | 4 | 1 | Graham | Graham.2 | list(Individual=c('grah1.2','grah1.3','grah1.4','grah1.5','grah1.6','grah1.7'),Politics=c('politics')) | list(Condition=c('Individual','Politics'),Politics=c('politics')) | list(sep=rbind(c('Condition','X > 0'), c('Politics','between(X,1,7)'))) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Graham.2 | Z.f | cor_test_fisherZ(r1=matrix(c(Individual,Politics),ncol=2), r2=NULL, n1=N[1], n2=NULL, conf.level=stat.params$conf.level, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=TRUE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Various (mainly US, GB and Canada). | 1 | 0 | t.r | two.sided | paired | 1207 | 1209 | 1209 | -0.21 | -0.21 | -7.46 | -9.44 | -5.48 | -0.43 | -0.55 | -0.31 | -0.21 | -0.26 | -0.16 | Moral Foundations (Graham et al., 2009) | ||||||||||
17 | 16 | 5 | 1 | Rottenstreich | Rottenstreich.1 | list(Low=c('rott2.1'), Certain=c('rott1.1')) | list(Condition=c('Low','Certain'), Response=c('MovieStar','Money')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Rottenstreich.1 | OR | fisher.exact(Condition,Response) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='greater',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 1 | X2 | NA | 1 | 20 | 20 | 40 | 4.91 | 4.91 | 0.00 | 17.44 | 0.03 | 0.74 | 0.00 | 1.74 | 0.35 | 0.00 | 0.66 | Symmetric exact CI based on X2 failed for lower bounds | Affect & Risk (Rottenstreich & Hsee, 2001) | |||||||||
18 | 17 | 6 | 1 | Bauer | Bauer.1 | list(Consumer=c('bau1.1','baudv.4'), Individual=c('bau2.1','baudv.4')) | list(Condition=c('Consumer','Individual'), Trust=c('baudv.4','baudv.4')) | list(each=rbind(c('Condition','X > 0'),c('Trust', 'X < 8'))) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Bauer.1 | t | t.test(y = Consumer, x = Individual, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | MTurk | 1 | 1 | t | two.sided | independent | 76 | 39 | 38 | 77 | 3.86 | 1.79 | 5.90 | 0.00 | 0.87 | 0.41 | 1.34 | 0.40 | 0.20 | 0.56 | Priming Consumerism (Bauer et al., 2012) | ||||||||||
19 | 18 | 6 | 1 | Bauer | Bauer.2 | list(Consumer=c('bau1.1','baudv.2'), Individual=c('bau2.1','baudv.2')) | list(Condition=c('Consumer','Individual'), Responsible=c('baudv.2','baudv.2')) | list(each=rbind(c('Condition','X > 0'),c('Responsible', 'X < 8'))) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Bauer.1 | t | t.test(y = Consumer, x = Individual, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | MTurk | 1 | 0 | Priming Consumerism (Bauer et al., 2012) | |||||||||||||||||||||||||||
20 | 19 | 6 | 1 | Bauer | Bauer.3 | list(Consumer=c('bau1.1','baudv.3'), Individual=c('bau2.1','baudv.3')) | list(Condition=c('Consumer','Individual'), Obligation=c('baudv.3','baudv.3')) | list(each=rbind(c('Condition','X > 0'),c('Obligation', 'X < 8'))) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Bauer.1 | t | t.test(y = Consumer, x = Individual, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | MTurk | 1 | 0 | Priming Consumerism (Bauer et al., 2012) | |||||||||||||||||||||||||||
21 | 20 | 6 | 1 | Bauer | Bauer.4 | list(Consumer=c('bau1.1','baudv.5'), Individual=c('bau2.1','baudv.5')) | list(Condition=c('Consumer','Individual'), Partner=c('baudv.5','baudv.5')) | list(each=rbind(c('Condition','X > 0'),c('Partner', 'X < 8'))) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Bauer.1 | t | t.test(y = Consumer, x = Individual, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | MTurk | 1 | 0 | Priming Consumerism (Bauer et al., 2012) | |||||||||||||||||||||||||||
22 | 21 | 6 | 1 | Bauer | Bauer.5 | list(Consumer=c('bau1.1','baudv.6'), Individual=c('bau2.1','baudv.6')) | list(Condition=c('Consumer','Individual'), UseLess=c('baudv.6','baudv.6')) | list(each=rbind(c('Condition','X > 0'),c('UseLess', 'X < 8'))) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Bauer.1 | t | t.test(y = Consumer, x = Individual, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | MTurk | 1 | 0 | Priming Consumerism (Bauer et al., 2012) | |||||||||||||||||||||||||||
23 | 22 | 7 | 1 | Miyamoto | Miyamoto.1 | list(CapitalCon=c('miya2.4','miya2.7'),CapitalPro=c('miya1.4','miya1.7')) | list(Condition=c('CapitalCon','CapitalPro')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 1 | varfun.Miyamoto.1 | lm.t | summary(lm(Attitude ~ Constraint + Condition)) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$coefficients[3,'t value'] | stat.test$df[2] | stat.test$coefficients[3,'Pr(>|t|)'] | US | 1 | 1 | t | two.sided | independent | 27 | 14 | 15 | 29 | 6.66 | 3.99 | 9.26 | 0.00 | 2.47 | 1.48 | 3.44 | 0.79 | 0.61 | 0.87 | Correspondence Bias (Miyamoto & Kitayama, 2002) | ||||||||||
24 | 23 | 7 | 1 | Miyamoto | Miyamoto.2 | list(CapitalCon=c('miya2.5','miya2.7'),CapitalPro=c('miya1.5','miya1.7')) | list(Condition=c('CapitalCon','CapitalPro')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Miyamoto.1 | lm.t | summary(lm(Attitude ~ Constraint + Condition)) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$coefficients[3,'t value'] | stat.test$df[2] | stat.test$coefficients[3,'Pr(>|t|)'] | US & Japan | 1 | 0 | Correspondence Bias (Miyamoto & Kitayama, 2002) | |||||||||||||||||||||||||||
25 | 24 | 7 | 1 | Miyamoto | Miyamoto.3 | list(CapitalCon=c('miya2.4','miya2.7','miya2.6'),CapitalPro=c('miya1.4','miya1.7','miya1.6')) | list(Condition=c('CapitalCon','CapitalPro')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Miyamoto.2 | lm.t | summary(lm(Attitude ~ Constraint + Moderator * Condition)) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$coefficients[5,'t value'] | stat.test$df[2] | stat.test$coefficients[5,'Pr(>|t|)'] | Japan | 0 | 1 | t | two.sided | independent | 23 | 12 | 13 | 25 | 1.84 | -0.21 | 3.85 | 0.07 | 0.74 | -0.08 | 1.54 | 0.36 | -0.04 | 0.63 | the original effet size refer to japanese participants only | Correspondence Bias (Miyamoto & Kitayama, 2002) | |||||||||
26 | 25 | 7 | 1 | Miyamoto | Miyamoto.4 | list(CapitalCon=c('miya2.4','miya2.7','miya2.8'),CapitalPro=c('miya1.4','miya1.7','miya1.8')) | list(Condition=c('CapitalCon','CapitalPro')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Miyamoto.2 | lm.t | summary(lm(Attitude ~ Constraint + Moderator * Condition)) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$coefficients[5,'t value'] | stat.test$df[2] | stat.test$coefficients[5,'Pr(>|t|)'] | US & Japan | 1 | 0 | Correspondence Bias (Miyamoto & Kitayama, 2002) | |||||||||||||||||||||||||||
27 | 26 | 8 | 1 | Inbar | Inbar.1a | list(SameKiss=c('inba1.3','disg1.11','disg1.12','disg2.10','disg2.12','disg2.13'), DiffKiss=c('inba2.3','disg1.11','disg1.12','disg2.10','disg2.12','disg2.13')) | list(Condition=c('SameKiss','DiffKiss')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Inbar.1 | Z.f | cor_test_fisherZ(r1=r1,r2=r2,n1=N[1],n2=N[2], conf.level=stat.params$conf.level, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 1 | Z.f | two.sided | independent | 21 | 21 | 22 | 22 | 44 | 0.72 | 0.2 | 0.03 | 0.70 | 0.05 | 1.36 | Disgust & Homophobia (Inbar et al., 2009) | 1 | ||||||||||||
28 | 27 | 8 | 1 | Inbar | Inbar.1b | list(SameKiss=c('inba1.3','disg1.11','disg1.12','disg2.10','disg2.12','disg2.13'), DiffKiss=c('inba2.3','disg1.11','disg1.12','disg2.10','disg2.12','disg2.13')) | list(Condition=c('SameKiss','DiffKiss')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Inbar.1 | Z.f | cor_test_fisherZ(r1=r1, r2=NULL, n1=N[1], n2=NULL, conf.level=stat.params$conf.level, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Disgust & Homophobia (Inbar et al., 2009) | |||||||||||||||||||||||||||
29 | 28 | 8 | 1 | Inbar | Inbar.1c | list(SameKiss=c('inba1.3','disg1.11','disg1.12','disg2.10','disg2.12','disg2.13'), DiffKiss=c('inba2.3','disg1.11','disg1.12','disg2.10','disg2.12','disg2.13')) | list(Condition=c('SameKiss','DiffKiss')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Inbar.1 | Z.f | cor_test_fisherZ(r1=r2, r2=NULL, n1=N[2], n2=NULL, conf.level=stat.params$conf.level, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Disgust & Homophobia (Inbar et al., 2009) | |||||||||||||||||||||||||||
30 | 29 | 8 | 1 | Inbar | Inbar.2a | list(SameKiss=c('inba1.4','disg1.11','disg1.12','disg2.10','disg2.12','disg2.13'), DiffKiss=c('inba2.4','disg1.11','disg1.12','disg2.10','disg2.12','disg2.13')) | list(Condition=c('SameKiss','DiffKiss')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Inbar.1 | Z.f | cor_test_fisherZ(r1=r1,r2=r2,n1=N[1],n2=N[2], conf.level=stat.params$conf.level, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Disgust & Homophobia (Inbar et al., 2009) | 1 | ||||||||||||||||||||||||||
31 | 30 | 8 | 1 | Inbar | Inbar.2b | list(SameKiss=c('inba1.4','disg1.11','disg1.12','disg2.10','disg2.12','disg2.13'), DiffKiss=c('inba2.4','disg1.11','disg1.12','disg2.10','disg2.12','disg2.13')) | list(Condition=c('SameKiss','DiffKiss')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Inbar.1 | Z.f | cor_test_fisherZ(r1=r1, r2=NULL, n1=N[1], n2=NULL, conf.level=stat.params$conf.level, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Disgust & Homophobia (Inbar et al., 2009) | |||||||||||||||||||||||||||
32 | 31 | 8 | 1 | Inbar | Inbar.2c | list(SameKiss=c('inba1.4','disg1.11','disg1.12','disg2.10','disg2.12','disg2.13'), DiffKiss=c('inba2.4','disg1.11','disg1.12','disg2.10','disg2.12','disg2.13')) | list(Condition=c('SameKiss','DiffKiss')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Inbar.1 | Z.f | cor_test_fisherZ(r1=r2, r2=NULL, n1=N[2], n2=NULL, conf.level=stat.params$conf.level, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Disgust & Homophobia (Inbar et al., 2009) | |||||||||||||||||||||||||||
33 | 32 | 8 | 1 | Inbar | Inbar.3a | list(SameKiss=c('inba1.5','disg1.11','disg1.12','disg2.10','disg2.12','disg2.13'), DiffKiss=c('inba2.5','disg1.11','disg1.12','disg2.10','disg2.12','disg2.13')) | list(Condition=c('SameKiss','DiffKiss')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Inbar.1 | Z.f | cor_test_fisherZ(r1=r1,r2=r2,n1=N[1],n2=N[2], conf.level=stat.params$conf.level, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Disgust & Homophobia (Inbar et al., 2009) | 1 | ||||||||||||||||||||||||||
34 | 33 | 8 | 1 | Inbar | Inbar.3b | list(SameKiss=c('inba1.5','disg1.11','disg1.12','disg2.10','disg2.12','disg2.13'), DiffKiss=c('inba2.5','disg1.11','disg1.12','disg2.10','disg2.12','disg2.13')) | list(Condition=c('SameKiss','DiffKiss')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Inbar.1 | Z.f | cor_test_fisherZ(r1=r1, r2=NULL, n1=N[1], n2=NULL, conf.level=stat.params$conf.level, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Disgust & Homophobia (Inbar et al., 2009) | |||||||||||||||||||||||||||
35 | 34 | 8 | 1 | Inbar | Inbar.3c | list(SameKiss=c('inba1.5','disg1.11','disg1.12','disg2.10','disg2.12','disg2.13'), DiffKiss=c('inba2.5','disg1.11','disg1.12','disg2.10','disg2.12','disg2.13')) | list(Condition=c('SameKiss','DiffKiss')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Inbar.1 | Z.f | cor_test_fisherZ(r1=r2, r2=NULL, n1=N[2], n2=NULL, conf.level=stat.params$conf.level, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Disgust & Homophobia (Inbar et al., 2009) | |||||||||||||||||||||||||||
36 | 35 | 8 | 1 | Inbar | Inbar.4 | list(SameKiss=c('inba1.3'), DiffKiss=c('inba2.3')) | list(Condition=c('SameKiss','DiffKiss')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Inbar.2 | t | t.test(x = SameKiss, y = DiffKiss, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Disgust & Homophobia (Inbar et al., 2009) | |||||||||||||||||||||||||||
37 | 36 | 9 | 1 | Critcher | Critcher.1 | list(P97=c('crit1.1'), P17=c('crit2.1')) | list(Condition=c('P97','P17')) | list(each=c('Condition','between(X,0,100)')) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Critcher.1 | t | t.test(x = P97, y = P17, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 1 | t | two.sided | independent | 197.5 | 100 | 100 | 200 | 2.12 | 0.15 | 4.09 | 0.03 | 0.30 | 0.02 | 0.58 | 0.15 | 0.01 | 0.28 | Incidental Anchors (Critcher & Gilovich, 2008) | ||||||||||
38 | 37 | 9 | 1 | Critcher | Critcher.2 | list(P97=c('crit1.1'), P17=c('crit2.1')) | list(Condition=c('P97','P17')) | list(each=c('Condition','between(X,0,100)')) | list(c('Pencil=="Yes, participants completed the Critcher task on pencil and paper" ')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Critcher.1 | t | t.test(x = P97, y = P17, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Incidental Anchors (Critcher & Gilovich, 2008) | |||||||||||||||||||||||||||
39 | 38 | 10 | 1 | vanLange | vanLange.1 | list(SVO=c('van.p1.2_1','van.p1.2_2','van.p1.2_3','van.p1.2_4','van.p1.2_5','van.p1.2_6'), Siblings=c('van.p2.1_1_TEXT','van.p2.1_2_TEXT')) | list(Condition=c('SVO','Siblings'), Siblings=c('as.numeric(van.p2.1_1_TEXT)','as.numeric(van.p2.1_2_TEXT)')) | list(sep=rbind(c('Condition','X >= 0'),c('Siblings','between(X,0,20)'))) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.vanLange.1 | Z.f | cor_test_fisherZ(r1=matrix(c(SVO.index,Siblings),ncol=2), r2=NULL, n1=N[1], n2=NULL, conf.level=stat.params$conf.level, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Netherlands | 1 | 1 | f | two.sided | independent | 1 | 535 | 307 | 229 | 536 | 4.82 | 1.00 | 29.24 | 0.01 | 0.19 | 0.09 | 0.47 | 0.09 | 0.04 | 0.23 | orig.stat.n1 is best estimate given available info | Symmetric exact CI based on f failed for lower bounds | Social Value Orientation (Van Lange et al., 1997) | ||||||||
40 | 39 | 11 | 1 | Hauser | Hauser.1 | list(SideEffect=c('haus1.1','haus1.1t_1'),GreaterGood=c('haus2.1','haus2.1t_1')) | list(Condition=c('SideEffect','GreaterGood'), Timing=c('haus1.1t_1','haus2.1t_1'), Response=c('Yes','No')) | list(each=rbind(c('Condition','X >= 0'),c('Timing', 'X > 4'))) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Hauser.1 | OR | fisher.exact(table(Condition,Response)) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Various (mainly US, GB and Canada). | 1 | 1 | X2 | NA | independent | 1 | 2646 | 2646 | 1615.96 | 1462.22 | 1777.38 | 0.00 | 2.50 | 2.22 | 2.86 | 0.78 | 0.74 | 0.82 | Trolley Dilemma 1 (Hauser et al., 2007) | |||||||||||
41 | 40 | 11 | 1 | Hauser | Hauser.2 | list(SideEffect=c('haus1.1','haus1.2','haus1.1t_1'),GreaterGood=c('haus2.1','haus2.2','haus2.1t_1')) | list(Condition=c('SideEffect','GreaterGood'), Experience=c('haus1.2','haus2.2'), Timing=c('haus1.1t_1','haus2.1t_1'), Response=c('Yes','No')) | list(each=rbind(c('Condition','X >= 0'),c('Experience','X==1'),c('Timing > 4'))) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Hauser.1 | OR | fisher.exact(table(Condition,Response)) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Various (mainly US, GB and Canada). | 1 | 0 | Trolley Dilemma 1 (Hauser et al., 2007) | |||||||||||||||||||||||||||
42 | 41 | 11 | 1 | Hauser | Hauser.3 | list(SideEffect=c('haus1.1','haus1.2','haus1.1t_1'),GreaterGood=c('haus2.1','haus2.2','haus2.1t_1')) | list(Condition=c('SideEffect','GreaterGood'), Experience=c('haus1.2','haus2.2'), Timing=c('haus1.1t_1','haus2.1t_1'), Response=c('Yes','No')) | list(each=rbind(c('Condition','X >= 0'),c('Experience','X==2'),c('Timing > 4'))) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Hauser.1 | OR | fisher.exact(table(Condition,Response)) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Various (mainly US, GB and Canada). | 1 | 0 | Trolley Dilemma 1 (Hauser et al., 2007) | |||||||||||||||||||||||||||
43 | 42 | 12 | 1 | Anderson | Anderson.1 | list(Low=c('and1.3_1', 'and1.3_2', 'and1.3_3', 'and1.3_4', 'and1.3_5', 'and1.4_1', 'and1.4_2', 'and1.4_3', 'and1.4_4', 'and1.4_5', 'and1.4_6', 'and1.4_7', 'and1.4_8', 'and1.4_9', 'and1.4_10', 'and1.4_11', 'and1.4_12', 'and1.4_13', 'and1.4_14', 'and1.4_15', 'and1.4_16', 'and1.4_17', 'and1.4_18', 'and1.4_19', 'and1.4_20'), High=c('and2.3_1', 'and2.3_2', 'and2.3_3', 'and2.3_4', 'and2.3_5', 'and2.4_1', 'and2.4_2', 'and2.4_3', 'and2.4_4', 'and2.4_5', 'and2.4_6', 'and2.4_7', 'and2.4_8', 'and2.4_9', 'and2.4_10', 'and2.4_11', 'and2.4_12', 'and2.4_13', 'and2.4_14', 'and2.4_15', 'and2.4_16', 'and2.4_17', 'and2.4_18', 'and2.4_19', 'and2.4_20')) | list(Condition=c('Low','High'),Response=c('Positive','Negative')) | list(each=c('Condition', 'between(X,0,100)')) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Anderson.1 | t | t.test(SWB ~ Condition, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | MTurk | 1 | 1 | t | two.sided | independent | 181 | 58 | 58 | 116 | 3.05 | 1.06 | 5.03 | 0.00 | 0.57 | 0.20 | 0.93 | 0.27 | 0.10 | 0.43 | SMS & Well-Being (Anderson et al., 2012) | ||||||||||
44 | 43 | 13 | 1 | Ross | Ross.1 | list(You=c('ross.s1.2'),Peers=c('ross.s1.1_1_TEXT')) | list(Condition=c('You','Peers'), Peers=c('ross.s1.1_1_TEXT'), Response=c('Sign','Refuse')) | list(sep=rbind(c('Condition','X >= 0'),c('Peers','between(X,0,100)'))) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Ross.1 | t | t.test(Peers ~ You, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=FALSE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=TRUE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 1 | f | two.sided | independent | 1 | 78 | 53 | 27 | 80 | 17.70 | 1.00 | 93.95 | 0.00 | 0.99 | 0.24 | 2.29 | 0.43 | 0.11 | 0.73 | Symmetric exact CI based on f failed for lower bounds | False Consensus 1 (Ross et al., 1977) | ||||||||
45 | 44 | 14 | 2 | Ross | Ross.2 | list(You=c('ross.s2.2'),Peers=c('ross.s2.1_1_TEXT')) | list(Condition=c('You','Peers'), Peers=c('ross.s2.1_1_TEXT'), Response=c('Pay','Court')) | list(sep=rbind(c('Condition','X >= 0'),c('Peers','between(X,0,100)'))) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Ross.2 | t | t.test(Peers ~ You, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=FALSE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=TRUE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 1 | f | two.sided | independent | 1 | 78 | 37 | 43 | 80 | 12.80 | 1.00 | 69.33 | 0.00 | 0.80 | 0.22 | 1.87 | 0.37 | 0.11 | 0.68 | Symmetric exact CI based on f failed for lower bounds | False Consensus 2 (Ross et al., 1977) | ||||||||
46 | 45 | 15 | 2 | Giessner | Giessner.1 | list(Long=c('geis1.1','geis.dv_1','geis.dv_2','geis.dv_3','geis.dv_4','geis.dv_5'), Short=c('geis2.1','geis.dv_1','geis.dv_2','geis.dv_3','geis.dv_4','geis.dv_5')) | list(Condition=c('Long','Short')) | list(each=c('Condition','X!=-99')) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Giessner.1 | t | t.test(x = Long, y = Short, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=FALSE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Netherlands | 1 | 1 | t | two.sided | independent | 62 | 32 | 32 | 64 | 2.20 | 0.19 | 4.19 | 0.03 | 0.55 | 0.05 | 1.05 | 0.27 | 0.02 | 0.47 | Position & Power (Giessner & Schubert, 2007) | ||||||||||
47 | 46 | 16 | 2 | Tversky | Tversky.1 | list(Cheap=c('tver2.1'),Expensive=c('tver1.1')) | list(Condition=c('Cheap','Expensive'), Response=c('Yes','No')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Tversky.1 | OR | fisher.exact(table(Condition,Response)) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='greater',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 1 | OR | two.sided | independent | 93 | 88 | 181 | 7.15 | 3.66 | 13.96 | 0.00 | 1.08 | 0.71 | 1.45 | 0.48 | 0.34 | 0.59 | Framing (Tversky & Kahneman, 1981) | |||||||||||
48 | 47 | 17 | 2 | Hauser | Hauser.4 | list(SideEffect=c('haus4.1','haus4.1t_3'),GreaterGood=c('haus3.1','haus3.1t_3')) | list(Condition=c('SideEffect','GreaterGood'), Timing=c('haus4.1t_3','haus3.1t_3'), Response=c('Yes','No')) | list(each=rbind(c('Condition','X >= 0'),c('Timing > 4'))) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Hauser.1 | OR | fisher.exact(table(Condition,Response)) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='greater',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Various (mainly US, GB and Canada). | 1 | 1 | X2 | NA | independent | 1 | 2612 | 2612 | 72.35 | 42.85 | 109.53 | 0.00 | 0.34 | 0.26 | 0.42 | 0.17 | 0.13 | 0.20 | Trolley Dilemma 2 (Hauser et al., 2007) | |||||||||||
49 | 48 | 17 | 2 | Hauser | Hauser.5 | list(SideEffect=c('haus4.1','haus4.2','haus4.1t_3'),GreaterGood=c('haus3.1','haus3.2','haus3.1t_3')) | list(Condition=c('SideEffect','GreaterGood'), Experience=c('haus4.2','haus3.2'), Timing=c('haus4.1t_3','haus3.1t_3'), Response=c('Yes','No')) | list(each=rbind(c('Condition','X >= 0'),c('Experience','X==1'),c('Timing > 4'))) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Hauser.1 | OR | fisher.exact(table(Condition,Response)) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='greater',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Various (mainly US, GB and Canada). | 1 | 0 | Trolley Dilemma 2 (Hauser et al., 2007) | |||||||||||||||||||||||||||
50 | 49 | 17 | 2 | Hauser | Hauser.6 | list(SideEffect=c('haus4.1','haus4.2','haus4.1t_3'),GreaterGood=c('haus3.1','haus3.2','haus3.1t_3')) | list(Condition=c('SideEffect','GreaterGood'), Experience=c('haus4.2','haus3.2'), Timing=c('haus4.1t_3','haus3.1t_3'), Response=c('Yes','No')) | list(each=rbind(c('Condition','X >= 0'),c('Experience','X==2'),c('Timing > 4'))) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Hauser.1 | OR | fisher.exact(table(Condition,Response)) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='greater',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Various (mainly US, GB and Canada). | 1 | 0 | Trolley Dilemma 2 (Hauser et al., 2007) | |||||||||||||||||||||||||||
51 | 50 | 18 | 2 | Risen | Risen.1 | list(Unprepared=c('rise1.3'),Prepared=c('rise2.3')) | list(Condition=c('Unprepared','Prepared')) | list(each=c('Condition','X > 0')) | list(c('SubjectPool == "Yes" ')) | 1 | 1 | 0 | 0 | 0 | 0 | varfun.Risen.1 | t | t.test(x = Unprepared, y = Prepared, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=FALSE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | t | two.sided | independent | 116 | 60 | 60 | 120 | 2.15 | 0.17 | 4.12 | 0.03 | 0.39 | 0.03 | 0.75 | 0.19 | 0.02 | 0.35 | Tempting Fate (Risen & Gilovich, 2008) | ||||||||||
52 | 51 | 18 | 2 | Risen | Risen.2 | list(Unprepared=c('rise1.3','sex'),Prepared=c('rise2.3','sex')) | list(Condition=c('Unprepared','Prepared'), Sex=c('sex')) | list(each=rbind(c('Condition','X > 0'),c('Sex','X < 3'))) | list(c('SubjectPool == "Yes" ')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Risen.2 | f | anova(lm(Likelihood ~ Condition*Gender)) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='greater',alpha=.05, within=FALSE) | stat.test[3,'F value'] | c(stat.test[3,'Df'], stat.test[4,'Df']) | stat.test[3,'Pr(>F)'] | US | 1 | 0 | Tempting Fate (Risen & Gilovich, 2008) | |||||||||||||||||||||||||||
53 | 52 | 18 | 2 | Risen | Risen.3 | list(Unprepared=c('rise1.3'),Prepared=c('rise2.3')) | list(Condition=c('Unprepared','Prepared')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 1 | 1 | 0 | varfun.Risen.1 | t | t.test(x = Unprepared, y = Prepared, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=FALSE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 1 | t | two.sided | independent | 116 | 60 | 60 | 120 | 2.15 | 0.17 | 4.12 | 0.03 | 0.39 | 0.03 | 0.75 | 0.19 | 0.02 | 0.35 | Tempting Fate (Risen & Gilovich, 2008) | ||||||||||
54 | 53 | 19 | 2 | Savani | Savani.1a | list(Interpersonal=c('sava1.4', 'sava1.5', 'sava1.9', 'sava1.10', 'sava1.15', 'sava1.16' , 'sava1.21', 'sava1.22', 'sava1.27', 'sava1.28', 'sava1.33', 'sava1.34', 'sava1.38', 'sava1.39', 'sava1.43', 'sava1.44'),Personal=c('sava2.4', 'sava2.5', 'sava2.9', 'sava2.10', 'sava2.15', 'sava2.16' , 'sava2.21', 'sava2.22', 'sava2.27', 'sava2.28', 'sava2.33', 'sava2.34', 'sava2.38', 'sava2.39', 'sava2.43', 'sava2.44')) | list(Condition=c('Interpersonal','Personal'),Response=c('No Choice','Choice'),Importance=c('Importance')) | list(each=c('Condition','X > 0')) | list(c('SubjectPool == "Yes" ')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Savani.1 | lm.OR | summary(lme4::glmer(Response ~ Importance*Condition + (1|uID/trialID), family = binomial('logit'), nAGQ=0)) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$coefficients[3,"Estimate"] | stat.test$devcomp$dims['nmp'] | stat.test$coefficients[3,"Pr(>|z|)"] | US & India | 10 | 0 | lm.OR | two.sided | independent | 101 | 51 | 52 | 103 | 0.88 | 0.34 | 1.43 | 0.48 | 0.49 | 0.19 | 0.79 | 0.24 | 0.04 | 0.41 | Actions are Choices (Savani et al., 2010) | ||||||||||
55 | 54 | 19 | 2 | Savani | Savani.1b | list(Interpersonal=c('sava1.4', 'sava1.5', 'sava1.9', 'sava1.10', 'sava1.15', 'sava1.16' , 'sava1.21', 'sava1.22', 'sava1.27', 'sava1.28', 'sava1.33', 'sava1.34', 'sava1.38', 'sava1.39', 'sava1.43', 'sava1.44'),Personal=c('sava2.4', 'sava2.5', 'sava2.9', 'sava2.10', 'sava2.15', 'sava2.16' , 'sava2.21', 'sava2.22', 'sava2.27', 'sava2.28', 'sava2.33', 'sava2.34', 'sava2.38', 'sava2.39', 'sava2.43', 'sava2.44')) | list(Condition=c('Interpersonal','Personal'),Response=c('No Choice','Choice'),Importance=c('Importance')) | list(each=c('Condition','X > 0')) | list(c('SubjectPool == "Yes" ')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Savani.1 | lm.OR | summary(lme4::glmer(Response ~ Importance*Condition + (1|uID/trialID), family = binomial('logit'), nAGQ=0)) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$coefficients[4,"Estimate"] | stat.test$devcomp$dims['nmp'] | stat.test$coefficients[4,"Pr(>|z|)"] | US & India | 10 | 0 | Actions are Choices (Savani et al., 2010) | |||||||||||||||||||||||||||
56 | 55 | 19 | 2 | Savani | Savani.2a | list(Interpersonal=c('sava1.4', 'sava1.5', 'sava1.9', 'sava1.10', 'sava1.15', 'sava1.16' , 'sava1.21', 'sava1.22', 'sava1.27', 'sava1.28', 'sava1.33', 'sava1.34', 'sava1.38', 'sava1.39', 'sava1.43', 'sava1.44'),Personal=c('sava2.4', 'sava2.5', 'sava2.9', 'sava2.10', 'sava2.15', 'sava2.16' , 'sava2.21', 'sava2.22', 'sava2.27', 'sava2.28', 'sava2.33', 'sava2.34', 'sava2.38', 'sava2.39', 'sava2.43', 'sava2.44')) | list(Condition=c('Interpersonal','Personal'),Response=c('No Choice','Choice'),Importance=c('Importance')) | list(each=c('Condition','X > 0')) | list(c('SubjectPool == "Yes" & Country == "India" ')) | 1 | 1 | 0 | 0 | 0 | 0 | varfun.Savani.1 | lm.OR | summary(lme4::glmer(Response ~ Importance*Condition + (1|uID/trialID), family = binomial('logit'), nAGQ=0)) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$coefficients[3,"Estimate"] | stat.test$devcomp$dims['nmp'] | stat.test$coefficients[3,"Pr(>|z|)"] | US | 1 | 1 | t | two.sided | independent | 88 | 45 | 45 | 90 | 0.39 | -1.57 | 2.35 | 0.65 | 0.08 | -0.33 | 0.50 | 0.04 | -0.17 | 0.24 | Actions are Choices (Savani et al., 2010) | ||||||||||
57 | 56 | 19 | 2 | Savani | Savani.2b | list(Interpersonal=c('sava1.4', 'sava1.5', 'sava1.9', 'sava1.10', 'sava1.15', 'sava1.16' , 'sava1.21', 'sava1.22', 'sava1.27', 'sava1.28', 'sava1.33', 'sava1.34', 'sava1.38', 'sava1.39', 'sava1.43', 'sava1.44'),Personal=c('sava2.4', 'sava2.5', 'sava2.9', 'sava2.10', 'sava2.15', 'sava2.16' , 'sava2.21', 'sava2.22', 'sava2.27', 'sava2.28', 'sava2.33', 'sava2.34', 'sava2.38', 'sava2.39', 'sava2.43', 'sava2.44')) | list(Condition=c('Interpersonal','Personal'),Response=c('No Choice','Choice'),Importance=c('Importance')) | list(each=c('Condition','X > 0')) | list(c('SubjectPool == "Yes" & Country == "India" ')) | 1 | 1 | 0 | 0 | 0 | 0 | varfun.Savani.1 | lm.OR | summary(lme4::glmer(Response ~ Importance*Condition + (1|uID/trialID), family = binomial('logit'), nAGQ=0)) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$coefficients[4,"Estimate"] | stat.test$devcomp$dims['nmp'] | stat.test$coefficients[4,"Pr(>|z|)"] | India | 0 | 1 | t | two.sided | independent | 126 | 64 | 64 | 128 | -3.69 | -5.70 | -1.67 | 0.00 | -0.65 | -1.01 | -0.30 | -0.31 | -0.45 | -0.15 | Actions are Choices (Savani et al., 2010) | ||||||||||
58 | 57 | 19 | 2 | Savani | Savani.3a | list(Interpersonal=c('sava1.4', 'sava1.5', 'sava1.9', 'sava1.10', 'sava1.15', 'sava1.16' , 'sava1.21', 'sava1.22', 'sava1.27', 'sava1.28', 'sava1.33', 'sava1.34', 'sava1.38', 'sava1.39', 'sava1.43', 'sava1.44'),Personal=c('sava2.4', 'sava2.5', 'sava2.9', 'sava2.10', 'sava2.15', 'sava2.16' , 'sava2.21', 'sava2.22', 'sava2.27', 'sava2.28', 'sava2.33', 'sava2.34', 'sava2.38', 'sava2.39', 'sava2.43', 'sava2.44')) | list(Condition=c('Interpersonal','Personal'),Response=c('No Choice','Choice'),Importance=c('Importance')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 1 | 1 | 1 | varfun.Savani.1 | lm.OR | summary(lme4::glmer(Response ~ Importance*Condition + (1|uID/trialID), family = binomial('logit'), nAGQ=0)) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$coefficients[3,"Estimate"] | stat.test$devcomp$dims['nmp'] | stat.test$coefficients[3,"Pr(>|z|)"] | US & India | 10 | 0 | Actions are Choices (Savani et al., 2010) | |||||||||||||||||||||||||||
59 | 58 | 19 | 2 | Savani | Savani.3b | list(Interpersonal=c('sava1.4', 'sava1.5', 'sava1.9', 'sava1.10', 'sava1.15', 'sava1.16' , 'sava1.21', 'sava1.22', 'sava1.27', 'sava1.28', 'sava1.33', 'sava1.34', 'sava1.38', 'sava1.39', 'sava1.43', 'sava1.44'),Personal=c('sava2.4', 'sava2.5', 'sava2.9', 'sava2.10', 'sava2.15', 'sava2.16' , 'sava2.21', 'sava2.22', 'sava2.27', 'sava2.28', 'sava2.33', 'sava2.34', 'sava2.38', 'sava2.39', 'sava2.43', 'sava2.44')) | list(Condition=c('Interpersonal','Personal'),Response=c('No Choice','Choice'),Importance=c('Importance')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Savani.1 | lm.OR | summary(lme4::glmer(Response ~ Importance*Condition + (1|uID/trialID), family = binomial('logit'), nAGQ=0)) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$coefficients[4,"Estimate"] | stat.test$devcomp$dims['nmp'] | stat.test$coefficients[4,"Pr(>|z|)"] | US & India | 10 | 0 | Actions are Choices (Savani et al., 2010) | |||||||||||||||||||||||||||
60 | 59 | 20 | 2 | Norenzayan | Norenzayan.1 | list(Belong=c('nore1.1', 'nore1.2', 'nore1.3', 'nore1.4', 'nore1.5', 'nore1.6', 'nore1.7', 'nore1.8', 'nore1.9', 'nore1.10','nore1.11','nore1.12','nore1.13','nore1.14','nore1.15','nore1.16','nore1.17','nore1.18','nore1.19','nore1.20'), Similar=c('nore2.1', 'nore2.2', 'nore2.3', 'nore2.4', 'nore2.5', 'nore2.6', 'nore2.7', 'nore2.8', 'nore2.9', 'nore2.10','nore2.11','nore2.12','nore2.13','nore2.14','nore2.15','nore2.16','nore2.17','nore2.18','nore2.19','nore2.20')) | list(Condition=c('Belong','Similar')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 1 | varfun.Norenzayan.1 | t | t.test(x = Belong, y = Similar, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=FALSE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 1 | OR | independent | 1 | 700 | 380 | 1080 | 1.00 | 1.00 | 0.76 | 1.31 | 0.00 | -0.15 | 0.15 | 0.00 | -0.07 | 0.07 | Intuitive Reasoning (Norenzayan et al., 2002) | |||||||||||
61 | 60 | 20 | 2 | Norenzayan | Norenzayan.2 | list(Belong=c('nore1.1', 'nore1.2', 'nore1.3', 'nore1.4', 'nore1.5', 'nore1.6', 'nore1.7', 'nore1.8', 'nore1.9', 'nore1.10','nore1.11','nore1.12','nore1.13','nore1.14','nore1.15','nore1.16','nore1.17','nore1.18','nore1.19','nore1.20'), Similar=c('nore2.1', 'nore2.2', 'nore2.3', 'nore2.4', 'nore2.5', 'nore2.6', 'nore2.7', 'nore2.8', 'nore2.9', 'nore2.10','nore2.11','nore2.12','nore2.13','nore2.14','nore2.15','nore2.16','nore2.17','nore2.18','nore2.19','nore2.20')) | list(Condition=c('Belong','Similar'), Order=c('noreBEFOREgati','noreAFTERgati')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Norenzayan.2 | lm.t | summary(lm(Response ~ Condition * Order)) | list(conf.level=.95, var.equal=NA, censorNA=FALSE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$coefficients[4,3] | stat.test$fstatistic[['numdf']] + stat.test$fstatistic[['dendf']] | stat.test$coefficients[4,4] | East Asia | 0 | 1 | OR | independent | 1 | 720 | 380 | 1100 | 3.35 | 3.35 | 2.56 | 4.37 | 0.67 | 0.52 | 0.81 | 0.30 | 0.24 | 0.36 | Intuitive Reasoning (Norenzayan et al., 2002) | |||||||||||
62 | 61 | 21 | 2 | Hsee | Hsee.1 | list(Scarf=c('hsee1.1'),Coat=c('hsee2.1')) | list(Condition=c('Scarf','Coat')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Hsee.1 | t | t.test(x = Scarf, y = Coat, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=FALSE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 1 | t | two.sided | independent | 82 | 41 | 42 | 83 | 3.13 | 1.10 | 5.14 | 0.00 | 0.69 | 0.24 | 1.13 | 0.33 | 0.12 | 0.50 | Less is Better (Hsee, 1998) | ||||||||||
63 | 62 | 22 | 2 | Gray | Gray.1 | list(adultHbaby=c('gray1.2'), babyHadult=c('gray2.2')) | list(Condition=c('adultHbaby','babyHadult')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Gray.1 | t | t.test(x = adultHbaby, y = babyHadult, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=FALSE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 1 | t | two.sided | independent | 68 | 34 | 35 | 69 | 3.32 | 1.27 | 5.35 | 0.00 | 0.80 | 0.31 | 1.29 | 0.38 | 0.15 | 0.55 | Moral Typecasting (Gray & Wegner, 2009) | ||||||||||
64 | 63 | 22 | 2 | Gray | Gray.2 | list(adultHbaby=c('gray1.3'), babyHadult=c('gray2.3')) | list(Condition=c('adultHbaby','babyHadult')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Gray.1 | t | t.test(x = adultHbaby, y = babyHadult, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=FALSE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Moral Typecasting (Gray & Wegner, 2009) | |||||||||||||||||||||||||||
65 | 64 | 22 | 2 | Gray | Gray.3 | list(adultHbaby=c('gray1.4'), babyHadult=c('gray2.4')) | list(Condition=c('adultHbaby','babyHadult')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Gray.1 | t | t.test(x = adultHbaby, y = babyHadult, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=FALSE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Moral Typecasting (Gray & Wegner, 2009) | |||||||||||||||||||||||||||
66 | 65 | 23 | 2 | Zhong | Zhong.1 | list(Ethical=c('nCopied.zhon2','zhon.dv.1_1', 'zhon.dv.1_2', 'zhon.dv.1_3', 'zhon.dv.1_4', 'zhon.dv.1_5', 'zhon.dv.1_6', 'zhon.dv.1_7', 'zhon.dv.1_8', 'zhon.dv.1_9', 'zhon.dv.1_10'), Unethical=c('nCopied.zhon1','zhon.dv.1_1', 'zhon.dv.1_2', 'zhon.dv.1_3', 'zhon.dv.1_4', 'zhon.dv.1_5', 'zhon.dv.1_6', 'zhon.dv.1_7', 'zhon.dv.1_8', 'zhon.dv.1_9', 'zhon.dv.1_10')) | list(Condition=c('Ethical','Unethical')) | list(each=c('Condition','X >= 0')) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Zhong.1 | t | t.test(x = Ethical, y = Unethical, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=FALSE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US & Canada | 1 | 1 | f | two.sided | independent | 1 | 25 | 14 | 13 | 27 | 6.99 | 1.00 | 40.14 | 0.01 | 1.02 | 0.39 | 2.44 | 0.45 | 0.19 | 0.77 | assuming random assignment and rounding to get the total N. | Symmetric exact CI based on f failed for lower bounds | Moral Cleansing (Zhong & Liljenquist, 2006) | ||||||||
67 | 66 | 23 | 2 | Zhong | Zhong.2 | list(Ethical=c('nCopied.zhon2','zhon.dv.1_1', 'zhon.dv.1_2', 'zhon.dv.1_3', 'zhon.dv.1_4', 'zhon.dv.1_5', 'zhon.dv.1_6', 'zhon.dv.1_7', 'zhon.dv.1_8', 'zhon.dv.1_9', 'zhon.dv.1_10'), Unethical=c('nCopied.zhon1','zhon.dv.1_1', 'zhon.dv.1_2', 'zhon.dv.1_3', 'zhon.dv.1_4', 'zhon.dv.1_5', 'zhon.dv.1_6', 'zhon.dv.1_7', 'zhon.dv.1_8', 'zhon.dv.1_9', 'zhon.dv.1_10')) | list(Condition=c('Ethical','Unethical'),Product=c('Clean','Other')) | list(each=c('Condition','X >= 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Zhong.2 | lm.t | summary(lmerTest::lmer(Response ~ Condition * Product + (1|uID))) | list(conf.level=.95, var.equal=NA, censorNA=FALSE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$coefficients[4,4] | stat.test$coefficients[4,3] | stat.test$coefficients[4,5] | US & Canada | 1 | 0 | Moral Cleansing (Zhong & Liljenquist, 2006) | |||||||||||||||||||||||||||
68 | 67 | 23 | 2 | Zhong | Zhong.3 | list(Ethical=c('nCopied.zhon2','zhon.dv.1_1', 'zhon.dv.1_2', 'zhon.dv.1_3', 'zhon.dv.1_4', 'zhon.dv.1_5', 'zhon.dv.1_6', 'zhon.dv.1_7', 'zhon.dv.1_8', 'zhon.dv.1_9', 'zhon.dv.1_10'), Unethical=c('nCopied.zhon1','zhon.dv.1_1', 'zhon.dv.1_2', 'zhon.dv.1_3', 'zhon.dv.1_4', 'zhon.dv.1_5', 'zhon.dv.1_6', 'zhon.dv.1_7', 'zhon.dv.1_8', 'zhon.dv.1_9', 'zhon.dv.1_10')) | list(Condition=c('Ethical','Unethical')) | list(each=c('Condition','X >= 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Zhong.3 | t | t.test(x = Ethical, y = Unethical, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=FALSE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US & Canada | 1 | 0 | Moral Cleansing (Zhong & Liljenquist, 2006) | |||||||||||||||||||||||||||
69 | 68 | 24 | 2 | Schwarz | Schwarz.1a | list(GlobalFirst=c('schw1.1','schw1.2'),SpecificFirst=c('schw2.1','schw2.2')) | list(Condition=c('GlobalFirst','SpecificFirst')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Schwarz.1 | Z.f | cor_test_fisherZ(r1=r1,r2=r2,n1=N[1],n2=N[2], conf.level=stat.params$conf.level, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Germany | 1 | 1 | Z.f | two.sided | independent | 48 | 48 | 50 | 50 | 100 | 0.67 | 0.32 | 0.00 | 0.48 | 0.07 | 0.88 | Assimilation & Contrast (Schwarz et al., 1991) | 1 | ||||||||||||
70 | 69 | 24 | 2 | Schwarz | Schwarz.1b | list(GlobalFirst=c('schw1.1','schw1.2'),SpecificFirst=c('schw2.1','schw2.2')) | list(Condition=c('GlobalFirst','SpecificFirst')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Schwarz.1 | Z.f | cor_test_fisherZ(r1=r1,r2=NULL,n1=N[1],n2=NULL, conf.level=stat.params$conf.level, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Germany | 1 | 0 | Z.f | two.sided | independent | 48 | 50 | 50 | 0.67 | 0.67 | 1.81 | 1.10 | 2.66 | 0.67 | 0.48 | 0.80 | 0.81 | 0.52 | 1.10 | Assimilation & Contrast (Schwarz et al., 1991) | ||||||||||
71 | 70 | 24 | 2 | Schwarz | Schwarz.1c | list(GlobalFirst=c('schw1.1','schw1.2'),SpecificFirst=c('schw2.1','schw2.2')) | list(Condition=c('GlobalFirst','SpecificFirst')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Schwarz.1 | Z.f | cor_test_fisherZ(r1=r2,r2=NULL,n1=N[2],n2=NULL, conf.level=stat.params$conf.level, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Germany | 1 | 0 | Z.f | two.sided | independent | 48 | 50 | 50 | 0.32 | 0.32 | 0.68 | 0.09 | 1.32 | 0.32 | 0.05 | 0.55 | 0.33 | 0.05 | 0.62 | Assimilation & Contrast (Schwarz et al., 1991) | ||||||||||
72 | 71 | 24 | 2 | Schwarz | Schwarz.2a | list(GlobalFirst=c('schw1.1','schw1.2'),SpecificFirst=c('schw2.1','schw2.2')) | list(Condition=c('GlobalFirst','SpecificFirst')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 0 | 0 | 0 | 0 | varfun.Schwarz.2 | Z.f | cor_test_fisherZ(r1=r1,r2=r2,n1=N[1],n2=N[2], conf.level=stat.params$conf.level, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Germany | 1 | 0 | Assimilation & Contrast (Schwarz et al., 1991) | 1 | ||||||||||||||||||||||||||
73 | 72 | 24 | 2 | Schwarz | Schwarz.2b | list(GlobalFirst=c('schw1.1','schw1.2'),SpecificFirst=c('schw2.1','schw2.2')) | list(Condition=c('GlobalFirst','SpecificFirst')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 0 | 0 | 0 | 0 | varfun.Schwarz.2 | Z.f | cor_test_fisherZ(r1=r1,r2=NULL,n1=N[1],n2=NULL, conf.level=stat.params$conf.level, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Germany | 1 | 0 | Assimilation & Contrast (Schwarz et al., 1991) | |||||||||||||||||||||||||||
74 | 73 | 24 | 2 | Schwarz | Schwarz.2c | list(GlobalFirst=c('schw1.1','schw1.2'),SpecificFirst=c('schw2.1','schw2.2')) | list(Condition=c('GlobalFirst','SpecificFirst')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 0 | 0 | 0 | 0 | varfun.Schwarz.2 | Z.f | cor_test_fisherZ(r1=r2,r2=NULL,n1=N[2],n2=NULL, conf.level=stat.params$conf.level, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Germany | 1 | 0 | Assimilation & Contrast (Schwarz et al., 1991) | |||||||||||||||||||||||||||
75 | 74 | 25 | 2 | Shafir | Shafir.1 | list(Award=c('shaf1.1'), Deny=c('shaf2.1')) | list(Condition=c('Award','Deny'), Response=c('ParentA','ParentB')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Shafir.1 | Z | z.test(x = ParentB, pi = .5, N = sum(N, na.rm=TRUE), proportion = TRUE, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='greater',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 1 | Z | two.sided | independent | 85 | 85 | 170 | 2.48 | 0.52 | 4.44 | 0.01 | 0.38 | 0.08 | 0.70 | 0.19 | 0.04 | 0.33 | Choosing or Rejecting (Shafir, 1993) | |||||||||||
76 | 75 | 26 | 2 | Zaval | Zaval.1 | list(Heat=c('zav.dv.2','zav.include.strict','zav.condition'),Cold=c('zav.dv.2','zav.include.strict','zav.condition')) | list(Condition=c('Heat','Cold')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Zaval.1 | t | t.test(x = Heat, y = Cold, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Priming Warmth (Zaval et al., 2014) | |||||||||||||||||||||||||||
77 | 76 | 26 | 2 | Zaval | Zaval.2 | list(Heat=c('zav.dv.2','zav.include.strict','zav.condition'),Cold=c('zav.dv.2','zav.include.strict','zav.condition')) | list(Condition=c('Heat','Cold')) | list(each=c('Condition','X > 0')) | list(c('Language=="English" ')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Zaval.1 | t | t.test(x = Heat, y = Cold, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Priming Warmth (Zaval et al., 2014) | |||||||||||||||||||||||||||
78 | 77 | 26 | 2 | Zaval | Zaval.3 | list(Heat=c('zav.dv.3','zav.include.strict','zav.condition'),Cold=c('zav.dv.3','zav.include.strict','zav.condition')) | list(Condition=c('Heat','Cold')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 1 | 1 | 0 | varfun.Zaval.1 | t | t.test(x = Heat, y = Cold, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 1 | t | two.sided | independent | 191 | 96 | 96 | 192 | 2.15 | 0.18 | 4.12 | 0.03 | 0.31 | 0.03 | 0.59 | 0.15 | 0.01 | 0.29 | Priming Warmth (Zaval et al., 2014) | ||||||||||
79 | 78 | 26 | 2 | Zaval | Zaval.4 | list(Heat=c('zav.dv.3','zav.include.strict','zav.condition'), Cold=c('zav.dv.3','zav.include.strict','zav.condition')) | list(Condition=c('Heat','Cold')) | list(each=c('Condition','X > 0')) | list(c('Language=="English" ')) | 1 | 1 | 0 | 0 | 0 | 0 | varfun.Zaval.1 | t | t.test(x = Heat, y = Cold, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Priming Warmth (Zaval et al., 2014) | |||||||||||||||||||||||||||
80 | 79 | 27 | 2 | Knobe | Knobe.1 | list(Help=c('knob1.3'),Harm=c('knob2.3')) | list(Condition=c('Help','Harm')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Knobe.1 | t | t.test(x = Harm, y = Help, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 1 | X2 | NA | independent | 1 | 78 | 27.20 | 10.60 | 51.49 | 0.00 | 1.45 | 0.79 | 2.77 | 0.59 | 0.37 | 0.81 | Intentional Side-Effects (Knobe, 2003) | ||||||||||||
81 | 80 | 27 | 2 | Knobe | Knobe.2 | list(Praise=c('knob1.4'),Blame=c('knob2.4')) | list(Condition=c('Praise','Blame')) | list(each=c('Condition','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Knobe.2 | t | t.test(x = Blame, y = Praise, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | US | 1 | 0 | Intentional Side-Effects (Knobe, 2003) | |||||||||||||||||||||||||||
82 | 81 | 28 | 2 | Gati | Gati.1a | list(SimilarityA=c('gati1s.2','gati1s.3','gati1s.5','gati1s.11','gati1s.12','gati1s.14','gati1s.16','gati1s.17','gati1s.18','gati1s.19','gati1s.22','gati1s.4','gati1s.6','gati1s.7','gati1s.8','gati1s.9','gati1s.10','gati1s.13','gati1s.15','gati1s.20','gati1s.21'),SimilarityB=c('gati2s.2','gati2s.3','gati2s.5','gati2s.11','gati2s.12','gati2s.14','gati2s.16','gati2s.17','gati2s.18','gati2s.19','gati2s.22','gati2s.4','gati2s.6','gati2s.7','gati2s.8','gati2s.9','gati2s.10','gati2s.13','gati2s.15','gati2s.20','gati2s.21')) | list(CounterBalance=c('SimilarityA','SimilarityB')) | list(each=c('CounterBalance','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Gati.1 | lm.t | summary(lmerTest::lmer(DV ~ Condition + (Condition|uID) + (Condition|itemID))) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$coefficients[1,4] | stat.test$coefficients[1,3] | stat.test$coefficients[1,5] | Israel | 1 | 0 | Direction & Similarity (Tversky & Gati, 1978) | |||||||||||||||||||||||||||
83 | 82 | 28 | 2 | Gati | Gati.1b | list(SimilarityA=c('gati1s.2','gati1s.3','gati1s.5','gati1s.11','gati1s.12','gati1s.14','gati1s.16','gati1s.17','gati1s.18','gati1s.19','gati1s.22','gati1s.4','gati1s.6','gati1s.7','gati1s.8','gati1s.9','gati1s.10','gati1s.13','gati1s.15','gati1s.20','gati1s.21'),SimilarityB=c('gati2s.2','gati2s.3','gati2s.5','gati2s.11','gati2s.12','gati2s.14','gati2s.16','gati2s.17','gati2s.18','gati2s.19','gati2s.22','gati2s.4','gati2s.6','gati2s.7','gati2s.8','gati2s.9','gati2s.10','gati2s.13','gati2s.15','gati2s.20','gati2s.21')) | list(CounterBalance=c('SimilarityA','SimilarityB')) | list(each=c('CounterBalance','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Gati.1 | lm.t | summary(lmerTest::lmer(DV ~ Condition + (Condition|uID) + (Condition|itemID))) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$coefficients[2,4] | stat.test$coefficients[2,3] | stat.test$coefficients[2,5] | Israel | 1 | 0 | Direction & Similarity (Tversky & Gati, 1978) | |||||||||||||||||||||||||||
84 | 83 | 28 | 2 | Gati | Gati.2 | list(SimilarityA=c('gati1s.2','gati1s.3','gati1s.5','gati1s.11','gati1s.12','gati1s.14','gati1s.16','gati1s.17','gati1s.18','gati1s.19','gati1s.22','gati1s.4','gati1s.6','gati1s.7','gati1s.8','gati1s.9','gati1s.10','gati1s.13','gati1s.15','gati1s.20','gati1s.21'),SimilarityB=c('gati2s.2','gati2s.3','gati2s.5','gati2s.11','gati2s.12','gati2s.14','gati2s.16','gati2s.17','gati2s.18','gati2s.19','gati2s.22','gati2s.4','gati2s.6','gati2s.7','gati2s.8','gati2s.9','gati2s.10','gati2s.13','gati2s.15','gati2s.20','gati2s.21')) | list(CounterBalance=c('SimilarityA','SimilarityB')) | list(each=c('CounterBalance','X > 0')) | list(c('all')) | 1 | 1 | 0 | 1 | 1 | 0 | varfun.Gati.2 | t.p | t.test(x = Asymmetry, mu=0, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Israel | 1 | 1 | t.p | two.sided | independent (1 sample) | 153 | 77 | 77 | 154 | 2.99 | 0.08 | 0.40 | 0.00 | 0.24 | 0.08 | 0.40 | 0.12 | 0.04 | 0.20 | This is a 1 sample t-test. Cohens d_z was used to estimate the effect size. | Direction & Similarity (Tversky & Gati, 1978) | |||||||||
85 | 84 | 28 | 2 | Gati | Gati.3 | list(SimilarityA=c('gati1s.2','gati1s.3','gati1s.5','gati1s.11','gati1s.12','gati1s.14','gati1s.16','gati1s.17','gati1s.18','gati1s.19','gati1s.22','gati1s.4','gati1s.6','gati1s.7','gati1s.8','gati1s.9','gati1s.10','gati1s.13','gati1s.15','gati1s.20','gati1s.21'),SimilarityB=c('gati2s.2','gati2s.3','gati2s.5','gati2s.11','gati2s.12','gati2s.14','gati2s.16','gati2s.17','gati2s.18','gati2s.19','gati2s.22','gati2s.4','gati2s.6','gati2s.7','gati2s.8','gati2s.9','gati2s.10','gati2s.13','gati2s.15','gati2s.20','gati2s.21')) | list(CounterBalance=c('SimilarityA','SimilarityB')) | list(each=c('CounterBalance','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Gati.3 | t.p | t.test(DV ~ Condition, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative, paired = TRUE) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Israel | 1 | 0 | Direction & Similarity (Tversky & Gati, 1978) | |||||||||||||||||||||||||||
86 | 85 | 28 | 2 | Gati | Gati.4a | list(DifferenceA=c('gati1d.2','gati1d.3','gati1d.5','gati1d.11','gati1d.12','gati1d.14','gati1d.16','gati1d.17','gati1d.18','gati1d.19','gati1d.22','gati1d.4','gati1d.6','gati1d.7','gati1d.8','gati1d.9','gati1d.10','gati1d.13','gati1d.15','gati1d.20','gati1d.21'),DifferenceB=c('gati2d.2','gati2d.3','gati2d.5','gati2d.11','gati2d.12','gati2d.14','gati2d.16','gati2d.17','gati2d.18','gati2d.19','gati2d.22','gati2d.4','gati2d.6','gati2d.7','gati2d.8','gati2d.9','gati2d.10','gati2d.13','gati2d.15','gati2d.20','gati2d.21')) | list(CounterBalance=c('DifferenceA','DifferenceB')) | list(each=c('CounterBalance','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Gati.1 | lm.t | summary(lmerTest::lmer(DV ~ Condition + (Condition|uID) + (Condition|itemID))) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$coefficients[1,4] | stat.test$coefficients[1,3] | stat.test$coefficients[1,5] | Israel | 1 | 0 | Direction & Similarity (Tversky & Gati, 1978) | |||||||||||||||||||||||||||
87 | 86 | 28 | 2 | Gati | Gati.4b | list(DifferenceA=c('gati1d.2','gati1d.3','gati1d.5','gati1d.11','gati1d.12','gati1d.14','gati1d.16','gati1d.17','gati1d.18','gati1d.19','gati1d.22','gati1d.4','gati1d.6','gati1d.7','gati1d.8','gati1d.9','gati1d.10','gati1d.13','gati1d.15','gati1d.20','gati1d.21'),DifferenceB=c('gati2d.2','gati2d.3','gati2d.5','gati2d.11','gati2d.12','gati2d.14','gati2d.16','gati2d.17','gati2d.18','gati2d.19','gati2d.22','gati2d.4','gati2d.6','gati2d.7','gati2d.8','gati2d.9','gati2d.10','gati2d.13','gati2d.15','gati2d.20','gati2d.21')) | list(CounterBalance=c('DifferenceA','DifferenceB')) | list(each=c('CounterBalance','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Gati.1 | lm.t | summary(lmerTest::lmer(DV ~ Condition + (Condition|uID) + (Condition|itemID))) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$coefficients[2,4] | stat.test$coefficients[2,3] | stat.test$coefficients[2,5] | Israel | 1 | 0 | Direction & Similarity (Tversky & Gati, 1978) | |||||||||||||||||||||||||||
88 | 87 | 28 | 2 | Gati | Gati.5 | list(DifferenceA=c('gati1d.2','gati1d.3','gati1d.5','gati1d.11','gati1d.12','gati1d.14','gati1d.16','gati1d.17','gati1d.18','gati1d.19','gati1d.22','gati1d.4','gati1d.6','gati1d.7','gati1d.8','gati1d.9','gati1d.10','gati1d.13','gati1d.15','gati1d.20','gati1d.21'),DifferenceB=c('gati2d.2','gati2d.3','gati2d.5','gati2d.11','gati2d.12','gati2d.14','gati2d.16','gati2d.17','gati2d.18','gati2d.19','gati2d.22','gati2d.4','gati2d.6','gati2d.7','gati2d.8','gati2d.9','gati2d.10','gati2d.13','gati2d.15','gati2d.20','gati2d.21')) | list(CounterBalance=c('DifferenceA','DifferenceB')) | list(each=c('CounterBalance','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Gati.2 | t.p | t.test(x = Asymmetry, mu=0, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Israel | 1 | 0 | Direction & Similarity (Tversky & Gati, 1978) | |||||||||||||||||||||||||||
89 | 88 | 28 | 2 | Gati | Gati.6 | list(DifferenceA=c('gati1d.2','gati1d.3','gati1d.5','gati1d.11','gati1d.12','gati1d.14','gati1d.16','gati1d.17','gati1d.18','gati1d.19','gati1d.22','gati1d.4','gati1d.6','gati1d.7','gati1d.8','gati1d.9','gati1d.10','gati1d.13','gati1d.15','gati1d.20','gati1d.21'),DifferenceB=c('gati2d.2','gati2d.3','gati2d.5','gati2d.11','gati2d.12','gati2d.14','gati2d.16','gati2d.17','gati2d.18','gati2d.19','gati2d.22','gati2d.4','gati2d.6','gati2d.7','gati2d.8','gati2d.9','gati2d.10','gati2d.13','gati2d.15','gati2d.20','gati2d.21')) | list(CounterBalance=c('DifferenceA','DifferenceB')) | list(each=c('CounterBalance','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Gati.5 | t.p | t.test(DV ~ Condition, conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative, paired = TRUE) | list(conf.level=.95, var.equal=NA, censorNA=TRUE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Israel | 1 | 0 | Direction & Similarity (Tversky & Gati, 1978) | |||||||||||||||||||||||||||
90 | 89 | 28 | 2 | Gati | Gati.7 | list(SimilarityA=c('gati1s.2','gati1s.3','gati1s.5','gati1s.11','gati1s.12','gati1s.14','gati1s.16','gati1s.17','gati1s.18','gati1s.19','gati1s.22','gati1s.4','gati1s.6','gati1s.7','gati1s.8','gati1s.9','gati1s.10','gati1s.13','gati1s.15','gati1s.20','gati1s.21'),SimilarityB=c('gati2s.2','gati2s.3','gati2s.5','gati2s.11','gati2s.12','gati2s.14','gati2s.16','gati2s.17','gati2s.18','gati2s.19','gati2s.22','gati2s.4','gati2s.6','gati2s.7','gati2s.8','gati2s.9','gati2s.10','gati2s.13','gati2s.15','gati2s.20','gati2s.21')) | list(CounterBalance=c('SimilarityA','SimilarityB'), Order=c('gatiBEFOREnore','gatiAFTERnore')) | list(each=c('CounterBalance','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Gati.4 | t | t.test(Asymmetry ~ Order,conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=FALSE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Israel | 1 | 0 | Direction & Similarity (Tversky & Gati, 1978) | |||||||||||||||||||||||||||
91 | 90 | 28 | 2 | Gati | Gati.8 | list(DifferenceA=c('gati1d.2','gati1d.3','gati1d.5','gati1d.11','gati1d.12','gati1d.14','gati1d.16','gati1d.17','gati1d.18','gati1d.19','gati1d.22','gati1d.4','gati1d.6','gati1d.7','gati1d.8','gati1d.9','gati1d.10','gati1d.13','gati1d.15','gati1d.20','gati1d.21'),DifferenceB=c('gati2d.2','gati2d.3','gati2d.5','gati2d.11','gati2d.12','gati2d.14','gati2d.16','gati2d.17','gati2d.18','gati2d.19','gati2d.22','gati2d.4','gati2d.6','gati2d.7','gati2d.8','gati2d.9','gati2d.10','gati2d.13','gati2d.15','gati2d.20','gati2d.21')) | list(CounterBalance=c('DifferenceA','DifferenceB'), Order=c('gatiBEFOREnore','gatiAFTERnore')) | list(each=c('CounterBalance','X > 0')) | list(c('all')) | 1 | 0 | 1 | 0 | 0 | 0 | varfun.Gati.4 | t | t.test(Asymmetry ~ Order,conf.level=stat.params$conf.level, var.equal = stat.params$var.equal, alternative = stat.params$alternative) | list(conf.level=.95, var.equal=TRUE, censorNA=FALSE, alternative='two.sided',alpha=.05, within=FALSE) | stat.test$statistic | stat.test$parameter | stat.test$p.value | Israel | 1 | 0 | Direction & Similarity (Tversky & Gati, 1978) | |||||||||||||||||||||||||||
92 | 90 | 29 | 56 | 28 | 28 | 4 | 175 |