Displaying 1 result from an estimated 1 matches for "nasa_part_b1".
2009 Apr 21
1
Functions in lists or arrays?
...es, c("Nasa_PART_R1", "F"))
Nasa_PART_R1 <- function(f) {
f[,"CYCLOMATIC_COMPLEXITY"] > 8 &
f[,"CYCLOMATIC_COMPLEXITY"] <= 60 &
f[,"LOC_TOTAL"] > 73
}
Nasa_PART_Bounds <- rbind(Nasa_PART_Bounds, c("Nasa_PART_B1"))
Nasa_PART_B1 <- function(b) {
b["CYCLOMATIC_COMPLEXITY",0] <- 8
b["CYCLOMATIC_COMPLEXITY",1] <- 60
b["LOC_TOTAL",0] <- 73
}
#...
And then using something like this function:
# Dispatch a function from its name
dispatch <...