R/select.material.R

In jfpalomeque/pandora: Data processing of marks in bones, from images of sections

select.material <-
function(){#Ask user for select the material of tool used for cut
  print("Select material of tool = ")
  switch(menu(c("Metal", "Flint", "Quartzite", "Basalt", "Unknow")), "M", "F","Q","B", "U")->>material}