Commit 8af093ef authored by Laura Denies's avatar Laura Denies
Browse files

Update PathoFact.R

parent 9689fc84
......@@ -24,7 +24,7 @@ colnames(AMR_MGE) <- c("GeneID","Gene_Name","Contig_Name","ARG_prediction","AMR_
Predictions_dfs<-list(Toxins, Virulence_factors, AMR_MGE)
PathoFact_predictions<-Reduce(full_join, Predictions_dfs)
PathoFact_predictions <- PathoFact_predictions[,c(1,7,8,3,2,4,5,6,9,10,11)]
PathoFact_predictions <- PathoFact_predictions %>% filter(GeneID != " NA")
write.csv(PathoFact_predictions, file=snakemake@output[[1]], row.names=FALSE)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment