data <- matrix(c(122, 600-122, 44, 600-44),
               nrow = 2,
               byrow = TRUE,
               dimnames = list(Группа = c("Тестовая", "Контрольная"),
                               Результат = c("Сигнал", "Нет сигнала")))
result <- fisher.test(data)

print(paste("P-value:", result$p.value))
print(paste("Отношение шансов (OR):", result$estimate))
print("Доверительный интервал для OR:")
print(result$conf.int)