Здравствуйте, гость ( Вход | Регистрация )
27.01.2023 - 12:46
Сообщение
#1
|
|
![]() Группа: Пользователи Сообщений: 1162 Регистрация: 10.04.2007 Пользователь №: 4040 |
При тестировании программы расчета критерия Коновера (двухвыборочного) возникло сомнение в правильности то ли формул, то ли составленной по ним программы. Формулы брались из известной монографии автора критерия. Результаты не должны сильно отличаться от эквивалентных тестов. А они отличаются. Просьба к уважаемым коллегам - указать источник с каким-либо примером расчета указанным критерием, включая исходные данные и результат. Иначе придется отложить программу до лучших времен.
Сообщение отредактировал Игорь - 27.01.2023 - 17:31 ![]() Ebsignasnan prei wissant Deiws ainat! As gijwans! Sta ast stas arwis!
|
|
|
![]() |
![]() |
![]() |
1.02.2023 - 19:41
Сообщение
#2
|
|
![]() Группа: Пользователи Сообщений: 1162 Регистрация: 10.04.2007 Пользователь №: 4040 |
Сделал, как планировал. Вот результаты для тех же данных Коновера. Теперь нравится больше.
Критерий Ансари-Бредли (масштаб): левостороннее t = 30.5, p = 0.977159 правостороннее t = 11.5, p = 0.0228411 двустороннее p = 0.0456821 Критерий Зигеля-Тьюки (масштаб): левостороннее t = 57.5, p = 0.97434 правостороннее t = 20.5, p = 0.02566 двустороннее p = 0.0513199 Критерий Клотца (масштаб): левостороннее t = 6.1485, p = 0.999789 правостороннее t = 1.58914, p = 0.0386933 двустороннее p = 0.0389044 Критерий Коновера (масштаб): левостороннее t = 462, p = 0.990026 правостороннее t = 186, p = 0.00997383 двустороннее p = 0.0199477 Опубликованные формулы некоторых других критериев дают двухстороннее значение. Не знаю, пересчитывать ли из них левое и правое или так оставить ... Программа раздается с ресурса https://sourceforge.net/projects/statant/. Пока не нужно скачивать, т.к. последние исправления еще не внесены. Нужно еще переводы изменений сделать (базовый - английский + еще 6). Посмотрел, откуда брал формулы для Клотца: Hajek J., Sidak Z., Sen P.K. Theory of rank tests. - New York, NY: Academic Press, 1999. (есть русский перевод более раннего издания) и Conover W.J. Practical nonparametric statistics. - New York, NY: John Wiley & Sons, 1999. Формулы для Зигеля-Тьюки с поправками на объединение рангов брал в книге Петрович М.Л., Давидович М.И. Статистическое оценивание и проверка гипотез на ЭВМ. - М.: Финансы и статистика, 1989 (там есть ссылка на Холлендера). Сообщение отредактировал Игорь - 3.02.2023 - 22:17 ![]() Ebsignasnan prei wissant Deiws ainat! As gijwans! Sta ast stas arwis!
|
|
|
![]() |
![]() |
2.02.2023 - 01:30
Сообщение
#3
|
|
|
Группа: Пользователи Сообщений: 902 Регистрация: 23.08.2010 Пользователь №: 22694 |
Сделал, как планировал. Вот результаты для тех же данных Коновера. Теперь нравится больше. Критерий Клотца (масштаб): левостороннее t = 6.1485, p = 0.999789 правостороннее t = 1.58914, p = 0.0386933 двустороннее p = 0.0389044 Не-а. У меня получилось: 1) t=6.1485 p=.011635 2) t=1.58914 p=.0077357 Итого 2-tailed p=.0193703. Что хоть немного напоминает результаты StatXact: asympt p=.02098 А вот, что дает пакет {coin} из R Код >library(coin) > x<-c(10.8,11.1,10.4,10.1,11.3,10.8,10.5,11,10.9,10.8,10.7,10.8) > gr<-factor(c(rep(1,5),rep(2,7))) > set<-data.frame(x,gr) > klotz_test(x ~ gr, data = set) Asymptotic Two-Sample Klotz Test data: x by gr (1, 2) Z = 2.2877, p-value = 0.02216 alternative hypothesis: true ratio of scales is not equal to 1 Точное распределение > pvalue(klotz_test(x ~ gr, data = set,distribution='exact')) [1] 0.01515152 Застрелицца можно. Цитата Посмотрел, откуда брал формулы для Клотца: Hajek J., Sidak Z., Sen P.K. Theory of rank tests. - New York, NY: Academic Press, 1999. (есть русский перевод более раннего издания) и Conover W.J. Practical nonparametric statistics. - New York, NY: John Wiley & Sons, 1999. Да, в старом издании формулы тоже правильные. Я их и программировал, да только уже и забыл. Сообщение отредактировал 100$ - 2.02.2023 - 01:36 |
|
|
![]() |
![]() |
Игорь Критерий Коновера 27.01.2023 - 12:46
100$ Для дисперсионного комплекса InsectSprays (тестов... 27.01.2023 - 16:11
Игорь Дико извиняюсь - возможно, неточно выразился. В да... 27.01.2023 - 17:20
100$ Цитата(Игорь @ 27.01.2023 - 17:20) Д... 27.01.2023 - 23:25
nokh У меня есть архивы со StatXact (пиратка 6-ой верси... 27.01.2023 - 23:36
Игорь Вот пара примеров, где результаты "гуляют... 28.01.2023 - 09:29
100$ Цитата(Игорь @ 28.01.2023 - 09:29) П... 1.02.2023 - 16:25
100$ Для тестового примера NCSS дает p-value=.019947 (с... 31.01.2023 - 18:17
Игорь Вернее всего, так. Программы, скорее всего, считаю... 31.01.2023 - 20:35
100$ Цитата(Игорь @ 31.01.2023 - 20:35) Н... 31.01.2023 - 22:27
nokh Критерий Коновера реализован исключительно точно, ... 1.02.2023 - 00:31
Игорь Спасибо большое. Без сравнения с другими программа... 1.02.2023 - 07:28
100$ ЦитатаОбнаружилась проблема, имеющая отдаленное от... 1.02.2023 - 12:31
Игорь Это круто - пять вариантов, и все разные.
Нашел ... 2.02.2023 - 17:37
100$ Цитата(Игорь @ 2.02.2023 - 17:37) На... 2.02.2023 - 22:45
Игорь Цитата(100$ @ 2.02.2023 - 22:45... 3.02.2023 - 10:23
100$ Цитата(Игорь @ 3.02.2023 - 10:23) Ес... 4.02.2023 - 14:44![]() ![]() |