R/reconstruct.R

reconstruct <-
function(abun.vec){
    
    len.abun<-length(abun.vec)
    numVec<-c(1:len.abun)
    finraw<-numeric()
    
    for(i in 1:length(numVec)){
        
        temp<-rep(numVec[i],abun.vec[i])
        finraw<-c(finraw,temp)
        
    }
    
    return(finraw)
}
eritema/inseqDiv documentation built on May 16, 2019, 8:48 a.m.