コードに小さな問題があります。これが私のコードのサンプルです。関数を実行すると、次の結果が得られます。また、raply()
fromplyr
パッケージを使用しており、この関数は出力をリスト配列として返します。私のコード
EmpPval<-function(dat,numberOfPermutations=100,usePlyr=TRUE)
{
if(usePlyr)
{
require(plyr)
}
if(usePlyr)
{
statistic <- raply(numberOfPermutations,permdat(dat)$statistic,.progress="tk")
browser()
}
else
{
statistic <- replicate(expr=permdat(dat)$statistic,n=numberOfPermutations,
simplify=TRUE)
}
}
>statistic #this is from one iteration
[1] 0.0409457
attr(,"numerator")
[1] 0.0007954759
attr(,"denominator")
[1] 0.01942758
私の結果には属性があります。今私の問題は、これらの値を変数にそのまま格納できず、次のように再度アクセスしたいことです。
s1<-attr(statistic,"numerator")
s2<-attr(statistic,"denominator")
はpermdat()
for ループ内で実行されます。したがって、このような値を 100 個生成し、100 個すべての統計値を属性とともに保存したいと考えています。私が今得ているのは次のようなものです:
>statistic ##this is after it runs in a loop
[1] 0.028793900 [2] 0.073739396 [3] 0.049136225 [4] 0.058408310 [5] 0.027253176 [6] 0.019471812 [7] 0.071434025 [8] 0.038411458 [9] 0.028921401 [10] 0.021929506..... The attribute values are not stored.
誰かがこれについて私を助けることができますか? 前もって感謝します。