R/plot-and-jitter.R

In Laboratorio-de-Pedometria/spsann-package: Optimization of Spatial Samples via Simulated Annealing

# Generated by autofun (0.0.0.9000): do not edit by hand!!!
# Please edit source code in spsann-package/R-autofun/plot-and-jitter.R
.plot_and_jitter<-function(...){
expression(if (plotit && pedometrics::isNumint(k / 10)) {
  .spSANNplot(
    energy0 = energy0, energies = energies, k = k, boundary = boundary, new_conf = new_conf[, 2:3],
    # acceptance = acceptance, accept_probs = accept_probs,
    # wp = wp,
    conf0 = conf0[, 2:3], y_max0 = y_max0, y.max = y.max, x_max0 = x_max0, x.max = x.max,
    best.energy = best_energy, best.k = best_k, MOOP = MOOP)
}, new_conf <-
  spJitter(
    points = old_conf, candi = candi, x.max = x.max, x.min = x.min, y.max = y.max, y.min = y.min,
    cellsize = cellsize, which.point = wp, verbose = verbose))
}