modificare/FDP_Start.R at master · Coveros/modificare · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
# FDP_Start.R
#
# Sourcing this file will add several functions to the environment
# that can be used to load libraries and functions.

# Loads all of the prioritization algorithms.
zTryReload <- function()
{
    zLoadFit()
    zLoadRand()
    zLoadHC()
    zLoadSANN()
    zLoadGA()
    zLoadART()
    zLoadGRD()
}

# Loads the libraries, fitness calculator, synthetic report generator,
# and prioritization algorithms.
zLoadFaultExperiment <- function()
{
    zLoadFaultLibraries()
    zLoadFit()
    zLoadRand()
    zLoadHC()
    zLoadSANN()
    zLoadGA()
    zLoadART()
    zLoadGRD()
}

# Loads the fault localization algorithms.
zLoadFaultLocalizationExperiment <- function()
{
    zLoadTarantula()
    zLoadSimpleMatching()
    zLoadJaccard()
    zLoadOchiai()
    source("src/FaultLocalization/AFL_Common.R")
}

# Loads libraries and the prioritization algorithms.
zLoadFaultLibraries <- function()
{
    library(plyr)
    library(snowfall)
    library(snow)
    library(doMC)
    library(gtools)

    zTryReload()
}

# Load the fitness function and the synthetic report generator.
zLoadFit <- function()
{
    source("src/Fitness/FDP_Fit.R")
    source("src/GenerateSynthetic.R")
    source("src/FaultLocalization/AFL_Metrics.R")
}

# Load the random prioritization algorithm.
zLoadRand <- function()
{
    source("src/Random/FDP_Rand.R")
}

# Load the hill climbing prioritization algorithm.
zLoadHC <- function()
{
    source("src/HillClimbing/FDP_HC.R")
    source("src/HillClimbing/FDP_HC_NG.R")
}

# Load the simulated annealing prioritization algorithm.
zLoadSANN <- function()
{
    source("src/Sann/FDP_SA.R")
    source("src/Sann/FDP_SA_NF.R")
    source("src/Sann/FDP_SA_CF.R")
    source("src/Sann/FDP_SA_AF.R")
}

# Load the genetic algorithm prioritization algorithm.
zLoadGA <- function()
{
    source("src/Genetic/FDP_GA.R")
    source("src/Genetic/FDP_GA_CrossOps.R")
    source("src/Genetic/FDP_GA_MutOps.R")
    source("src/Genetic/FDP_GA_SelOps.R")
    source("src/Genetic/FDP_GA_TransOps.R")
    source("src/FDP_Termination.R")
}

# Load the adaptive random prioritization algorithm.
zLoadART <- function()
{
    source("src/AdaptiveRandom/FDP_ART.R")
}

# Load the greedy prioritization algorithm.
zLoadGRD <- function()
{
    source("src/Greedy/FDP_GRD.R")
}

# Loads functions for creating clusters of computers.
zLoadCluster <- function()
{
    source("src/exp/DistExp.R")
}

zLoadTarantula <- function()
{
    source("src/FaultLocalization/AFL_Tarantula.R")
}

zLoadSimpleMatching <- function()
{
    source("src/FaultLocalization/AFL_SimpleMatching.R")
}

zLoadJaccard <- function()
{
    source("src/FaultLocalization/AFL_Jaccard.R")
}

zLoadOchiai <- function()
{
    source("src/FaultLocalization/AFL_Ochiai.R")
}

zLoadProduceOrderingReductionDataFile <- function()
{
    source("src/ProduceOrderingReductionDataFile.R")
}