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