R/add.lead.R

In alexanderrobitzsch/TAM: Test Analysis Modules

Defines functions add.lead

Documented in add.lead

## File Name: add.lead.R
## File Version: 0.05

add.lead <- function(x, width=max(nchar(x)))
{
    sprintf(paste('%0', width, 'i', sep=''), x)
}