weld: Combines segments with "litholog()"-like data frame

In StratigrapheR: Integrated Stratigraphy

Combines segments with "litholog()"-like data frame

Description

Adds segments to the polygon forming the bed of a log in a "litholog()"-like data frame.

Usage

weld(log, dt, xy, begin, end, erase = "none", order = "current")

Arguments

log	a "litholog()"-like data frame on which the new segment needs to be welded.
dt	the dt value for each point of the added segment.
xy	the xy value for each point of the added segment.
begin	the row of log after which the segment will be added.
end	the row of log before which the segment will be added (end should be superior to begin).
erase	erase the begin point ('begin'), end point ('end'), both ('both') or only the points in between ('none').
order	the order of the added points : can be the current order ('current'), the current order inversed ('inverse'), or ordered by xy ('xy' or '-xy') or dt ('dt' or '-dt').

Value

a "litholog()"-like data frame with the bed that comprises the begin and end row having the segment welded to it.

See Also

litholog and weldlog

Examples

l <- c(1)
r <- c(2)
h <- c(4)
i <- c("B1")
log <- litholog(l, r, h, i)

seg <- sinpoint(4, 1, 0.25, pos = 2, phase = 0.5)
welded <- weld(log, seg$y, seg$x, 3, 4, order = "inverse", erase = "both")

plot(c(-1,5),c(0,3),type = "n")

multigons(log$i,log$xy,log$dt)
points(seg$x,seg$y)

multigons(welded$i, welded$xy, welded$dt, lty = 2, lwd = 3, border = "red")

StratigrapheR documentation built on July 9, 2023, 6:02 p.m.