Как повторять анализ Крускаль-Уоллиса on цикл 'for' и получать единственное решение для каждой проанализированной переменной?

я достаточно новый в программировании и в R, так что я иду очень потерянным с этой проблемой:

Я нуждаюсь в том, чтобы сделать анализ Крускаль-Уоллиса для высокого числа числовых переменных касательно различных категорических переменных и получить стоимость обозначения для каждой из числовых переменных. Мои данные более или менее такие:

Sample,Nunatak,Slope,Altitude,Depth,Fluoride,Acetate,Formiate,Chloride,Nitrate  (...)
    m4,1,1,1,1,0.044,0.884,0.522,0.198,0.021
    m6,1,1,1,2,0.059,0.852,0.733,0.664,0.038
    m7,1,1,1,3,0.082,0.339,1.496,0.592,0.034
    m8,1,1,2,1,0.112,0.812,2.709,0.357,0.014
    m10,1,1,2,2,0.088,0.768,2.535,0.379,0
    m11,1,1,3,1,0.101,0.336,4.504,0.229,0
    m13,1,1,3,2,0.092,0.681,1.862,0.671,0.018
    m14,1,2,2,1,0.12,1.055,3.018,0.771,0
    m16,1,2,2,2,0.102,1.019,1.679,1.435,0
    m17,1,2,2,3,0.26,0.631,0.505,0.574,0.008'
    (...)

Будучи Nunatak, Slope, Altitude и Depth категорические переменные и оставшаяся часть (Fluoride...) числовые.

Чтобы не быть должным повторять:

kruskal.test("Factor a analizar 1"~"Variable de categorización 1",  data=env_fact)

Так часто как переменные я имею, приятель помог мне создавать цикл 'for' как тот, который остается:

my.variables <- colnames(env_fact)
for(i in 1:length(my.variables)) {
    if(my.variables[i] == 'Categorical_var') {
        next
    } else {
        kruskal.test(env_fact[,i], env_fact$Categorical_var)
    }
}

Однако, мы не можем написать код, который позволял бы нам доставать стоимость теста для каждой из числовых переменных (my.variables), который мы анализируем, но мы только смогли достать стоимость обозначения для анализа как будто он осуществлялся со всеми числовыми переменными одновременно.

Какая-то идея как изменять маленький код, чтобы мочь иметь на экране или в output стоимость Крускаль-Уоллиса тест для каждой из числовых переменных, которые я нуждаюсь в том, чтобы проанализировать?

Большое спасибо заранее

5
задан 31.07.2019, 18:24
0 ответов