如何从一个 S4 中提取价值 class

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

我试图找到一个地方来提取这个 pValue (0.2584) 但失败了。请帮忙。提前致谢。

Answer 1

很难猜到，但我总是查看带有 str 函数的 S4 class 结构，然后我发现有测试静态和 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

如何从一个 S4 中提取价值 class

How to extract value from one S4 class

r

s4