R/brob.R

In fredericgo/stockr: Analyse my stocks (Title Case)

setClass("swift", representation="VIRTUAL")
setClass("brob",
         representation = representation(x="numeric", positive="logical"),
         prototype      = list(x=numeric(), positive=logical()),
         contains       = "swift")

.Brob.valid <- function(object) {
  len <- length(object@positive)
  if (len != length(object@x)) {
    return("length mismatch")
  } else {
    return(TRUE)
  }
}

setValidity("brob", .Brob.valid)

"brob" <- function(x=double(), positive) {
  if (missing(positive)) {
    positive <- rep(TRUE, length(x))
  }
  if(length(positive)==1) {
    positive <- rep(positive, length(x))
  }
  new("brob", x=as.numeric(x), positive=positive)
}
brob(1:10, FALSE)