1 The lettuce dataset

In a previous tutorial, we analysed the dataset on lettuce plants using ANOVA. However, it was not clear if all the assumptions of ANOVA were met. Indeed, with only 7 datapoints per group, it is very hard to assess the assumptions of normality and equal variances.

Therefore, we will re-analyse the dataset by using the non-parametric alternative to ANOVA, the Kruskal-Wallis test. We will first give a concise overview of what we saw in the ANOVA analysis, which can be found in the ANOVA_lettuce_plants.Rmd file.

The researchers want to find out if biochar, compost and a combination of both biochar and compost have an influence on the growth of lettuce plants. To this end, they grew up lettuce plants in a greenhouse. The pots were filled with one of four soil types;

  1. Soil only (control)
  2. Soil supplemented with biochar (refoak)
  3. Soil supplemented with compost (compost)
  4. Soil supplemented with both biochar and compost (cobc)

The dataset freshweight_lettuce.txt contains the freshweight (in grams) for 28 lettuce plants (7 per condition).

Load the required libraries

library(tidyverse)

2 Data import

lettuce <- read_csv("https://raw.githubusercontent.com/statOmics/PSLSData/main/freshweight_lettuce.txt")
## Rows: 28 Columns: 3
## ── Column specification ──────────────────────────────────────────────
## Delimiter: ","
## chr (1): treatment
## dbl (2): id, freshweight
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

Take a glimpse at the data

glimpse(lettuce)
## Rows: 28
## Columns: 3
## $ id          <dbl> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 1…
## $ treatment   <chr> "control", "control", "control", "control", "con…
## $ freshweight <dbl> 38, 34, 41, 43, 43, 29, 38, 59, 64, 57, 56, 50, …

3 Data tidying

## set treatment to factor
## ...

4 Data exploration

## Count the number of observations per treatment

Now let’s make a boxplot displaying the freshweight of each treatment condition:

# ...

Interpret the visualization!

In the analysis in chapter 7 (ANOVA_lettuce_plants_half.rmd file), we accepted the assumptions for analyzing the data with an ANOVA. However, it was not clear if all the assumptions of ANOVA were met. Indeed, with only 7 values per group, it is very hard to assess the assumptions of normality and equal variances.

Therefore, we will re-analyse the dataset by using the non-parametric alternative to ANOVA: the Kruskal-Wallis test.

5 Kruskal-Wallis rank test

5.1 Hypotheses

Formulate a correct null and alternative hypothesis for the Kruskal-Wallis test in this analysis.

5.2 Analysis

# set.seed(1)
# kw <- kruskal_test(...)
# kw

Interpret the results!

6 Post-hoc analysis

We will perform a post-hoc analysis with pairwise Wilcoxon rank sum test. As we did not want to assume the location shift, we will interpret the outcome in terms of probabilistic indices. Note that after the analysis, we will need to correct the acquired p-values for multiple testing.

6.1 Hypotheses

Formulate a correct null and alternative hypothesis for the Wilcoxon test post-hoc analysis.

6.2 Analysis

## pairwise.wilcox.test(...)

What do you observe?

## Alternative: caluculate the p-value for each treatment combination with wilcoxon_test

treatments <- levels(lettuce$treatment)
freshweight <- lettuce$freshweight

pvalues <- combn(treatments,2,function(x){

  ## Pairwise Wilcoxon test
  test = wilcox_test(freshweight~treatment,subset(lettuce,treatment%in%x), distribution = 'exact')

  ## Get and store p-value of test
  pvalue(test)
})

## Adjust for multiple testing
pvalues_bonf = p.adjust(pvalues,method = 'bonferroni')

## link the p-value with the correct pairwise test
names(pvalues_bonf) <- combn(levels(lettuce$treatment),2,paste,collapse="_VS_")
pvalues_bonf

Interpret.

Based on the chunk of code above, can extract the point estimates for the probabilistic indices? Interpret those as well.

7 Conclusion

Formulate a proper conclusion that answers the research hypothesis.

LS0tCnRpdGxlOiAiRXhlcmNpc2UgOS4yOiBOb24tcGFyYW1ldHJpYyB0ZXN0IG9uIHRoZSBsZXR0dWNlIGRhdGFzZXQiCmF1dGhvcjogIkxpZXZlbiBDbGVtZW50IGFuZCBKZXJvZW4gR2lsaXMiCmRhdGU6ICJzdGF0T21pY3MsIEdoZW50IFVuaXZlcnNpdHkgKGh0dHBzOi8vc3RhdG9taWNzLmdpdGh1Yi5pbykiCi0tLQoKIyBUaGUgbGV0dHVjZSBkYXRhc2V0CgpJbiBhIHByZXZpb3VzIHR1dG9yaWFsLCB3ZSBhbmFseXNlZCB0aGUgZGF0YXNldCBvbgpsZXR0dWNlIHBsYW50cyB1c2luZyBBTk9WQS4gSG93ZXZlciwgaXQgd2FzIG5vdCBjbGVhcgppZiBhbGwgdGhlIGFzc3VtcHRpb25zIG9mIEFOT1ZBIHdlcmUgbWV0LiBJbmRlZWQsIHdpdGgKb25seSA3IGRhdGFwb2ludHMgcGVyIGdyb3VwLCBpdCBpcyB2ZXJ5IGhhcmQgdG8gYXNzZXNzCnRoZSBhc3N1bXB0aW9ucyBvZiBub3JtYWxpdHkgYW5kIGVxdWFsIHZhcmlhbmNlcy4KClRoZXJlZm9yZSwgd2Ugd2lsbCByZS1hbmFseXNlIHRoZSBkYXRhc2V0IGJ5IHVzaW5nIHRoZQpub24tcGFyYW1ldHJpYyBhbHRlcm5hdGl2ZSB0byBBTk9WQSwgdGhlIGBLcnVza2FsLVdhbGxpcyB0ZXN0YC4KV2Ugd2lsbCBmaXJzdCBnaXZlIGEgY29uY2lzZSBvdmVydmlldyBvZiB3aGF0IHdlIHNhdyBpbiB0aGUKQU5PVkEgYW5hbHlzaXMsIHdoaWNoIGNhbiBiZSBmb3VuZCBpbiB0aGUKYEFOT1ZBX2xldHR1Y2VfcGxhbnRzLlJtZGAgZmlsZS4KClRoZSByZXNlYXJjaGVycyB3YW50IHRvIGZpbmQgb3V0IGlmIGJpb2NoYXIsIGNvbXBvc3QgYW5kCmEgY29tYmluYXRpb24gb2YgYm90aCBiaW9jaGFyIGFuZCBjb21wb3N0IGhhdmUgYW4gaW5mbHVlbmNlCm9uIHRoZSBncm93dGggb2YgbGV0dHVjZSBwbGFudHMuIFRvIHRoaXMgZW5kLCB0aGV5IGdyZXcgdXAKbGV0dHVjZSBwbGFudHMgaW4gYSBncmVlbmhvdXNlLiBUaGUgcG90cyB3ZXJlIGZpbGxlZCB3aXRoCm9uZSBvZiBmb3VyIHNvaWwgdHlwZXM7CgoxLiBTb2lsIG9ubHkgKGNvbnRyb2wpCjIuIFNvaWwgc3VwcGxlbWVudGVkIHdpdGggYmlvY2hhciAocmVmb2FrKQozLiBTb2lsIHN1cHBsZW1lbnRlZCB3aXRoIGNvbXBvc3QgKGNvbXBvc3QpCjQuIFNvaWwgc3VwcGxlbWVudGVkIHdpdGggYm90aCBiaW9jaGFyIGFuZCBjb21wb3N0IChjb2JjKQoKVGhlIGRhdGFzZXQgYGZyZXNod2VpZ2h0X2xldHR1Y2UudHh0YCBjb250YWlucyB0aGUgZnJlc2h3ZWlnaHQKKGluIGdyYW1zKSBmb3IgMjggbGV0dHVjZSBwbGFudHMgKDcgcGVyIGNvbmRpdGlvbikuCgpMb2FkIHRoZSByZXF1aXJlZCBsaWJyYXJpZXMKCmBgYHtyLCBtZXNzYWdlID0gRkFMU0V9CmxpYnJhcnkodGlkeXZlcnNlKQpgYGAKCiMgRGF0YSBpbXBvcnQKCmBgYHtyfQpsZXR0dWNlIDwtIHJlYWRfY3N2KCJodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20vc3RhdE9taWNzL1BTTFNEYXRhL21haW4vZnJlc2h3ZWlnaHRfbGV0dHVjZS50eHQiKQpgYGAKClRha2UgYSBnbGltcHNlIGF0IHRoZSBkYXRhCgpgYGB7cn0KZ2xpbXBzZShsZXR0dWNlKQpgYGAKCiMgRGF0YSB0aWR5aW5nCgpgYGB7cn0KIyMgc2V0IHRyZWF0bWVudCB0byBmYWN0b3IKIyMgLi4uCmBgYAoKCiMgRGF0YSBleHBsb3JhdGlvbgoKYGBge3J9CiMjIENvdW50IHRoZSBudW1iZXIgb2Ygb2JzZXJ2YXRpb25zIHBlciB0cmVhdG1lbnQKYGBgCgpOb3cgbGV0J3MgbWFrZSBhIGJveHBsb3QgZGlzcGxheWluZyB0aGUgZnJlc2h3ZWlnaHQKb2YgZWFjaCB0cmVhdG1lbnQgY29uZGl0aW9uOgoKYGBge3J9CiMgLi4uCmBgYAoKSW50ZXJwcmV0IHRoZSB2aXN1YWxpemF0aW9uIQoKSW4gdGhlIGFuYWx5c2lzIGluIGNoYXB0ZXIgNyAoYEFOT1ZBX2xldHR1Y2VfcGxhbnRzX2hhbGYucm1kYCBmaWxlKSwKd2UgYWNjZXB0ZWQgdGhlIGFzc3VtcHRpb25zIGZvciBhbmFseXppbmcgdGhlIGRhdGEgd2l0aCBhbiBBTk9WQS4KSG93ZXZlciwgaXQgd2FzIG5vdCBjbGVhciBpZiBhbGwgdGhlIGFzc3VtcHRpb25zIG9mIEFOT1ZBIHdlcmUgbWV0LgpJbmRlZWQsIHdpdGggb25seSA3IHZhbHVlcyBwZXIgZ3JvdXAsIGl0IGlzIHZlcnkgaGFyZCB0byBhc3Nlc3MKdGhlIGFzc3VtcHRpb25zIG9mIG5vcm1hbGl0eSBhbmQgZXF1YWwgdmFyaWFuY2VzLgoKVGhlcmVmb3JlLCB3ZSB3aWxsIHJlLWFuYWx5c2UgdGhlIGRhdGFzZXQgYnkgdXNpbmcgdGhlCm5vbi1wYXJhbWV0cmljIGFsdGVybmF0aXZlIHRvIEFOT1ZBOiB0aGUgS3J1c2thbC1XYWxsaXMgdGVzdC4KCiMgS3J1c2thbC1XYWxsaXMgcmFuayB0ZXN0CgojIyBIeXBvdGhlc2VzCgpGb3JtdWxhdGUgYSBjb3JyZWN0IG51bGwgYW5kIGFsdGVybmF0aXZlIGh5cG90aGVzaXMgZm9yIHRoZSBLcnVza2FsLVdhbGxpcyB0ZXN0IGluIHRoaXMgYW5hbHlzaXMuCgojIyBBbmFseXNpcwoKYGBge3J9CiMgc2V0LnNlZWQoMSkKIyBrdyA8LSBrcnVza2FsX3Rlc3QoLi4uKQojIGt3CmBgYAoKSW50ZXJwcmV0IHRoZSByZXN1bHRzIQoKIyBQb3N0LWhvYyBhbmFseXNpcwoKV2Ugd2lsbCBwZXJmb3JtIGEgcG9zdC1ob2MgYW5hbHlzaXMgd2l0aCBwYWlyd2lzZSBXaWxjb3hvbiByYW5rCnN1bSB0ZXN0LiBBcyB3ZSBkaWQgbm90IHdhbnQgdG8gYXNzdW1lIHRoZSBsb2NhdGlvbiBzaGlmdCwgd2UKd2lsbCBpbnRlcnByZXQgdGhlIG91dGNvbWUgaW4gdGVybXMgb2YgcHJvYmFiaWxpc3RpYyBpbmRpY2VzLgpOb3RlIHRoYXQgYWZ0ZXIgdGhlIGFuYWx5c2lzLCB3ZSB3aWxsIG5lZWQgdG8gY29ycmVjdCB0aGUgYWNxdWlyZWQKcC12YWx1ZXMgZm9yIG11bHRpcGxlIHRlc3RpbmcuCgojIyBIeXBvdGhlc2VzCgpGb3JtdWxhdGUgYSBjb3JyZWN0IG51bGwgYW5kIGFsdGVybmF0aXZlIGh5cG90aGVzaXMgZm9yIHRoZSBXaWxjb3hvbiB0ZXN0IHBvc3QtaG9jIGFuYWx5c2lzLgoKIyMgQW5hbHlzaXMKCmBgYHtyfQojIyBwYWlyd2lzZS53aWxjb3gudGVzdCguLi4pCmBgYAoKV2hhdCBkbyB5b3Ugb2JzZXJ2ZT8KCmBgYAojIyBBbHRlcm5hdGl2ZTogY2FsdWN1bGF0ZSB0aGUgcC12YWx1ZSBmb3IgZWFjaCB0cmVhdG1lbnQgY29tYmluYXRpb24gd2l0aCB3aWxjb3hvbl90ZXN0Cgp0cmVhdG1lbnRzIDwtIGxldmVscyhsZXR0dWNlJHRyZWF0bWVudCkKZnJlc2h3ZWlnaHQgPC0gbGV0dHVjZSRmcmVzaHdlaWdodAoKcHZhbHVlcyA8LSBjb21ibih0cmVhdG1lbnRzLDIsZnVuY3Rpb24oeCl7CgogICMjIFBhaXJ3aXNlIFdpbGNveG9uIHRlc3QKICB0ZXN0ID0gd2lsY294X3Rlc3QoZnJlc2h3ZWlnaHR+dHJlYXRtZW50LHN1YnNldChsZXR0dWNlLHRyZWF0bWVudCVpbiV4KSwgZGlzdHJpYnV0aW9uID0gJ2V4YWN0JykKCiAgIyMgR2V0IGFuZCBzdG9yZSBwLXZhbHVlIG9mIHRlc3QKICBwdmFsdWUodGVzdCkKfSkKCiMjIEFkanVzdCBmb3IgbXVsdGlwbGUgdGVzdGluZwpwdmFsdWVzX2JvbmYgPSBwLmFkanVzdChwdmFsdWVzLG1ldGhvZCA9ICdib25mZXJyb25pJykKCiMjIGxpbmsgdGhlIHAtdmFsdWUgd2l0aCB0aGUgY29ycmVjdCBwYWlyd2lzZSB0ZXN0Cm5hbWVzKHB2YWx1ZXNfYm9uZikgPC0gY29tYm4obGV2ZWxzKGxldHR1Y2UkdHJlYXRtZW50KSwyLHBhc3RlLGNvbGxhcHNlPSJfVlNfIikKcHZhbHVlc19ib25mCmBgYAoKSW50ZXJwcmV0LgoKQmFzZWQgb24gdGhlIGNodW5rIG9mIGNvZGUgYWJvdmUsIGNhbiBleHRyYWN0IHRoZSBwb2ludCBlc3RpbWF0ZXMKZm9yIHRoZSBwcm9iYWJpbGlzdGljIGluZGljZXM/IEludGVycHJldCB0aG9zZSBhcyB3ZWxsLgoKIyBDb25jbHVzaW9uCgpGb3JtdWxhdGUgYSBwcm9wZXIgY29uY2x1c2lvbiB0aGF0IGFuc3dlcnMgdGhlIHJlc2VhcmNoIGh5cG90aGVzaXMuCg==