#plotLMA()
## The function is currently defined as
function (str = NULL, header = FALSE)
{
if (is.null(str)) {
mat <- fillData()
}
else {
mat <- fillCSVData(str, header)
}
mat <- calcWeights(mat)
mat <- averageSameXs(mat)
mat <- calcFX(mat)
mat <- calcFY(mat)
mat <- calcLOI(mat)
mat <- calcLMA(mat)
plotGraphs(mat)
return(mat)
}
Run the code above in your browser using DataLab