marcelcosta/ONATRY-CIT
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Corregir bug cuando no hay uno de los aminoacidos los codones daban NaN.

Browse Source
This commit is contained in:
Marcel
2026-03-31 15:10:06 +02:00
parent 9b48188ac2
commit cb31cf7ec6
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ONATRY-CIT/app.R
+1
View File
@@ -84,6 +84,7 @@ server <- function(input, output) {
merge(list2data(CodRef, "AA","codon")) %>% merge(list2data(CodRef, "AA","codon")) %>%
group_by(AA) %>% group_by(AA) %>%
mutate(across(all_of(names(txtQuery)), function(x) x=x/sum(x))) %>% mutate(across(all_of(names(txtQuery)), function(x) x=x/sum(x))) %>%
mutate(across(all_of(names(txtQuery)), ~ case_when(is.na(.) ~ 0, T~.) )) %>%
ungroup() ungroup()
pca_ref<-read.table("../Scripts/pca_HAdV5_EGFP_MONO_EMM_BH_VCN_APIS_MOD_PDT_ADAPT_Tox.txt",sep="\t", dec = ",", header = T) pca_ref<-read.table("../Scripts/pca_HAdV5_EGFP_MONO_EMM_BH_VCN_APIS_MOD_PDT_ADAPT_Tox.txt",sep="\t", dec = ",", header = T)