signalHsmm - report

file_name <- ifelse(is.null(input[["seq_file"]][["name"]]), "none",
                    input[["seq_file"]][["name"]])
cat("**Input file name**: ", file_name, "\n\n")
cat(paste0("**Date**: ", Sys.time()), "\n\n")
for (i in prediction()) {
  cat("\n\n## ", sep = "")
  summary(i, double_linebreak = TRUE)
  plot(i)
}


Try the signalHsmm package in your browser

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

signalHsmm documentation built on May 1, 2019, 7:55 p.m.