R/print.oCPD.R

print.oCPD <-
function(x, ...) {
  cat("Changepoints:\n")
  if(is.null(x$time)) print(x$changes[-1])
  else                print(x$time[x$changes[-1]])
}

Try the onlineCPD package in your browser

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

onlineCPD documentation built on Jan. 15, 2017, 7:22 p.m.