codeExponential <- " data { int n; real x[n]; } parameters { real mu; } model { // Prior mu ~ gamma(1e-10,1e-10); // Datenmodell for ( i in 1:n ) { x[i] ~ exponential(1/mu); } } "