# NOT RUN {
# load data
data("Eredivisie")
# compute a Kruskual-Wallis test to investigate whether
# market values differ by playing position
kw <- kruskal_test(Eredivisie, "MarketValue",
group = "Position")
# convert to an object of class "SPSS_table" that
# contains the table with the test results
kw_spss <- to_SPSS(kw, statistics = "test")
kw_spss
# blank out the number of degrees of freedom to ask
# an assignment question about it
kw_spss$table[2, 1] <- "???"
# print the LaTeX table to be included in the assignment
to_latex(kw_spss)
# }
Run the code above in your browser using DataLab