[解決済み] if` 関数の「condition has length > 1」警告を解釈する
2022-02-14 12:30:34
質問
配列があります。
a <- c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
で、以下のような関数を実装したい。
w<-function(a){
if (a>0){
a/sum(a)
}
else 1
}
この関数は
a
0より大きい場合は、各要素を合計値で割る。
そうでない場合は、1 を記録するだけです。
次のような警告メッセージが表示されるのですが。
Warning message:
In if (a > 0) { :
the condition has length > 1 and only the first element will be used
関数を修正するにはどうしたらよいですか?
どのように解決するのですか?
もしかしたら
ifelse
:
a <- c(1,1,1,1,0,0,0,0,2,2)
ifelse(a>0,a/sum(a),1)
[1] 0.125 0.125 0.125 0.125 1.000 1.000 1.000 1.000
[9] 0.250 0.250
関連
-
[解決済み】R: 複数行の ggplot2 コマンドで「単項演算子エラー」が発生する。
-
[解決済み】model.frame.defaultでのエラー:変数の長さが異なる
-
[解決済み】rbind エラー。"名前が以前の名前と一致しない"
-
[解決済み] テスト
-
[解決済み】エラー。Rの'break'の数が無効
-
[解決済み】RでKNN。trainとclassは長さが違う」?
-
[解決済み】 boxplotに色を追加する - "離散的なスケールに連続的な値が供給される "エラー
-
[解決済み] テスト
-
[解決済み】Rでmax.printの制限値を増やす方法
-
[解決済み] グループ化関数(tapply、by、aggregate)と*applyファミリ
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン
おすすめ
-
[解決済み】数学関数への非数値引数
-
[解決済み] 変数の型(リスト)が無効です
-
[解決済み】添え字付き代入でNAを使用することはできません
-
[解決済み】Rのメモリ管理/サイズn Mbのベクトルを割り当てられない
-
[解決済み] lmer エラー: グループ化係数は観測数未満でなければならない
-
[解決済み】Rはプロットするが、アブラインを描画しない
-
[解決済み】.External.graphics Rでエラーが発生しました。
-
[解決済み】行列式で「数値/複雑な行列/ベクトルの引数を必要とする」というエラーが発生する?
-
[解決済み】seq_alongはうまくいくが、seqが意図しない結果を生む例とは?
-
[解決済み】Rで「中断されたプロミスの評価を再開する」という警告を回避する