comparison boxplot.r @ 52:e10dbc437d8f draft

Uploaded

51:bfd966f30073

    # loop through all columns
    for (key in names(columns)) {
        # load column data
        column <- as.numeric(columns[key])
        column_data <- sapply( table[column], as.numeric )

        # create hist data
        data <- boxplot(column_data, plot=FALSE)
        
        # collect vectors in list
        l <- append(l, list(data$stats))

52:e10dbc437d8f

    # loop through all columns
    for (key in names(columns)) {
        # load column data
        column <- as.numeric(columns[key])
        column_data <- suppressWarnings(as.numeric(as.character(table[column][[1]])))
    
        # create hist data
        data <- boxplot(column_data, plot=FALSE)
        
        # collect vectors in list
        l <- append(l, list(data$stats))