R语言作循环运算时报错 Haggu，该怎么调试，，

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

RT
总是报错Haggu！！
这是什么原因，，

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言 是什么原因

代码如下
library(sp)
library(maptools)
library(spatstat)
library(ads)

setwd("E:\\asd100new")

fixstr<-"E:\\lysclip100result\\"
fixstr2<-".shp"

fixstr3<-"E:\\clip100\\"

for (i in 17:606){
   Y=1
  filename1<- paste(fixstr,i,fixstr2,sep="")
  filename2<- paste(fixstr3,i,fixstr2,sep="")
  
  tryCatch({B<-readShapePoints(filename1,verbose=TRUE,repair=TRUE)
            C<-readShapePoly(filename2,repair=TRUE)
            CC<-as(C,"SpatialPolygons")
            W<-as(CC,"owin")
            ppc<-ppp(B$coords.x1,B$coords.x2,window=W)
            PP<-ppp2spp(ppc)
            Y <- kfun(PP,4000,90,nsim=99,prec=0.01,alpha=0.1)},error=function(err){})
  
  
  jpeg(file=paste(i,".jpeg",sep=""))
  plot(Y,main=i)
  
  dev.off()
                 }