diff --git a/R/compare.R b/R/compare.R index cad0a775581296f4fce63e7183d4d0290d5b5c6d..3f3c618548848ce6ed717f535adada9b6e727c53 100644 --- a/R/compare.R +++ b/R/compare.R @@ -173,8 +173,10 @@ compareSCEs <- function(sces, point.size = 0.1, point.alpha = 0.1, theme_minimal() if (fits) { - mean.var <- mean.var + geom_smooth() - mean.zeros <- mean.zeros + geom_smooth() + mean.var <- mean.var + geom_smooth(method = "gam", + formula = y ~ s(x, bs = "cs")) + mean.zeros <- mean.zeros + geom_smooth(method = "gam", + formula = y ~ s(x, bs = "cs")) } comparison <- list(RowData = features, @@ -504,8 +506,10 @@ diffSCEs <- function(sces, ref, point.size = 0.1, point.alpha = 0.1, theme_minimal() if (fits) { - mean.var <- mean.var + geom_smooth() - mean.zeros <- mean.zeros + geom_smooth() + mean.var <- mean.var + geom_smooth(method = "gam", + formula = y ~ s(x, bs = "cs")) + mean.zeros <- mean.zeros + geom_smooth(method = "gam", + formula = y ~ s(x, bs = "cs")) } comparison <- list(Reference = ref.sce,