remove superfluous ...

NEWS.md

@@ -4,11 +4,13 @@
 
 * abstracted exctraction of tie points
 
+* added utility functions for S3 class `sac`
+
 # admtools 0.3.0
 
 * removed dependency from `ape` package
 
-* defined S3 class `timelist` and `stratlist` for data assiciated with time/height
+* defined S3 class `timelist` and `stratlist` for data associated with time/height
 
 * unified syntax for time-depth transformation
 

R/max_heigth.R

@@ -1,10 +1,9 @@
-max_height = function(x, ...){
+max_height = function(x){
   #' @export
   #' 
   #' @title get highest stratigraphic tie point
   #' 
   #' @param x age-depth model (adm) or sediment accumulation curve (sac)
-  #' @param ... other variables, ignored
   #' 
   #' @returns number, stratigraphic position of the highest stratigraphic tie point
   #' 
@@ -13,13 +12,13 @@ max_height = function(x, ...){
   UseMethod("max_height")
 }
 
-max_height.adm = function(x, ...){
+max_height.adm = function(x){
   #' @export
   h = get_L_tp.adm(x)
   return(max(h))
 }
 
-max_height.sac = function(x, ... ){
+max_height.sac = function(x){
   #' @export
   #' 
   h = get_L_tp.sac(x)

R/max_time.R

@@ -1,10 +1,9 @@
-max_time = function(x, ...){
+max_time = function(x){
   #' @export
   #' 
   #' @title last time tie point
   #' 
   #' @param x age-depth model (adm) or sediment accumulation curve (sac)
-  #' @param ... other variables, ignored
   #' 
   #' @returns number, last time tie point of the age-depth model/sediment accumulation curve
   #' 
@@ -13,14 +12,14 @@ max_time = function(x, ...){
   UseMethod("max_time")
 }
 
-max_time.adm = function(x, ...){
+max_time.adm = function(x){
   #' @export
   #' 
   t = get_T_tp.adm(x)
   return(max(t))
 }
 
-max_time.sac = function(x, ...){
+max_time.sac = function(x){
   #' @export
   t = get_T_tp.sac(x)
   return(max(t))

R/min_height.R

@@ -1,11 +1,10 @@
-min_height = function(x, ...){
+min_height = function(x){
 
   #' @export
   #' 
   #' @title get lowest stratigraphic tie point
   #' 
   #' @param x an age-depth model (adm) or sediment accumulation curve (sac)
-  #' @param ... other parameters, ignored
   #' 
   #' @returns number, stratigraphic position of lowest tie poin
   #' 
@@ -15,14 +14,14 @@ min_height = function(x, ...){
 
 }
 
-min_height.adm = function(x, ...){
+min_height.adm = function(x){
 
   #' @export
   h = get_L_tp.adm(x)
   return(min(h))
 }
 
-min_height.sac = function(x, ...){
+min_height.sac = function(x){
   #' @export
   h = get_L_tp.sac(x)
   return(min(h))

R/min_time.R

@@ -1,10 +1,9 @@
-min_time = function(x, ...){
+min_time = function(x){
   #' @export
   #' 
   #' @title first time tie point
   #' 
   #' @param x age-depth model (adm) or sediment accumulation curve (sac)
-  #' @param ... other variables, ignored
   #' 
   #' @returns number, timing of first tie point of the age-depth model/sediment accumulation curve
   #' 
@@ -13,14 +12,14 @@ min_time = function(x, ...){
   UseMethod("min_time")
 }
 
-min_time.adm = function(x, ...){
+min_time.adm = function(x){
   #' @export
   #' 
   t = get_T_tp.adm(x)
   return(min(t))
 }
 
-min_time.sac = function(x, ...){
+min_time.sac = function(x){
   #' @export
   #' 
   t = get_T_tp.sac(x)