# \donttest{
ssdata <- dataCorrection(ssexamplefadata, blankgroup="Blank")
ssdata <- synthesisAnalysis(ssdata, R2Thr = 0.95, maxiter = 1e3,
maxconvergence = 100, startpoints = 5)
# }
if (FALSE) {
fadata <- dataCorrection(examplefadata, blankgroup = "Blank")
fadata <- synthesisAnalysis(fadata, R2Thr = 0.95, maxiter = 1e3,
maxconvergence = 100, startpoints = 5)
# If inhibitors have been used, make sure D2 has not been underestimated. If so,
# D2 could be set as the one calculated for 13-Glc Control samples to improve
# the results:
# D2 <- fadata$synthesis$results$D2[fadata$synthesis$results$FA == "FA(16:0)"]
# fadata$synthesis$results$Group[fadata$synthesis$results$FA == "FA(16:0)"]
# D2[4:12] <- rep(mean(D2[1:3]))
# relaunch synthesis analysis fixing D2
# fadata <- synthesisAnalysis(fadata, R2Thr = 0.95, maxiter = 1e3,
# maxconvergence = 100, startpoints = 5, D2 = D2)
}
Run the code above in your browser using DataLab