search for: nasa_part_b1

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 <...