#0:
# Experiment zur Ausreisserempfindlichkeit von Mittel und Median
source(file="http://www.wiwi.uni-bielefeld.de/~wolf/software/R-wtools/slider/slider.R")

median.mean.exp<-function(x){
  refresh.code<-function(...){
  # Experimentparameter
    i<-slider(no=2); if(!exists("i.alt")) i.alt<<-i
    if(i!=i.alt) slider(set.no.value=c(1,x[i]))
    wert<-slider(no=1);  i.alt<<-i
  # Umsetzung
    x[i]<-wert; x<<-x
  # Ergebnisdarstellung
    plot(x,rep(0,length(x)),bty="n", xlab="",ylab="", cex=2,
         xlim=bereich, ylim=c(-2,2),yaxt="n", main="Median-Mittel-Demo")
    m<-mean(x);   segments(m, 1,m, 0.2); text(m, 1.25,"Mittel",cex=2)
    m<-median(x); segments(m,-1,m,-0.2); text(m,-1.25,"Median",cex=2)
    points(x[i],0,col="red",cex=2)
  }
  x<-sort(x); del<-.5*diff(range(x)); bereich<-c(min(x)-del,max(x)+del)
  slider(refresh.code,c("Wert von x[i]","Auswahl von i"),
         c(bereich[1],1),c(bereich[2],length(x)),c(del/100,1),c(x[1],1)  )
}

#:0
#3:
median.mean.exp(runif(10))
#:3