diffpriv-10-nova-distribuicao.R

# Nova distribuição seguindo o intervalo ate 18 ate 100 anos
distribuicao <- function(n) as.integer(sample(18:100, n))

numero_registros_base <- nrow(empregados)

distribuicao(numero_registros_base)

lista_registros <- empregados$lista_idade

mecanismo_resposta_privado <- 
  sensitivitySampler(object = mecanismo_privacidade,
                     oracle = distribuicao,
                     n = numero_registros_base,
                     gamma = 0.5)

resposta_privacidade_diferencial <- 
  releaseResponse(mechanism = mecanismo_resposta_privado,
                  privacyParams = DPParamsEps(epsilon = 1),
                  X = lista_registros)

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(empregados$lista_idade))
sprintf("resposta_com_privacidade: %s", as.integer(resposta_com_privacidade))