prev <- c(no.cmpt = 2, eta.vc = 1)
orig <- c(no.cmpt = 3, eta.vc = 1) # original neighbor
new <- c(no.cmpt = 3, eta.vc = 0) # validated neighbor (extra fix)
detect_move(prev, new, original_neighbor = orig)
Run the code above in your browser using DataLab