In michbur/signalHsmm: Predict Presence of Signal Peptides

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)
}

michbur/signalHsmm documentation built on May 10, 2020, 2:58 p.m.