-1

分散分析と構築効果テーブルを実行した後、最小値でそれらの用語のテーブルのうち5つだけをキャプチャする必要があります。要因の長いリストのため; x1からx100までの約100の因子があるため、すべてのテーブルを視覚化することはできません。

model<-aov(y~., data=data)
effects<-model.tables(model, "effects")

任意の用語のテーブルのラベル名は

names(effects$tables$x1)
"1"      "2"

ラベル「2」の最小値を持つこれらの用語のテーブルのうち2つだけをキャプチャする必要があります。

編集された質問：

effects$tables[1:4]   
$x1
x1
      1           2 
-0.01099232  0.01053045 

$x2
x2
      1           2 
-0.03292931  0.03321318 

$x3
x3
     1          2 
0.2881996 -0.3008399 

$x4
x4
       1            2 
-0.010151743  0.009236422

上記の4つの表から2つの最小値のみを選択した場合、結果は-0.3008399および0.009236422になる可能性があります。

4

1 に答える 1

0

Perhaps: (untested in absence of reproducible example)

eff2 <- effects$tables$x1[['2']]
eff2[ order(eff2) ][1:5]

Or perhaps (still untested in conitnued absence of example)

efftabls <- sapply(eff2, '[', 2)
head( efftabls[order(efftabls)], 5)  # 5 used to be the number requested
于 2012-11-26T02:42:33.637 に答える