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

Corregir el error con una sola secuencia.

Browse Source
This commit is contained in:
marcelcosta
2024-11-25 12:19:28 +01:00
parent 64a3245924
commit 9b48188ac2
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ONATRY-CIT/app.R
+2 -2
View File
@@ -126,7 +126,7 @@ server <- function(input, output) {
group_by(AA) %>% group_by(AA) %>%
mutate(Weight=Usage/max(Usage)) mutate(Weight=Usage/max(Usage))
Query_codons<-sapply(txtQuery, function(x) substring(x,seq(1,(nchar(x)-2),3), seq(3,nchar(x),3))) Query_codons<-lapply(txtQuery, function(x) substring(x,seq(1,(nchar(x)-2),3), seq(3,nchar(x),3)))
Query_CAI<-do.call(rbind, lapply(names(Query_codons), function(x){ Query_CAI<-do.call(rbind, lapply(names(Query_codons), function(x){
merge( merge(
@@ -157,7 +157,7 @@ server <- function(input, output) {
ggtitle("CAI along sequence")+ ggtitle("CAI along sequence")+
theme_gray(base_size = 15) theme_gray(base_size = 15)
AApos3<-sapply(txtQuery, function(x) strsplit(x, "")[[1]][seq(3, nchar(x), 3)]) AApos3<-lapply(txtQuery, function(x) strsplit(x, "")[[1]][seq(3, nchar(x), 3)])
GC3<-sapply(AApos3, function(x) 100*length(x[x %in% c("G","C")])/length(x)) GC3<-sapply(AApos3, function(x) 100*length(x[x %in% c("G","C")])/length(x))