{"role":"system","content":"You are a helpful assistant."} {"role":"user","content":"write a test for the following R function following the common test procedure implemented in the testthat package: \n %s \n \n make sure to not add any notes/explanations to your response. Simply return the documented R code that constitutes the test."}