求助！为什么我的循环到0.45的时候就会少一个数，百思不得其解

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

i=0;set.seed(1234);x <- seq(-3,3,length = 1200);y <- dnorm(x,0,1)
while (i<1){
  z2=rep("1",i*200)
  z1=rep("0",(1200-i*200)/2)
  z3=rep("0",(1200-i*200)/2)
  z=c(z1,z2,z3)
  data <- data.frame(x=x,y=y,z=z)
  ggplot(data=data,mapping=aes(x=x,y=y))+geom_area(aes(fill=z))+geom_line()
  i=i+0.05
  print(list(length(z),i))
  Sys.sleep(5)
}

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：百思不得其解 seed see Set

应该是个bug， 用下面的代码可以对这个bug有个更全的展示：
i <- 0
while (i < 1){
  z2 <- rep("1",i*200)
  cat(length(z2), i, "\n")
  i <- i + 0.05
}
bug的原因应该是由于浮点数造成的，我也不确定，不过解决的方法很简单，总是用R风格的循环，而不是用C++风格的循环：
for(i in seq(0, 0.95, 0.05)) {
  z2 <- rep("1",i*200)
  cat(length(z2), i, "\n")
}