trTime-GPR-method: #' Velocity model of the GPR data #' #' @name vel #' @rdname...

In emanuelhuber/RGPR: Ground-penetrating radar (GPR) data visualisation, processing and delineation

#' Velocity model of the GPR data #' #' @name vel #' @rdname vel #' @export setMethod("vel", "GPR", function(x) if(length(x@vel) == 1) return(x@vel[[1]]) else return(x@vel) )

Description

#' @name vel<- #' @rdname vel #' @export setGenericVerif("vel<-",function(x,value)standardGeneric("vel<-"))

Usage

## S4 method for signature 'GPR'
trTime(x)

Details

#' @name vel<- #' @rdname vel #' @export setReplaceMethod( f="vel", signature="GPR", definition=function(x, value) if(typeof(value) != "list") value <- list(as.numeric(value)) x@vel <- value x@proc <- c(x@proc, "vel<-") return(x) ) #' @name setVel #' @rdname vel #' @export setGenericVerif("setVel", function(x, v) standardGeneric("setVel"))

#' @name setVel #' @rdname vel #' @export setMethod("setVel", "GPR", function(x, v) vel(x) <- v return(x) )

emanuelhuber/RGPR documentation built on May 13, 2024, 9:31 p.m.