use seq_len / seq_along

statgenlmu · Jan 28, 2017 · ede0afe · ede0afe
1 parent ea08e6b
commit ede0afe
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/model.R b/R/model.R
@@ -149,7 +149,7 @@ has_trios <- function(model) {
 
 
 get_snp_positions <- function(seg_sites, model, relative=TRUE) {
-  lapply(1:length(seg_sites), function(locus) {
+  lapply(seq_along(seg_sites), function(locus) {
     pos <- get_positions(seg_sites[[locus]])
     locus_length <- get_locus_length(model, locus, total = FALSE)
 

diff --git a/R/model_getters.R b/R/model_getters.R
@@ -58,7 +58,7 @@ get_parameter <- function(model) {
 get_locus_length <- function(model, locus = NULL, group = NULL, total = TRUE) {
   llm <- get_locus_length_matrix(model)
   if (is.null(locus) & is.null(group)) {
-    group <- 1:nrow(llm)
+    group <- seq_len(nrow(llm))
   }
 
   # Group and locus are identical for ilv models