Thuis
Contacten

    Hoofdpagina


Docent: drs. Rob Flohr

Dovnload 2 Mb.

Docent: drs. Rob Flohr



Pagina3/25
Datum05.12.2018
Grootte2 Mb.

Dovnload 2 Mb.
1   2   3   4   5   6   7   8   9   ...   25

Of m.b.v. LearnBayes-package:

> library(LearnBayes)

> quantile1=list(p=0.05,x=0.40)

> quantile2=list(p=0.95,x=0.60)

> beta.select(quantile1,quantile2)

[1] 33.43 33.45



> x=seq(0,1)

> curve(dbeta(x,33.43,33.43))



> local({pkg <- select.list(sort(.packages(all.available = TRUE)),graphics=TRUE)

+ if(nchar(pkg)) library(pkg, character.only=TRUE)})
Attaching package: ‘Bolstad’
The following object(s) are masked _by_ ‘.GlobalEnv’:
binodp
Warning message:

package ‘Bolstad’ was built under R version 2.15.3



> library(Bolstad)

> binobp(5,20,33.43,33.43)

Posterior Mean : 0.4424361

Posterior Variance : 0.0028077

Posterior Std. Deviation : 0.0529879


Prob. Quantile

------ ---------

0.005 0.309838

0.01 0.3219683

0.025 0.3401013

0.05 0.355975

0.5 0.4419923

0.95 0.5304135

0.975 0.547283

0.99 0.5667798

0.995 0.5799617

>




Met gebruik van niet-informatieve prior (uniforme verdeling):

> local({pkg <- select.list(sort(.packages(all.available = TRUE)),graphics=TRUE)

+ if(nchar(pkg)) library(pkg, character.only=TRUE)})
Attaching package: ‘Bolstad’
The following object(s) are masked _by_ ‘.GlobalEnv’:
binodp
Warning message:

package ‘Bolstad’ was built under R version 2.15.3


1   2   3   4   5   6   7   8   9   ...   25

  • > library(Bolstad) > binobp(5,20,33.43,33.43)

  • Dovnload 2 Mb.