R/plot-and-jitter.R

In spsann: Optimization of Sample Configurations using Spatial Simulated Annealing

# Generated by autofun (0.0.0.9000): do not edit by hand!!!
# Please edit source code in 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,
  #finite = finite,
  cellsize = cellsize, which.point = wp))
}