# Kod 4.14. Test permutacyjny jednorodności z kierunkową hipotezą alternatywną
###Testowanie jednego wariantu typu p[i,k]>p[j,k]
### k - interesująca nas kategoria
### i, j - numery populacji
alfa=0.05
tablica=table(woj,y)
i=2; j=1; k=5
T0=tablica[i,k]/apply(tablica,1,sum)[i]-tablica[j,k]/apply(tablica,1,sum)[j]
ASL=c()
T=c()
N=10000
for (sym in 1:N) {
tablica_per=table(woj,sample(y))
T=c(T,tablica_per[i,k]/apply(tablica_per,1,sum)[i]-tablica_per[j,k]/apply(tablica_per,1,sum)[j])
}
ASL=sum(T>=T0)/N
ASL