# Kod 3.15. Test permutacyjny z zastosowaniem pakietu coin dla porównania dwóch wartości oczekiwanych
library(coin)
x1=rnorm(5,10,1)
x2=rnorm(7,11,1)
n1=length(x1)
n2=length(x2)
x=c(x1,x2)
gr=c(rep('gr1',n1),rep('gr2',n2))
dane=data.frame(x=x,gr=gr)
oneway_test(x ~ gr,data=dane)