inst/indexing.R

In software-analytics/Rnalytica: An R package of JIRA defect datasets and tool suites for explainable software analytics

library(e1071)
library(foreign)
library(reshape)
source("R/loadDefectDataset.R")

indexing <- function(){
    
    getSystemName <- function(data) {sapply(strsplit(basename(data),"\\."), function(x) paste(x[1:(length(x)-1)], collapse="."))}
    
    index <- list(
        "jira" = getSystemName(list.files("inst/extdata/jira")),
        "mccabe" = getSystemName(list.files("inst/extdata/terapromise/mccabe")),
        "ck" = getSystemName(list.files("inst/extdata/terapromise/ck")),
        "eclipse" = getSystemName(list.files("inst/extdata/zimmermann")),
        "kim" = getSystemName(list.files("inst/extdata/kim")) ,
        "ambros" = getSystemName(list.files("inst/extdata/ambros"))
    )
    
    index <- melt(index)
    colnames(index) <- c("system","corpus")
    properties <- NULL
    for(system in index$system){
        print(system)
        pool <- loadDefectDataset(system=system,corpus=index[index$system==system,]$corpus)
        data <- pool[["data"]]
        dep <- pool[["dep"]]
        indep <- pool[["indep"]]
        ratio <- as.numeric(table(data[,dep])[2]/length(data[,dep])*100)
        obs <- as.numeric(dim(data)[1])
        properties <- rbind(properties, c("DefectiveRatio"=ratio, 
                                          "Modules"=obs, 
                                          "Defective"=table(data[,dep])[2], 
                                          "Predictors"=length(indep), 
                                          "EPV"=table(data[,dep])[2]/length(indep)
        ))
    }
    return(cbind(index,data.frame(properties)))
}

listDataset <- indexing()
colnames(listDataset) <- c("system","corpus","DefectiveRatio","Modules","Defective","Predictors","EPV")
save(listDataset,file="data/listDataset.rda")