lapply

1熱

3答えて

リスト内の特定の列を減算したい。私はまだapply関数を適切に使う方法を学んでいます。例えば、私は事前に > x(b) [[1]] X12.16 X3...2.6 <newcol> 1 12 6 6 2 13 9 4 3 14 12 2 4 15 15 0 5 16 18 -2 [[2]] X10.14 X2...1.5

1熱

3答えて

プロジェクト環境に格納されているすべての特定のオブジェクトに関数を呼び出すことはできますか？

私は愚かなことに、適切なコミットをせずに特定の問題を解決しようとしているRプロジェクトで、新しいdata_framesのロードを作成していました。すべての実用的な名前とギリシア文字のほとんどを見てきたので、私は今、 'bob'、 'might.work'、 'almostthere'のような名前のdata_frameオブジェクトでいっぱいの環境を持っています。私はループ関数（lapplyまたはそれ

0熱

1答えて

リモートエラー（val）のチェックでエラーが発生しました：5ノードがエラーを生成しました：オブジェクトが見つかりません

10倍交差検証を行い、並列処理（parLapply）を使用してジョイントモデルのモデル性能を評価しようとしています。イムは、私はエラーメッセージが表示される理由を見つけるしようとしている：は次のようにコードが見えます「checkForRemoteErrorsでエラーが発生しました（valは）：オブジェクトが見つからないウィーク '：5つのノードがエラーを生成」： # Validation us

0熱

2答えて

複数のデータテーブルの行を削除して元のデータテーブルに保存

複数のデータテーブルを一意のIDに対応するレコードにサブセット化する必要があります。類似のスレッドはhereとhereです。これらのソリューションは、私が別々に各データテーブルをプログラムすると機能しますが、私が持っているすべてのデータテーブルでコードを実行したいと思います。私のデータは、このようなものになります。 dt1 <- data.table(var1 = c("A", "B", "C"

1熱

1答えて

ディレクトリ内のすべてのファイルのn番目の列すべてをマージする

ディレクトリ内にタブで区切られた22のテキストファイルがあります。実際には、私はすべてのテキストファイルの6番目の列を必要とし、1つのファイルにそれらをマージします。私はこれらのコマンドを以下に書いています。 filenames = list.files() my.list = lapply(X = filenames, FUN = function(x) {read.table(x, sep

0熱

1答えて

lapplyとtrycatchからのNULL出力

forループをlapplyに置き換えてコードを高速化しようとしています。私は多くの異なるサンプルでnlsモデルを実行しており、coefsを抽出していますが、いくつかのサンプルはいくつかのモデルが収束していません。私はこれらのサンプルを無視するtrycatchのforループでこれを処理できますが、lapplyで動作するようにはできません。私がこれを実行すると、私はsample.codeとNULLのリ

0熱

1答えて

tabItemダッシュボードのforループまたはlapplyループで関数を作成する方法shiny

ShinyDashboardプログラムを作成していて、ダッシュボードのループを作成してMenuItemをキャッチする方法を見つける際にいくつか問題があります。これは私が修正しようとしているかの簡単な例です： library(shiny) library(shinyjs) library(shinydashboard) VecNames=c("A","B","C","D","E") ui

0熱

1答えて

リストのリストに沿った相関

L[[i]][[j]]はベクトルであるLというリストのリストを持っています。私が得たいものは：です。。。各 "初期リスト" L[[i]]、そのような相関関係を持つベクトルについて： (cor(L[[i]][[1]], L[[i]][[1]]) , cor(L[[i]][[1]], L[[i]][[2]]), . . ., cor(L[[i]][[1]], L[[i]][[10]]))

1熱

2答えて

lapply（）とmclapply（）の冗長処理を避けるバージョン

私は、引数リストXの一意の要素だけを処理するlapply()とmclapply()のバージョンを探しています。このようなものはすでに存在しますか？ EDIT：つまり、私はlapply()は、処理の重複を気にしないようにしたいが、私はlength(lapply(X, ...))はlength(X)を等しくする必要はなく、length(unique(X))（及び適切な値が一致します）。また、私はXの各

2熱

2答えて

適用ファミリを使用して新しい列を作成

私のデータフレームには文字列があります。私は自分自身で作成した関数を使って、既存の文字列から新しい列を作成したいと思います。 My機能 lat_finder <- function(coord){ return(as.numeric(substr(strsplit(coord,",")[[1]][1],2,10)))} テストデータフレーム私はこの test['Lat'] <- lapply