解釋從‘if’函數(shù)發(fā)出的“條件有長度>1”警告我有一個數(shù)組：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)并希望實現(xiàn)以下功能：w<-function(a){
if (a>0){
a/sum(a)
}
else 1}此函數(shù)希望檢查a大于0，如果是，則將每個元素除以總數(shù)之和。否則它應該只記錄1。我收到以下警告信息： Warning message:
In if (a > 0) { :
the condition has length > 1 and only the first element will be used如何糾正這個函數(shù)？
3 回答
人到中年有點甜
TA貢獻1895條經(jīng)驗 獲得超7個贊
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
慕田峪4524236
TA貢獻1875條經(jīng)驗 獲得超5個贊
ififelse
w <- function(a){if (any(a>0)){
a/sum(a)}
else 1}ifelse(a > 0, a/sum(a), 1)
ifelsea.
嚕嚕噠
TA貢獻1784條經(jīng)驗 獲得超7個贊
ifelse:
(a/sum(a))^(a>0)
a <- c(0, 1, 0, 0, 1, 1, 0, 1)(a/sum(a))^(a>0)[1] 1.00 0.25 1.00 1.00 0.25 0.25 1.00 0.25
- 3 回答
- 0 關注
- 1154 瀏覽
添加回答
舉報
0/150
提交
取消