从R中的gam.check提取p值

Question

运行gam.check(my_spline_gam)时，得到以下输出。

Method: GCV   Optimizer: magic
Smoothing parameter selection converged after 9 iterations.
The RMS GCV score gradiant at convergence was 4.785628e-06 .
The Hessian was positive definite.
The estimated model rank was 25 (maximum possible: 25)
Model rank =  25 / 25 

Basis dimension (k) checking results. Low p-value (k-index<1) may
indicate that k is too low, especially if edf is close to k'.

         k'    edf k-index p-value
s(x) 24.000 22.098   0.849    0.06

我的问题是我是否可以将此p值分别提取到表中。

Answer 1

看起来您无法以正常方式将结果存储在对象中。您可以使用capture.output将控制台输出存储在一个对象中，然后再使用str_split获得正确的值。因此，对于帮助文件中的示例，它是：

library(mgcv)
set.seed(0)
dat <- gamSim(1,n=200)
b <- gam(y~s(x0)+s(x1)+s(x2)+s(x3),data=dat)
r <- capture.output(gam.check(b))
p <- strsplit(r[12], " ")[[1]][11]

但是因为p值只是一个字符串，所以您不会以这种方式获得确切的p值。

编辑：user20650的答案将为您提供正确的输出：

r <- k.check(b)
r[,'p-value']

Answer 2

使用capture.output并进行一些字符串操作-

gam_obj <- capture.output(gam.check(b,pch=19,cex=.3))
gam_tbl <- gam_obj[12:length(gam_obj)]
str_spl = function(x){
  p_value <- strsplit(x, " ")[[1]]
  output_p <- as.numeric(p_value[length(p_value)])
}
p_values <- data.frame(sapply(gam_tbl, str_spl))

输出