Мне нужно выполнить односторонний тест перестановки для отношения этих различий, и я не уверен, как это сделать.
G <- c(1,1,2,2,1,1,1,1,2,3,1,1,1,1,2,3,1,1,1,1,2,3,1,1,1,1,2,3,1,1,1,1,2,3,1,1,1,1,2,3,1,1,1,1,2,4,1,1,1,1,2,5,1,1,1,1,2,5,1,1,1,1,2,6,1,1,1,1,2,8,1,1,1,1,2,15)B <- c(2, 2, 7, 7, 7, 7, 2, 7, 7, 7)
var(B)
var(G)
lB <- length(B)
lG <- length(G)
obs <- var(B) / var(G)
pf(obs, n_1 - 1, n_2 - 1, lower.tail = FALSE)