Commit 05c26623 authored by Xavier Padullés's avatar Xavier Padullés

MIF. Added MeanError in legend

parent 0e8dddc6
......@@ -190,7 +190,8 @@ getDynamicsFromLoadCellFile <- function(inputFile, averageLength = 0.1, percentC
tfmax.raw = tfmax.raw,
rfd = rfd,
f.raw = originalTest$force, f.smoothed = f.smoothed, f.fitted = f.fitted,
endTime = endTime))
endTime = endTime,
relativeError = relativeError))
}
drawDynamicsFromLoadCell <- function(
......@@ -597,6 +598,9 @@ drawDynamicsFromLoadCell <- function(
legendText = c(legendText, impulseLegend)
legendColor = c(legendColor, impulseColor)
}
legendText = c(legendText, paste("MeanError = ", round(dynamics$relativeError, digits = 2), " N", sep =""))
legendColor = c(legendColor, "red")
legend(x = xmax, y = dynamics$fmax.fitted/2, legend = legendText, xjust = 1, yjust = 0.1, text.col = legendColor)
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment