在ifelse语句中sqrt函数的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位好，如下语句

1. x.values <- seq(-2, 2, by = 0.1)
   
2. x <- x.values
   
3. y.values <- ifelse(x <= 0, -x^3, ifelse(x <= 1, x^2, sqrt(x)))

复制代码

就会产生如下错误：

Warning message:In sqrt(x) : NaNs produced
如果使用

1. x.values <- seq(-2, 2, by = 0.1)
   
2. x <- x.values
   
3. y.values <- ifelse(x <= 0, -x^3, ifelse(x <= 1, x^2, (x)^(1/2)))

复制代码

就没有问题。

能否解释一下为什么，谢谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：else ELS LSE values value

有意思，同问。

ifelse语句 是向量化运算，看代码 rep(...)[...],
当 x < 0 时，sqrt(x) 会出现警告出现 NaN.
而 x^0.5， 会直接NaN, 不会警告。

在向量运算时，都进行计算， 取值时，只取逻辑是（那些NaN都值就替掉了）个人认为，欢迎补充。

过年来论坛打打酱油，
        烧五花肉了。。。

请参阅：http://www.dataguru.cn/article-2209-1.html。

谢谢楼上两位，新年快乐。

ifelse(x <=1, x^2, sqrt(x))
##or
ifelse(x <=1, x^2,x^0.5)

##那个ifelse语句可以表示为下面向量的形式
ans <- NULL ##or  ans <- x <=1
ans[x<=1] = rep(x^2,length.out=length(x<=1))[x<=1]
ans[!x<=1] = rep(x^0.5,length.out=length(x<=1))[!x<=1]
ans

##再看看 rep(x^0.5...当x<0,x^0.5有NaN,不警告， 而sqrt(x),会警告,本质没有区别。
rep(x^0.5,lenght.out=length(x<=1))
##or
rep(sqrt(x),length.out=length(x<=1))

###具体看 ifesle 代码。感觉ifelse 的效率不会比 常用的 if .. else...效率高。
###新年第一帖，认真图个吉利。大家马年吉祥。