reconstruct: Supportive function for the pmdSamp
In eritema/inseqDiv: Diversity analysis of Viral Insertion site in Gene Therapy

Description Usage Arguments Details Examples

Supportive function for the pmdSamp function to convert the integration site data into base sampling data

1	reconstruct(abun.vec)

abun.vec

vector if untegration sites called by function pmdSamp

pmdSamp requires a function to convert the

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
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)
  }