Displaying 3 results from an estimated 3 matches for "letterwrap".
2016 Jan 25
4
Corregir mismo ID para individuos diferentes en una serie temporal
...atabase$ID_original,database$Month_Capt,IDcond=NA,new_ID=NA)for(i in unique(database$ID_original)){ new_df[new_df[,1]==i,3]<-newID[[which(unique(database$ID_original)==i)]]}ltrs<-c(LETTERS,apply(combn(LETTERS,2,simplify = T),2,function(x) paste(x,sep = "",collapse = "")))
letterwrap <- function(n, depth = 1) { args <- lapply(1:depth, FUN = function(x) return(LETTERS)) x <- do.call(expand.grid, args = list(args, stringsAsFactors = F)) x <- x[, rev(names(x)), drop = F] x <- do.call(paste0, x) if (n <= length(x)) return(x[1:n]) return(c(x, letterwrap(n - l...
2016 Jan 26
2
Corregir mismo ID para individuos diferentes en una serie temporal
...tabase$ID_original,database$Month_Capt,IDcond=NA,new_ID=NA)for(i in unique(database$ID_original)){ new_df[new_df[,1]==i,3]<-newID[[which(unique(database$ID_original)==i)]]}ltrs<-c(LETTERS,apply(combn(LETTERS,2,simplify = T),2,function(x) paste(x,sep = "",collapse = "")))
letterwrap <- function(n, depth = 1) { args <- lapply(1:depth, FUN = function(x) return(LETTERS)) x <- do.call(expand.grid, args = list(args, stringsAsFactors = F)) x <- x[, rev(names(x)), drop = F] x <- do.call(paste0, x) if (n <= length(x)) return(x[1:n]) return(c(x, letterwrap(n - l...
2016 Jan 26
2
Corregir mismo ID para individuos diferentes en una serie temporal
...Capt,IDcond=NA,new_ID=NA)for(i
>> in unique(database$ID_original)){
>> new_df[new_df[,1]==i,3]<-newID[[which(unique(database$ID_original)==i)]]}ltrs<-c(LETTERS,apply(combn(LETTERS,2,simplify
>> = T),2,function(x) paste(x,sep = "",collapse = "")))
>> letterwrap <- function(n, depth = 1) { args <- lapply(1:depth, FUN =
>> function(x) return(LETTERS)) x <- do.call(expand.grid, args = list(args,
>> stringsAsFactors = F)) x <- x[, rev(names(x)), drop = F] x <-
>> do.call(paste0, x) if (n <= length(x)) return(x[1:n]) r...