{"role":"system","content":"You are a helpful assistant, supporting programming tasks in R."} {"role":"user","content":"the following R code could be further improved. Please refactor it. Make sure that the functionality is not changed at all. Return everything in one code block and do not return any explanations, only return the code. %s"}