marcelcosta/chromatoR
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Inici de correcció de posició.

Browse Source
This commit is contained in:
marcelcosta
2022-07-08 16:39:04 +02:00
parent efc0804b45
commit 8e02689e42
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
chromatoR/app.R
+4 -2
View File
@@ -249,9 +249,11 @@ server <- function(input, output) {
max<-min+width max<-min+width
let<-obj_ab@primarySeq %>% as.character %>% strsplit("") let<-obj_ab@primarySeq %>% as.character %>% strsplit("")
picks_x<-apply(obj_ab@peakPosMatrix, 1, max, na.rm=T) ## He de trobar els dos T en una fila
picks_x<-unlist(t(obj_ab@peakPosMatrix))[apply(obj_ab@peakAmpMatrix,1,function(x) x == max(x,na.rm=T)) %>%
as.list() %>% unlist()]
picks<-data.frame(rows=apply(obj_ab@peakPosMatrix, 1, max, na.rm=T), Base=let[[1]], num=1:length(let[[1]])) %>% picks<-data.frame(rows=picks_x, Base=let[[1]], num=1:length(let[[1]])) %>%
filter(num >= min & num <= max) #%>% mutate(rows=rows-min) filter(num >= min & num <= max) #%>% mutate(rows=rows-min)
ranPeaks<-range(picks$rows) ranPeaks<-range(picks$rows)