wq_script function

Template for R script question