=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== r-cran-spatstat-1.64-1/tests/testsEtoF.R-361-# By contrast if r = 0.1 there are values differing from 0.1 by 3e-17 r-cran-spatstat-1.64-1/tests/testsEtoF.R:362: a <- pairsat.family$eval(X,U,EP,G$pot,G$par,"border") r-cran-spatstat-1.64-1/tests/testsEtoF.R:363: b <- G$fasteval(X,U,EP,G$pot,G$par,"border") r-cran-spatstat-1.64-1/tests/testsEtoF.R-364- if(!all(a==b)) ############################################## r-cran-spatstat-1.64-1/tests/testsEtoF.R-369- G <- Geyer(0.11, 2.5) r-cran-spatstat-1.64-1/tests/testsEtoF.R:370: a <- pairsat.family$eval(X,U,EP,G$pot,G$par,"border") r-cran-spatstat-1.64-1/tests/testsEtoF.R:371: b <- G$fasteval(X,U,EP,G$pot,G$par,"border") r-cran-spatstat-1.64-1/tests/testsEtoF.R-372- if(!all(a==b)) ############################################## r-cran-spatstat-1.64-1/tests/testsEtoF.R-376- G <- Geyer(0.11, 0.5) r-cran-spatstat-1.64-1/tests/testsEtoF.R:377: a <- pairsat.family$eval(X,U,EP,G$pot,G$par,"border") r-cran-spatstat-1.64-1/tests/testsEtoF.R:378: b <- G$fasteval(X,U,EP,G$pot,G$par,"border") r-cran-spatstat-1.64-1/tests/testsEtoF.R-379- if(!all(a==b)) ############################################## r-cran-spatstat-1.64-1/R/vblogistic.R-210- if (!is.null(object$call$offset)) r-cran-spatstat-1.64-1/R/vblogistic.R:211: offset <- offset + eval(object$call$offset, newdata) r-cran-spatstat-1.64-1/R/vblogistic.R-212- #' predict using probit approximation to logit-function ############################################## r-cran-spatstat-1.64-1/R/psp.R-564- verifyclass(x, "psp") r-cran-spatstat-1.64-1/R/psp.R:565: xm <- eval(expression((x0+x1)/2), envir=x$ends) r-cran-spatstat-1.64-1/R/psp.R:566: ym <- eval(expression((y0+y1)/2), envir=x$ends) r-cran-spatstat-1.64-1/R/psp.R-567- win <- x$window ############################################## r-cran-spatstat-1.64-1/R/psp.R-578- verifyclass(x, "psp") r-cran-spatstat-1.64-1/R/psp.R:579: lengths2 <- eval(expression((x1-x0)^2 + (y1-y0)^2), envir=x$ends) r-cran-spatstat-1.64-1/R/psp.R-580- return(if(squared) lengths2 else sqrt(lengths2)) ############################################## r-cran-spatstat-1.64-1/R/psp.R-584- verifyclass(x, "psp") r-cran-spatstat-1.64-1/R/psp.R:585: a <- eval(expression(atan2(y1-y0, x1-x0)), envir=x$ends) r-cran-spatstat-1.64-1/R/psp.R-586- if(!directed) ############################################## r-cran-spatstat-1.64-1/R/ppmclass.R-808- if(!missing(subset)) { r-cran-spatstat-1.64-1/R/ppmclass.R:809: ok <- eval(substitute(subset), envir=bt$glmdata) r-cran-spatstat-1.64-1/R/ppmclass.R-810- mm <- mm[ok, , drop=FALSE] ############################################## r-cran-spatstat-1.64-1/R/quadclass.R-181- # return matrix E such that E[i,j] = (X[i] == U[j]) r-cran-spatstat-1.64-1/R/quadclass.R:182: # where X = Q$data and U = union.quad(Q) r-cran-spatstat-1.64-1/R/quadclass.R-183- n <- Q$data$n ############################################## r-cran-spatstat-1.64-1/R/quadclass.R-197- # X[E[i,1]] == U[E[i,2]] for all i r-cran-spatstat-1.64-1/R/quadclass.R:198: # where X = Q$data and U = union.quad(Q) r-cran-spatstat-1.64-1/R/quadclass.R-199- n <- Q$data$n ############################################## r-cran-spatstat-1.64-1/R/update.ppm.R-114- ## uniform Poisson r-cran-spatstat-1.64-1/R/update.ppm.R:115: if(eval(call$rename.intercept) %orifnull% TRUE) { r-cran-spatstat-1.64-1/R/update.ppm.R-116- names(object$coef) <- "log(lambda)" ############################################## r-cran-spatstat-1.64-1/R/update.ppm.R-285- if(X.is.new && fixdummy && oldstyle && r-cran-spatstat-1.64-1/R/update.ppm.R:286: is.ppp(X <- eval(call$Q, as.list(envir), enclos=callframe)) && r-cran-spatstat-1.64-1/R/update.ppm.R-287- identical(Window(X), Window(data.ppm(object)))) { ############################################## r-cran-spatstat-1.64-1/R/vcov.ppm.R-1153- ## Eval. the interaction potential difference at all points (internal spatstat function): r-cran-spatstat-1.64-1/R/vcov.ppm.R:1154:# V1 <- fit$interaction$family$eval(Xplus, Xplus, E, fit$interaction$pot, fit$interaction$par, fit$correction) r-cran-spatstat-1.64-1/R/vcov.ppm.R-1155- oldopt <- NULL ############################################## r-cran-spatstat-1.64-1/R/vcov.ppm.R-1198- else{ r-cran-spatstat-1.64-1/R/vcov.ppm.R:1199: V2[-j,j,-(1:p1)] <- fit$interaction$family$eval(Xplus[-j], Xplus[-j], E, fit$interaction$pot, fit$interaction$par, fit$correction) r-cran-spatstat-1.64-1/R/vcov.ppm.R-1200- ## Q <- quadscheme(Xplus[-j],emptyppp) ############################################## r-cran-spatstat-1.64-1/R/ippm.R-194- old.callframe <- object$callframe r-cran-spatstat-1.64-1/R/ippm.R:195: Qold <- eval(old.call$Q, as.list(envir), enclos=old.callframe) r-cran-spatstat-1.64-1/R/ippm.R-196- argh <- list(...) ############################################## r-cran-spatstat-1.64-1/debian/tests/run-unit-test-4-if [ "$AUTOPKGTEST_TMP" = "" ] ; then r-cran-spatstat-1.64-1/debian/tests/run-unit-test:5: AUTOPKGTEST_TMP=`mktemp -d /tmp/${pkg}-test.XXXXXX` r-cran-spatstat-1.64-1/debian/tests/run-unit-test-6-fi