Skip to content

Commit

Permalink
Update merge_tax_and_abundance.R
Browse files Browse the repository at this point in the history
  • Loading branch information
WillNickols committed Dec 27, 2022
1 parent 79fcb29 commit 2ee7bb8
Showing 1 changed file with 0 additions and 4 deletions.
4 changes: 0 additions & 4 deletions assembly_tasks/merge_tax_and_abundance.R
Original file line number Diff line number Diff line change
Expand Up @@ -130,10 +130,6 @@ mapped_props <- as.data.frame(mapped_props)
mapped_props$prop <- as.numeric(as.character(mapped_props$prop))

for (ID in mapped_props$ID) {
if (mapped_props$prop[mapped_props$ID==ID] == 0 ) {
total_profile[,'new'] <- rep(0, nrow(total_profile))
colnames(total_profile)[colnames(total_profile)=="new"] <- ID
}
total_profile[,ID] <- total_profile[,ID] * mapped_props$prop[mapped_props$ID==ID]
total_profile[total_profile$Taxonomy=="UNKNOWN", ID] <- total_profile[total_profile$Taxonomy=="UNKNOWN", ID] +
100 * (1-mapped_props$prop[mapped_props$ID==ID])
Expand Down

0 comments on commit 2ee7bb8

Please sign in to comment.