R/restriction.distance.factor.R

In Hugemiler/ZedXL: Package for data analysis and restriction recovery (selection) via processing of topological analysis files and similarity analysis files

restriction.distance.factor <- function(restrictionVector) {

  restrictionVector <- gsub("CB", "", restrictionVector)
  primaryDistance <- sapply(restrictionVector, function(x) { eval(parse(text=x))})
  primaryDistance < abs(primaryDistance)

  rdf <- (primaryDistance/(sum(primaryDistance) / length(primaryDistance)) - 1)

  return(rdf)

}