- peA <- c(peA, ifelse(sum(vec) < 1e-8, NA, 1.0 - vecA[1]))
- peC <- c(peC, ifelse(sum(vec) < 1e-8, NA, 1.0 - vecC[2]))
- peG <- c(peG, ifelse(sum(vec) < 1e-8, NA, 1.0 - vecG[3]))
- peT <- c(peT, ifelse(sum(vec) < 1e-8, NA, 1.0 - vecT[4]))
+ peA <- c(peA, ifelse(sum(vec) < 1e-8, NA, (1.0 - vecA[1]) * 100))
+ peC <- c(peC, ifelse(sum(vec) < 1e-8, NA, (1.0 - vecC[2]) * 100))
+ peG <- c(peG, ifelse(sum(vec) < 1e-8, NA, (1.0 - vecG[3]) * 100))
+ peT <- c(peT, ifelse(sum(vec) < 1e-8, NA, (1.0 - vecT[4]) * 100))