Hallo meine Brains!

Ich brauch wiedermal eure Hilfe:

Also:
Eine "runtest" Funktion soll programmiert werden, dem ein Vektor übergeben werden kann, mit dem der Hypothesentest durchgeführt wird.

Wir haben zwei Generatoren.
Der erste Generator (gemischt linear Kongruenzg.) ist folgender: mit R:

glk <- function(a=7^5, b=0, m=2^(31)-1, n=10^6, x1=1){
pzz <- numeric(n)
pzz[1] <- x1

for(i in 2:n){

pzz[i] <- (a*pzz[i-1] + b) %% m
}
return(pzz / (m-1))
}

Der zweite Generator ist die Funktion "runif", welcher ja schon eine Standardeinstellung bei R ist.

set.seed(1)
runif(10^6)

Nun mein Frage dazu: Wie kann ich dazu mit R einen Hypothesentest formulieren, der mir die Prüfgröße und den p-Wert ausgibt und somit prüft, ob die Zufallsfolge tatsächlich zufällig ist oder nicht?

Vielen Dank für eure Hilfe!

Danke dir!

Hallo

Ich habe ein Problem und bräuchte eure Hilfe bitte.
Ich soll eine Funktion approximieren. In dieser Funktion habe ich eine Summe enthalten und eine Variable. Mein Problem dabei ist, dass wenn ich für die Variable einen Wert eingebe ich die Information bekomme, dass meine Variable kürzer ist als die Summe. Die Summe geht von 1 bis 12 und meine Werte von x sind definiert von -7 bis 7. Diese Warnmeldung erscheint beim Plotten.

R:

verteilung <- function(x, n = 1:12){
z <- 1/2 + 1/pi * (x/(3*sqrt(2)) + sum(1/n*exp(-(n^2/9))*sin((n*x*sqrt(2))/3)))
return(z)
}

verteilung()

Warnmeldungen:1: In n * x : Länge des längeren Objektes ist kein Vielfaches der Länge des kürzeren Objektes2: In 1/n * exp(-(n^2/9)) * sin((n * x * sqrt(2))/3) : Länge des längeren Objektes ist kein Vielfaches der Länge des kürzeren Objektes
danke für die Hilfe!