Pinnwand für den Kurs Wahrscheinlichkeit und Statistik
install.packages("languageR", repos ="http://cran.r-project.org")

library(languageR)

Versuch:

vgrenze=function(n,c){
    int=dbinom(0:n,n,0.5)
    mittel= n/2 + 1
    interval=1:(n/2)
    for (i in 1:(n/2)) { indices<- seq(mittel-i, mittel+i) ; interval[i]<-
    sum(int[indices]) }
    for(x in 1:(n/2)){
        if(interval[x] >= c){
            return(x)
        }
    }
}



a)
f1 = function(k){dbinom(k,50,1/37)}
plot(f1,0,50)

b)
dbinom(0,20,1/37)

c)
dhyper(3,4,28,5)

d)
qgeom(0.9,1/37)

#Teil 1

varianz <- function(x){
  E <- sum(x)/length(x)
  E2 <- (x - E)^2
  out <- sum(E2)/length(E2)
  return(out)
}

#Bzw Stichprobenvarianz (was auch R berechnet):

sVarianz <- function(x){
  E <- sum(x)/length(x)
  E2 <- (x - E)^2
  out <- sum(E2)/(length(E2)-1)
  return(out)
}

standard <- function(x){
  return(varianz(x)^(1/2))
}  

coVarianz <- function(x,y){
  E1 <- sum(x)/length(x)
  E2 <- sum(y)/length(y)
  F1 <- (x-E1)
  F2 <- (y-E2)
  G <- F1*F2
  out <- sum(G)/length(G)
  return(out)q
}

correl <- function(x,y){
  return(coVarianz(x,y)/(sd(x)*sd(y)))
}
#Teil 2

# P(A|B)=P(A,B)/P(B)

library(languageR)

#Der Zähler:
z = verbs[verbs$RealizationOfRec=="NP"& verbs$AnimacyOfTheme == "inanimate" & verbs$AnimacyOfRec == "animate",]
nrow(z)
#Der Nenner:
n= verbs[ verbs$AnimacyOfTheme == "inanimate" & verbs$AnimacyOfRec == "animate",]
nrow(n)

condProb =nrow(z)/nrow(n)
condProb



verbs5 = verbs[exp(verbs$LengthOfTheme)>=5,]

nchar(as.character(verbs[2,2]))

abstand <- function(n){
  return(sum(1:n-1)+1)
}

verbsVerb5 = verbs[nchar(as.character(verbs$Verb))>=6,]

x=6

f <- function(x){
  return(x+4)
}

fak <- function(x){
  y=1
  for(i in 1:x){
    y=y*i
  }
  if(x==0){
    y=1
    }
  return(y)
}



ueber <- function(x,y){
  return(fa

Neue Spalten "Variablen" definieren mit $:

verbs$cross = cross