Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/66.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 序列的奇性行为_R_Conditional_Sequence_Operator Keyword - Fatal编程技术网

R 序列的奇性行为

R 序列的奇性行为,r,conditional,sequence,operator-keyword,R,Conditional,Sequence,Operator Keyword,我在一个简单的情况下遇到了一些非常不寻常的结果,我真的需要其他人在他们的机器上运行这个来进行一次理智检查。代码如下: mySEQ <- seq(0.1, 1.0, by = 0.1) for (s in c(0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1.0)) { print((s + .1) %in% mySEQ) } mySEQ[3] == 0.3 mySEQ-mySEQ for(c中的s(0.1,0.2,0.3,0.4,0.5,0.6

我在一个简单的情况下遇到了一些非常不寻常的结果,我真的需要其他人在他们的机器上运行这个来进行一次理智检查。代码如下:

mySEQ <- seq(0.1, 1.0, by = 0.1)
for (s in c(0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1.0)) { print((s + .1) %in% mySEQ) }
mySEQ[3] == 0.3
mySEQ-mySEQ for(c中的s(0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0)){print(s%in%mySEQ)}
[1] 真的
[1] 真的
[1] 假的
[1] 真的
[1] 真的
[1] 真的
[1] 假的
[1] 真的
[1] 真的
[1] 真的
>mySEQ[3]==0.3
[1] 假的
>mySEQ[3]
[1] 0.3

我完全搞不懂为什么他们没有全部打印出来。好像0.3和0.7有问题。我更新了R和我所有的软件包,但只需要其他人来运行这个来检查是否只有我。它似乎与
seq
函数有关。谢谢。

这与R中如何处理浮点数有关。有关详细信息,请阅读“R地狱”的第一章:


要回答示例中的问题,请使用
all.equal
检查浮点数的相等性,而不是
=

这与在R中如何处理浮点数有关。有关详细信息,请阅读“R地狱”的第一章:


要回答示例中的问题,请使用
all.equal
检查浮点数的相等性,而不是
=

有趣的东西。谢谢有趣的东西。谢谢
> mySEQ <- seq(0.1, 1.0, by = 0.1)
> for (s in c(0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1.0)) { print(s %in% mySEQ) }
[1] TRUE
[1] TRUE
[1] FALSE
[1] TRUE
[1] TRUE
[1] TRUE
[1] FALSE
[1] TRUE
[1] TRUE
[1] TRUE
> mySEQ[3] == 0.3
[1] FALSE
> mySEQ[3]
[1] 0.3