R/iscompatible.R

In Fioroni1863179/LabMec: Prova Individuale LabMec

#' Controllo se due stime siano compatibili tra loro
#'
#' La funzione verifica se due stime dello stesso oggetto siano compatibili tra loro. Accetta due valori con le rispettive incertezze, ne calcola la differenza e controlla se lo 0 sia compreso o meno in 3*sigma
#'
#' @param a, b
#' Le stime da verificare
#' @param sa, sb
#' Le incertezze su \emph{a} e \emph{b} rispettivamente
#'
iscompatible <- function(a, sa, b, sb){
  if(missing(a)) stop("manca il primo valore")
  if(missing(sa)) stop("manca l'incertezza sul primo valore")
  if(missing(b)) stop("manca il secondo valore")
  if(missing(sb)) stop("manca l'incertezza sul secondo valore")

  snew <- sommaquadratura(sa, sb)
  if( abs(a-b) < 3*snew){
    cat("sono compatibili")
    return(TRUE)
  } else {
    cat("non sono compatibili")
    return(FALSE)
  }
}