diffpriv-09-resposta-privacidade.R

sensibilidade <- 
  resposta_privacidade_diferencial$sensitivity

dimensoes <- 
  resposta_privacidade_diferencial$dims

parametros_privacidade <- 
  resposta_privacidade_diferencial$privacyParams

resposta_com_privacidade <- 
  resposta_privacidade_diferencial$response

sprintf("Sensibilidade: %s", sensibilidade)

sprintf("dimensoes: %s", dimensoes)

sprintf("parametros_privacidade - gamma: %s", parametros_privacidade@gamma)
sprintf("parametros_privacidade - delta: %s", parametros_privacidade@delta)
sprintf("parametros_privacidade - epsilon: %s", parametros_privacidade@epsilon)

sprintf("resposta_sem_privacidade: %s", retorna_media(lista_salarios))
sprintf("resposta_com_privacidade: %s", as.integer(resposta_com_privacidade))