R/DSO.R

Defines functions print.DSO

#######################################################################
# stream -  Infrastructure for Data Stream Mining
# Copyright (C) 2013 Michael Hahsler, Matthew Bolanos, John Forrest 
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with this program; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

print.DSO <- function(x, ...) {
  cat(.line_break(paste(x$description)))
  cat("Class:", paste(class(x), collapse=", "), "\n") 
  #if(!is(nc <- try(nclusters(x, type="micro"), silent=TRUE), "try-error")) 
  #  cat(paste('Number of micro-clusters:', nc, '\n'))
  #if(!is(nc <- try(nclusters(x, type="macro"), silent=TRUE), "try-error")) 
  #  cat(paste('Number of macro-clusters:', nc, '\n'))
}

Try the stream package in your browser

Any scripts or data that you put into this service are public.

stream documentation built on June 2, 2018, 9:08 a.m.