R/grep_leading.R

In miceadds: Some Additional Multiple Imputation Functions, Especially for 'mice'

Defines functions grep_leading

Documented in grep_leading

## File Name: grep_leading.R
## File Version: 0.06


grep_leading <- function( pattern, x, value=FALSE )
{
    ind <- which( substring( x, 1, nchar(pattern) )==pattern )
    if (value){
        ind <- x[ind]
    }
    return(ind)
}

Try the miceadds package in your browser