R-squared

This line of code:
https://github.com/YosefLab/scone/blob/e2436a33f6121ec36c1a6ba13906379dbf894559/R/scone_eval.R#L319

could be more easily written as:
```{r}
summary(lm(y ~ qc_factors))$r.squared
```