## setting as properties
filt.gen <- setProperties("Filter", list(cutoff = "NonnegativeInteger",
weight = "PositiveInteger"))
## new property instance
obj <- filt.gen$new(cutoff = 0, weight = 1)
obj$properties()
as.list(obj)
Run the code above in your browser using DataLab