R/list2vecc.R

In relaimpo: Relative Importance of Regressors in Linear Models

"list2vecc" <-
function(liste)
{
    # function that creates vector with numerical elements of list
    # first element of list needs to be numeric

    # error control
## Wird die folgende Abfrage gebraucht ?
##    if (is.null(liste)) return(NULL)
##
##
##    else 
##    {

    if (!is.list(liste) || !is.character(liste[[1]])) 
    stop(" the argument for list2vecc needs to be a list with first element character.")
    ausgabe <- liste[[1]]
    if (length(liste) > 1)
    {
    for (a in 2:length(liste))
    {
    if (is.character(liste[[a]])) ausgabe<-c(ausgabe,as.character(liste[[a]]))
    }
    }
    return(ausgabe)
##   } ## falls die oben die vorgeschaltete if-Abfrage 
}