---
output:
html_document:
code_folding: hide
---
```{r block2, warning=FALSE, message=FALSE, fig.width=8, fig.height=6.5, dev='svg'}
library(WRS2)
library(ggstatsplot)
library(ggthemes)
set.seed(123)
inputdata <- WineTasting
ggwithinstats(
data = inputdata,
x = Wine,
y = Taste,
title = "figure.title",
caption = "figure.caption",
pairwise.comparisons = TRUE, # show pairwise comparison test results
ggtheme = theme_fivethirtyeight(),
ggstatsplot.layer = FALSE,
messages = FALSE
)