l <- 1e-100 #lower bound
u <- 1e-20 #upper bound
h.range <- c(l,u) #define range
e.values <- c(1e-20,1e-40,1e-60,1e-80,1e-100) #some BLAST E-values
homologyScore(e.values,h.range)
Run the code above in your browser using DataLab