Skip to content

Instantly share code, notes, and snippets.

Keybase proof

I hereby claim:

  • I am neekro on github.
  • I am martinsmira (https://keybase.io/martinsmira) on keybase.
  • I have a public key ASB0709e0zKQo8-ANVEjKFMA_6_RuS-7PIa7DGS8veeI2Qo

To claim this, I am signing this object:

@martin-smira
martin-smira / server.R
Created November 17, 2013 22:35
Bayes demonstration
library(shiny)
shinyServer(function(input, output) {
# Potrebne vypocty
SEM1 <- reactive({
15 * sqrt(1 - as.numeric(input$reliability1))
})
@martin-smira
martin-smira / server.R
Last active December 28, 2015 12:09
Verze pro 2 testy
library(shiny)
shinyServer(function(input, output) {
# Potrebne vypocty
posteriorMean <- reactive({
SEM1 <- 15 * sqrt(1 - as.numeric(input$reliability1))
SEM2 <- 15 * sqrt(1 - as.numeric(input$reliability2))
precSD <- 1 / 15^2
precSEM1 <- 1 / SEM1^2