search for: diff_vect

...lt;- sqrt( sqrt( d[,1]^2 + d[,2]^2) + d[,3]^2) # get the smallest difference vector i.closest <- head( soil[order(b), ], 1) res$input_row[i] <- i res$H[i] <- as.vector(unlist(i.closest[1])) res$V[i] <- as.vector(unlist(i.closest[2])) res$C[i] <- as.vector(unlist(i.closest[3])) res$diff_vect[i] <- min(b) } # summarize the conversions paste(res$input_row, res$H, res$V, res$C) Does this approach even make sense? thanks, dylan