Test if input is numeric for shift parameter
test_input_shift(x)
x
input to be tested
error
library(agricolaeplotr) test_input_shift(0.5)