Exerc

1
Exercícios

• Java Bayes
• Embayes/R

2
1. JavaBayes 0.4

• Iniciar JavaBayes 0.4
• Criação de nova rede
• Nós
• Arcos
• Probabilidades

3
Nós e arcos
Edit node
4
Edição de probabilidades
5
Edição de probabilidades
true false
p(fam fora) 0.15 0.85
p(prob bexiga) 0.01 0.99
p(luz acesa fam fora true ) 0.60 0.40
p(luz acesa fam fora false ) 0.05 0.95
p(cach fora fam fora true prob bexiga true) 0.99 0.01
p(cach fora fam fora true prob bexiga false) 0.90 0.10
p(cach fora fam fora false prob bexiga true) 0.97 0.03
p(cach fora fam fora false prob bexiga false) 0.30 0.70
p(ouvir latidos cach fora true) 0.70 0.30
p(ouvir latidos cach fora false) 0.01 0.99
6
Consultas à rede

• Probabilidade posterior, sem observações
• Ouvir latidos
• true 0.28 false 0.72

• Probabilidade posterior
• Observações Cachorro fora -gt true
• Problema bexiga
• true 0.02 false 0.98
• Ouvir latidos
• true 0.70 false 0.30

• Probabilidade posterior
• Observações Luzes acesas -gt false, Ouvir
  latidos true
• Família fora
• true 0.17 false 0.83
• Cachorro fora
• true 0.97 false 0.03

7
Outras consultas
Ouvir latidos true Luzes acesas false Cachorro
fora true Familia fora false
8
iBNetzhttp//www.pmr.poli.usp.br/ltd/People/asahe
ki/software/

• Interface para o EmBayes
• Mais opções para visualização e edição

9
Rede para decisão médica

• Projeto em conjunto com Hospital
  Universitário-USP
• Construção feita com o auxílio de especialistas
  médicos
• Tem como objetivo a identificação de doenças
  cardíacas

10
Rede para decisão médica (II)
11
2. Embayes/R

• Iniciar Rterm
• ex gt c\Arquivos de Programas\R\r1080\bin\rterm
• Alterar para pasta de trabalho desejada
• ex gt setwd(c/EmBayesR)
• Carregar sources.r
• source(sources.r)

12
Operações em Redes Bayesianas

• Nova rede
• rede newNetwork(rede1)
• Adicionar variáveis
• redeaddVar(no1)
• redeaddVar(no2, c(est1, est2, est3))
• redeaddVar(no3)
• Mostrar variáveis
• redelistVars()

13
Operações em Redes Bayes. (II)

• Ligar variáveis
• redeaddArc(no1, no2)
• redeaddArc(no1, no3)
• Definir probabilidades
• redesetProbabilities(no1, c(0.2, 0.8))
• redesetProbabilities(no2, c(0.1, 0.4, 0.2,
  0.25, 0.7, 0.35))
• redesetProbabilities(no3, c(0.4,0.3,0.6,0.7))

14
Operações em Redes Bayes. (III)

• Consultas/observações
• redequery(no1)
• redequery(c(no2, no3))
• redeobserveVariable(no2, est1)
• redequery(no1)
• Alterações
• rededeleteVar(no2)
• rededeleteArc(no1, no3)

15
Aprendizado

• Base de dados adult
• dataLearn lt- readDiscreteData(adult_learn.in")
• adultLearn lt- convertRData(dataLearn)
• dataTest readDiscreteData(adult_test.in")
• adultTest lt- convertRData(dataTest)

16
Aprendizado (II)

• Aprendizado TAN parâmetros default
• redeA learnNetwork(algorithm "TAN", learnData
  adultLearn)
• redeAtestNetwork(adultTest)
• redeAshowNetwork() edição manual

• Novo teste
• adultTestreopen()
• redeAtestNetwork(adultTest)

17
Aprendizado (III)

• Aprendizado Naive-Bayes
• Base de dados
• adultLearnreopen()
• adultTestreopen()
• redeB learnNetwork(algorithmNB, learnData
  lettersLearn, maxIterations 1, likelihoodChange
  0.01)
• redeBtestNetwork(lettersTest)
• redeBlistVars()
• redeBobserveVariable(X12)
• redeBshowNetwork()
• redeBquery(c)