R/AllMethods.R

In grimbough/AlphaFoldQuery: What the Package Does Using Title Case

setMethod("show", signature = "PredictedAlignedError", function(object) {
    
    cat("Number of residues: ", sqrt(length(errors(object))), "\n")
    cat("Maximum Predicted Alignment Error:", maxPredictedError(object))
})

setGeneric("errors", function(object) {
    standardGeneric("errors")
})

setMethod("errors", 
          signature = c("PredictedAlignedError"), 
          definition = function(object) {
              object@distance
          }
)

setGeneric("maxPredictedError", function(object) {
    standardGeneric("maxPredictedError")
})

setMethod("maxPredictedError", 
          signature = c("PredictedAlignedError"), 
          definition = function(object) {
              object@max_predicted_error
          }
)