diff --git a/src/emote-tk.R b/src/emote-tk.R
index d561a3f3f81328c155bf857836ec258395dae2c2..b2b297d107925d852b76fc20e8b70e46b4303e85 100644
--- a/src/emote-tk.R
+++ b/src/emote-tk.R
@@ -1367,8 +1367,8 @@ EMOTE_FFT = function(count_table = NULL,
       summarise(value = median(count_norm_sum), .groups = "drop")
     
     # Add 0 to missing positions
-    metaC_tot = tibble(reg = "start", start = feature_spaned_tb$start, strand = feature_spaned_tb$strand, width = q25+1, value = 0) %>% 
-      rbind(tibble(reg = "stop", start = feature_spaned_tb$start, strand = feature_spaned_tb$strand, width = q25+1, value = 0)) %>% 
+    metaC_tot = tibble(reg = "start", start = feature_spaned_tb$start, strand = feature_spaned_tb$strand, width = as.integer(q25+1), value = 0) %>% 
+      rbind(tibble(reg = "stop", start = feature_spaned_tb$start, strand = feature_spaned_tb$strand, width = as.integer(q25+1), value = 0)) %>% 
       uncount(width) %>%
       mutate(dist_to = c(rep(0:q25, nrow(feature_spaned_tb)),rep(-q25:0, nrow(feature_spaned_tb)) )) %>%
       anti_join(metaC, by = c("start","strand","reg","dist_to")) %>% rbind(metaC) %>%