BayesX (version 0.3-3)

getNumbers: Extract numbers from (BayesX log file) strings

Description

This is an internal helper function for extractSamples which extracts numbers from (BayesX log file) strings.

Usage

getNumbers(beforeStringsList, stringVector)

Value

Returns a list with the extracted numbers.

Arguments

beforeStringsList

The list with the strings standing before the numbers which shall be extracted.

stringVector

The vector of strings to be searched for the numbers.

Author

Daniel Sabanes Bove

Examples

## create a nice example
sampleStrings <- c("Second: 385",
                   "  First:  70000 ",                   
                   "asdfkf T: 24      ")

## test the function
extractedNumbers <- BayesX:::getNumbers(beforeStringsList=
                                        list(first="First:",
                                             second="Second:",
                                             third="T:"),
                                        stringVector=sampleStrings)

## and assert that the result is as expected
stopifnot(identical(extractedNumbers,
                    list(first=70000, second=385, third=24)))

## specific test
stopifnot(identical(BayesX:::getNumbers(beforeStringsList=
                                        list(Iterations = "Number of iterations:"),
                                        stringVector=
                                        "  Number of iterations: 70000 "),
                    list(Iterations=70000)))