sectionSmooth(section, method = c("spline", "barnes"), xg, yg, xgl, ygl, xr, yr, gamma = 0.5, iterations = 2, trim = 0, pregrid = FALSE, debug = getOption("oceDebug"), ...)section object containing the section to be smoothed.
For method="spline", the pressure levels must match for each station in
the section.interpBarnes, if method="barnes"; ignored otherwise.
If xg is supplied, it defines the x component of the grid, i.e. the resultant "stations".
Alternatively, if xgl is supplied, the x grid is established using seq,
to span the data with xgl elements. If neither of these is supplied, the output
x grid will equal the input x grid.xg and xgl.interpBarnes if
method="barnes"; ignored otherwise.interpBarnes,
if method="barnes"; ignored otherwise.interpBarnes, if method="barnes"; ignored otherwise.interpBarnes, if method="barnes"; ignored otherwiseinterpBarnes, if method="barnes"; ignored otherwisesmooth.spline or interpBarnes.section-class that ordered in some way.
method="spline", the section is smoothed using
smooth.spline on individual pressure levels, with any parameters
listed in parameters being passed to that function. If df is not
present in parameters, then this function sets it to the number of
stations divided by 5. Smoothing is done separately for temperature, salinity,
and sigma-theta.For the (much slower) method="barnes" method, smoothing is done across
both horizontal and vertical coordinates, using interpBarnes.
The stations are changed to lie on the grid supplied defined xg and
yg, or by xgl and ygl (see those arguments)
section data: [[,section-method,
[[<-,section-method,
as.section,
handleFlags,section-method,
plot,section-method,
read.section, section-class,
sectionAddStation,
sectionGrid, sectionSort,
section,
subset,section-method,
summary,section-method
library(oce)
data(section)
gs <- subset(section, 109<=stationId&stationId<=129)
gsg <- sectionGrid(gs, p=seq(0, 5000, 150))
gss1 <- sectionSmooth(gsg, "spline", df=16)
plot(gss1)
## Not run:
# gss2 <- sectionSmooth(gsg, "barnes", xr=24, yr=100)
# plot(gss2)
# ## End(Not run)
Run the code above in your browser using DataLab