#### Hilfsfunktion für Darstellung der Marginalen Posteriori für Normalverteilung ####

# Dichte der nichtzentralen t-Verteilung
#' @param x Wert, an dem die nichtzentrale t-Verteilung ausgewertet werden soll
#' @param m,s,nu Parameter der nichtzentralen t-Verteilung
#' 
#' @return Wert der nichtzentralen t-Verteilung an x
dNonCentralT <- function(x, m, s, nu)
{
  # zentriere und setze dann in Dichte der t-Verteilung ein
  return(1/s * dt((x-m)/s, df = nu) )
}