求助：如何忽略循环中的错误

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

小弟最近在写一个Ｒ程序，由于中间涉及到阶乘，一旦数字太大就无法进行下去，所以程序在运行中总会不时报错，导致的结果就是循环总是到一半就停了。
由于期间牵涉到各种复杂的函数，小弟暂时还没想到一个好的修正方法。

所以想请教各位大神，R中有没有方法可以忽略循环中的错误，可以做到，例如，停止出错的这次循环跳到下一次。
我想做到如下：
for(i in 1: n)
{
  x[i] <- func(x[i],...)
  if(error occurs)
    next
}
或者说存不存在一个可以指示程序错误的函数，像一个示性函数一样？

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：修正方法 没想到 For 有没有 如何 程序

暂时不知道
不过如果说是数溢出，可以将值赋予a，if(a=="Inf")  next

这是一个忽略矩阵求逆中出现错误的简单例子。根据你的情况改一下。

1. count <- 0
   
2. inverses <- vector(mode = "list", 100)
   
3. repeat {
   
4.   if (count == 100) break
   
5.   count <- count + 1
   
6.   x <- matrix(sample(0:2, 4, replace = T), 2, 2)
   
7.   x.inv <- try(solve(x), silent=TRUE)
   
8.   if ('try-error' %in% class(x.inv)) next
   
9.   else inverses[[count]] <- x.inv
   
10. }

复制代码

qoiqpwqr 发表于 2014-1-11 00:46
这是一个忽略矩阵求逆中出现错误的简单例子。根据你的情况改一下。

我用了你的例子，程序运行很好，非常感谢！

zs2k 发表于 2014-1-11 14:28
我用了你的例子，程序运行很好，非常感谢！

qoiqpwqr 发表于 2014-1-11 00:46
这是一个忽略矩阵求逆中出现错误的简单例子。根据你的情况改一下。

学习了

try(expr,silenct=TRUE)   的确。。

qoiqpwqr 发表于 2014-1-11 00:46
这是一个忽略矩阵求逆中出现错误的简单例子。根据你的情况改一下。

学习学习

qoiqpwqr 发表于 2014-1-11 00:46
这是一个忽略矩阵求逆中出现错误的简单例子。根据你的情况改一下。

您好！
我用这段代码仿写的就有问题，我的目的是批量下载网上的文件，但是链接有一部分是错误的，所以我把没有下载成功的文件名存为csv文件，保存在temp目录下
请您帮我看一下
my.list1 <-readLines("rtest1.txt")   这是30个下载地址
my.list2 <-readLines("rtest2.txt")   这是30个我要下载的文件的文件名
for (i in 1:30) {
aa <- paste(my.list2,".csv",sep="")
bb <-paste("e:\temp\", aa)
x <-try(download.file(my.list1, aa), silent=TRUE)
if ('try-error' %in% class(x)) next write.csv(my.list2, file = bb)
else download.file(my.list1, aa)
}