Anderson-Darlingテスト（リスト）の統計情報を抽出する

Question

Anderson-Darlingテスト（パッケージkSamplesのad.test）からp値を抽出したいと考えています。テスト結果は、2x3マトリックスを含む12のリストです。 p値は、2×3マトリックスの一部であり、次のコードを使用する場合

素子7で存在している：私は50の合計のAD試験結果の次の部分集合（第2の取得

lapply(AD_result, "[[", 7) 

を

[[1]] 
      AD T.AD asympt. P-value 
version 1: 1.72 0.94536   0.13169 
version 2: 1.51 0.66740   0.17461 

[[2]] 
       AD T.AD asympt. P-value 
version 1: 12.299 14.624  6.9248e-07 
version 2: 11.900 14.144  1.1146e-06 

私の質問は、（例えば、バージョン1から）のみp値を抽出し、ベクトル

str(AD_result)からの出力にこれらの50件の結果を置く方法である）に示します次のとおりです。

List of 55 
$ :List of 12 
    ..$ test.name : chr "Anderson-Darling" 
    ..$ k   : int 2 
    ..$ ns  : int [1:2] 103 2905 
    ..$ N   : int 3008 
    ..$ n.ties : int 2873 
    ..$ sig  : num 0.762 
    ..$ ad  : num [1:2, 1:3] 1.72 1.51 0.945 0.667 0.132 ... 
    .. ..- attr(*, "dimnames")=List of 2 
    .. .. ..$ : chr [1:2] "version 1:" "version 2:" 
    .. .. ..$ : chr [1:3] "AD" "T.AD" " asympt. P-value" 
    ..$ warning : logi FALSE 
    ..$ null.dist1: NULL 
    ..$ null.dist2: NULL 
    ..$ method : chr "asymptotic" 
    ..$ Nsim  : num 1 
    ..- attr(*, "class")= chr "kSamples" 

Answer 1

あなたが試みることができる：

unlist(lapply(AD_result, function(x) x$ad[,3]))