A notebook made by Paul Amat, amat-design.com

Context and objectives

Is the distribution of subjects in different categories faithful to a theoretical distribution?

Research hypothesis

Statistical hypothesis

H0:

H1:

Data preparation and exploration

Starting session

library(readr)
data <- read_csv("data.csv", show_col_types = FALSE)

Proportion tables

round(prop.table(table(data$profil)), 1) # ok jamovi

 Athletic   Dreamer Scientist 
      0.5       0.4       0.1 

Parametric test

Test

test <- chisq.test(table(data$profil), correct = F) # ok in jamovi
test

    Chi-squared test for given probabilities

data:  table(data$profil)
X-squared = 45.28, df = 2, p-value = 1.471e-10

Conditions

Independent observations

The independence of observations is guaranteed by the recruitment process.

More than 5 observations in each combination of theoretical frequencies

all(test$expected > 5)
[1] TRUE

Effect size

Power analysis

Finding power

Finding N

Results and recommendations

LS0tDQp0aXRsZTogIkRpc3RyaWJ1dGlvbiBmb2xsb3dzIGEgdGhlb3JldGljYWwgZGlzdHJpYnV0aW9uIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KQSBub3RlYm9vayBtYWRlIGJ5IFBhdWwgQW1hdCwgW2FtYXQtZGVzaWduLmNvbV0oYW1hdC1kZXNpZ24uY29tKQ0KDQojIyBDb250ZXh0IGFuZCBvYmplY3RpdmVzDQoNCj4gSXMgdGhlIGRpc3RyaWJ1dGlvbiBvZiBzdWJqZWN0cyBpbiBkaWZmZXJlbnQgY2F0ZWdvcmllcyBmYWl0aGZ1bCB0byBhIHRoZW9yZXRpY2FsIGRpc3RyaWJ1dGlvbj8NCg0KIyMjIFJlc2VhcmNoIGh5cG90aGVzaXMNCg0KIyMjIFN0YXRpc3RpY2FsIGh5cG90aGVzaXMNCg0KSDA6DQoNCkgxOg0KDQojIyBEYXRhIHByZXBhcmF0aW9uIGFuZCBleHBsb3JhdGlvbg0KDQojIyMgU3RhcnRpbmcgc2Vzc2lvbg0KDQpgYGB7cn0NCmxpYnJhcnkocmVhZHIpDQpkYXRhIDwtIHJlYWRfY3N2KCJkYXRhLmNzdiIsIHNob3dfY29sX3R5cGVzID0gRkFMU0UpDQpgYGANCg0KIyMjIFByb3BvcnRpb24gdGFibGVzDQoNCmBgYHtyfQ0Kcm91bmQocHJvcC50YWJsZSh0YWJsZShkYXRhJHByb2ZpbCkpLCAxKSAjIG9rIGphbW92aQ0KYGBgDQoNCiMjIFBhcmFtZXRyaWMgdGVzdA0KDQojIyMgVGVzdA0KDQpgYGB7cn0NCnRlc3QgPC0gY2hpc3EudGVzdCh0YWJsZShkYXRhJHByb2ZpbCksIGNvcnJlY3QgPSBGKSAjIG9rIGluIGphbW92aQ0KdGVzdA0KYGBgDQoNCiMjIyBDb25kaXRpb25zDQoNCiMjIyMgSW5kZXBlbmRlbnQgb2JzZXJ2YXRpb25zDQoNClRoZSBpbmRlcGVuZGVuY2Ugb2Ygb2JzZXJ2YXRpb25zIGlzIGd1YXJhbnRlZWQgYnkgdGhlIHJlY3J1aXRtZW50IHByb2Nlc3MuDQoNCiMjIyMgTW9yZSB0aGFuIDUgb2JzZXJ2YXRpb25zIGluIGVhY2ggY29tYmluYXRpb24gb2YgdGhlb3JldGljYWwgZnJlcXVlbmNpZXMNCg0KYGBge3J9DQphbGwodGVzdCRleHBlY3RlZCA+IDUpDQpgYGANCg0KIyMjIEVmZmVjdCBzaXplDQoNCiMjIyBQb3dlciBhbmFseXNpcw0KDQojIyMjIEZpbmRpbmcgcG93ZXINCg0KIyMjIyBGaW5kaW5nIE4NCg0KIyMgUmVzdWx0cyBhbmQgcmVjb21tZW5kYXRpb25zDQo=