wq_command function

Template for R command question