リストに関数をプロットして適用する方法

Question

私はプロットを取得し、メソッドのパラメータを最適化しようとしています。

ここで私は、私はここで私は私が20未満行

output<-matrix(,20,) 

を持って知っているので、その後、私は20行が、未知の列の空行列を作る、私が使用したパッケージおよび関連データ

をロード私はあなたが次の操作を行うことができます

iteration <- c(100, 200, 300, 400, 500) 

for (i in 1:length(fiedler2009subset)){ 
output[,i] <- estimateBaseline(fiedler2009subset[i], method="SNIP",iterations=100) 
} 

Answer 1

を行う方法がわからないこれは個々の繰り返し数との$ intenstityにestimateBaseline機能を適用したい：

output<-list() 
for (i in 1:length(fiedler2009subset)){ 
    output[[i]] <- estimateBaseline(fiedler2009subset[[i]], method="SNIP", iterations=100) 
    } 

outputがリストになりました。 lapplyすることができますそれぞれの素子を介してloop：

df <- do.call(cbind, output) 

編集：

あなたはこのような何かを行うことができますコメントしたら：

マトリックス/ data.frameとしても保存

lapply(output, head, 2) 
[[1]] 
     mass intensity 
[1,] 1000.015  3149 
[2,] 1000.117  3134 

[[2]] 
     mass intensity 
[1,] 1000.015 3709.00 
[2,] 1000.117 3701.75 

[[3]] 
     mass intensity 
[1,] 1000.015  3834 
[2,] 1000.117  3789 

output<-list() 
for (i in 1:length(fiedler2009subset)){ 
    tmp <- do.call(cbind, lapply(iteration, function(x) estimateBaseline(fiedler2009subset[[i]], method="SNIP", iterations= x))) 
    # clean up 
    rownames(tmp) <- tmp[, 1] 
    tmp <- tmp[, -seq(1, length(iteration)*2, by=2)] 
    colnames(tmp) <- paste0(colnames(tmp), "_", iteration) 
    output[[i]] <- tmp 
    }