Merge pull request #55 from healx/inf_var_drop

Update differentialabundance_report.Rmd
nf-core · Jan 26, 2023 · 5bef8f9 · 5bef8f9
2 parents a752194 + 7fbde43
commit 5bef8f9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/assets/differentialabundance_report.Rmd b/assets/differentialabundance_report.Rmd
@@ -273,7 +273,7 @@ pca_datas <- lapply(names(assay_data), function(assay_type){
 })
 names(pca_datas) <- names(assay_data)
 
-pca_vs_meta <- anova_pca_metadata(pca_datas[['variance_stabilised']]$coords, observations[,informative_variables], pca_datas[['variance_stabilised']]$percentVar)
+pca_vs_meta <- anova_pca_metadata(pca_datas[['variance_stabilised']]$coords, observations[,informative_variables, drop = FALSE], pca_datas[['variance_stabilised']]$percentVar)
 
 # Show the variable with the tightest PC associations first
 informative_variables <- rownames(pca_vs_meta)[order(pca_vs_meta[,1])]