Как извлечь выгоду из одного класса S4

Question

Возможно наивный вопрос:

>library("coin") 
> b <-independence_test(c(23,56,18) ~ c(1,3,2),teststat = "quad") 
> b 

    Asymptotic General Independence Test 

data: c(23, 56, 18) by c(1, 3, 2) 
chi-squared = 1.2772, df = 1, p-value = 0.2584 

Я пытался найти место, чтобы извлечь этот p-значение (0.2584), но не удалось. Пожалуйста помоги. Заранее спасибо.

Answer 1

Было сложно догадаться, но я всегда смотрю на структуру класса S4 с функцией str, а затем я ранил, что есть объект statictic и функция pvalue, доступная в объекте. Я искал print функции этого объекта, как вызывающему b эквивалентно назвать print(b), но я не мог найти

class(b) 
coin:::print.QuadTypeIndependenceTest 

Кстати окончательный ответ

b <-independence_test(c(23,56,18) ~ c(1,3,2),teststat = "quad") 
b 
str(b) 
b@distribution@pvalue(b@statistic@teststatistic) 

Также это может помочь сначала прочитайте виньетку https://cran.r-project.org/web/packages/coin/vignettes/coin_implementation.pdf