##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (IRdata, InvTimes, segments, fixed = TRUE, smoothMethod = c("Depth",
"PAWS"), bw = 5, TEScale = 100, dataScale = 1000, method = c("NLR",
"QL"), sigma = NULL, L = 1, maxR2star = 50, varest = c("RSS",
"data"), verbose = TRUE)
{
ergsFluid <- estimateIRfluid(IRdata, InvTimes, segments)
Sfluid <- median(ergsFluid$Sfluid)
Rfluid <- median(ergsFluid$Rfluid)
ergsBrain <- erstimateIRsolid(IRdata, InvTimes, segments,
Sfluid, Rfluid)
if (fixed) {
if (smmothMethod == "Depth") stop("not yet implemented")
# ergsSmooth <- SdepthSmooth(ergsBrain, segments)
if (smmothMethod == "PAWS")
ergsSmooth <- vpawscov2(ergsBrain, segments)
}
ergsSmooth
}
Run the code above in your browser using DataLab