summary.scSpectra <- function(object, ncases = 10, ...){
if (!inherits(object,"scSpectra")) {
stop("object must be a scSpectra class object")
}
if (!inherits(ncases,"numeric")) {
stop("ncases must be a valid number")
}
cat(paste("(", ncases, " first mass spectra) \n", sep = ""))
print(head(object$est.table,ncases))
cat("\n"); cat("----------------------------")
cat("\n\n")
cat(paste("Scale estimator:", object$estimator, "\n"))
cat(paste("Method:", object$met, "\n"))
cat(paste("Threshold:", object$threshold, "\n"))
cat(paste("Limits: [", round(object$lower,4), ",", round(object$upper,4), "] \n", sep = ""))
cat(paste("Deriv. order:", object$nd, "\n"))
cat(paste("Lambda:", object$lambda, "\n"))
cat(paste("No. potentially faulty spectra: ", object$cfailure, " (", object$prop*100," %) \n", sep = ""))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.