diff options
| -rw-r--r-- | NAMESPACE | 3 | ||||
| -rw-r--r-- | R/util.R | 7 |
2 files changed, 8 insertions, 2 deletions
@@ -1,5 +1,6 @@ # Generated by roxygen2: do not edit by hand +S3method("%=%",lbunch) S3method("inputNames<-",idframe) S3method("outputNames<-",idframe) S3method(deltat,idframe) @@ -27,6 +28,7 @@ S3method(sim,idpoly) S3method(summary,estpoly) S3method(summary,idframe) S3method(time,idframe) +export("%=%") export("inputNames<-") export("outputNames<-") export(armax) @@ -38,6 +40,7 @@ export(detrend) export(estpoly) export(etfe) export(fitch) +export(g) export(getcov) export(idframe) export(idfrd) @@ -1,12 +1,14 @@ # Generic form +#' @export '%=%' = function(l, r, ...) UseMethod('%=%') # Binary Operator +#' @export '%=%.lbunch' = function(l, r, ...) { Envir = as.environment(-1) - if (length(r) > length(l)) - warning("RHS has more args than LHS. Only first", length(l), "used.") +# if (length(r) > length(l)) +# warning("RHS has more args than LHS. Only first", length(l), "used.") if (length(l) > length(r)) { warning("LHS has more args than RHS. RHS will be repeated.") @@ -35,6 +37,7 @@ extendToMatch <- function(source, destin) { } # Grouping the left hand side +#' @export g = function(...) { List = as.list(substitute(list(...)))[-1L] class(List) = 'lbunch' |