解釋從‘if’函數(shù)發(fā)出的“條件有長(zhǎng)度>1”警告我有一個(gè)數(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)并希望實(shí)現(xiàn)以下功能：w<-function(a){
if (a>0){
a/sum(a)
}
else 1}此函數(shù)希望檢查a大于0，如果是，則將每個(gè)元素除以總數(shù)之和。否則它應(yīng)該只記錄1。我收到以下警告信息： Warning message:
In if (a > 0) { :
the condition has length > 1 and only the first element will be used如何糾正這個(gè)函數(shù)？
3 回答
慕容708150
TA貢獻(xiàn)1831條經(jīng)驗(yàn) 獲得超4個(gè)贊
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
ibeautiful
TA貢獻(xiàn)1993條經(jīng)驗(yàn) 獲得超6個(gè)贊
ififelse
w <- function(a){if (any(a>0)){
a/sum(a)}
else 1}ifelse(a > 0, a/sum(a), 1)
ifelsea.
POPMUISE
TA貢獻(xiàn)1765條經(jīng)驗(yàn) 獲得超5個(gè)贊
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 關(guān)注
- 1214 瀏覽
添加回答
舉報(bào)
0/150
提交
取消