Evgueni Parilov wrote:
Time to time, rmh.default fails to simulate a "lookup"-type process on a statement:
if(all.equal(diff(r),rep(deltar,nlook-1))) { equisp <- 1 par <- c(beta,nlook,equisp,deltar,rmax,h) } else { equisp <- 0 par <- c(beta,nlook,equisp,deltar,rmax,h,r) }
According to the manual, all.equal should not be used in if-statement directly. This works:
identical(all.equal(diff(r), rep(deltar, nlook - 1)),TRUE)
Evgueni
According to library(help = spatstat), Adrian Baddeley <[EMAIL PROTECTED]> (in CC) is maintainer of the spatstat package - and therefore the right addressee of this message.
Uwe Ligges
______________________________________________ [EMAIL PROTECTED] mailing list https://www.stat.math.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html