Justyna Góra Student, UG
Temat: Zadanie z R
dostałam do zrobienia zadanie w programie R nie znam sie na tym i bardzo proszę o pomoc. Mam pewien kod do tego zadania jednak czy mógłby mi ktoś sprawdzić czy ten kod jest zgodny z treścią zadania i ewentualnie go poprawić? Bardzo proszę o pomoc, dziękuje. J.Treść zadania: Sprawdzić symulacyjnie czy przedział ufnoci dla Średniej wartoci cechy mierzalnej
o rozkładzie normalnym w (1-alfa)100% przypadków obejmuje rzeczywistą srednią,
jeżeli próba liczy 20 jednostek.
Kod:
#liczba powtórzeń
nrepl=10000
#długość próbki
n=20
alfa=0.1 #90rzedział ufności
MW=matrix(NA, nrepl,1)
#początek pentli monte-carlo
for (i in 1:nrepl) #petelka od 1 do wartosci nrepl
{ # początek i
y=rnorm(n,175,10) #y jest wektorem posiadajacym losowe liczby o rozkladzie normalnym
sry=mean(y) #srednia z ww.
sdy=sd(y) #standard deviation
talfa=qt(0.05, (n-1)) #rozklad t studenta
talfa=abs(talfa) #to chyba jest wartosc bezwzgledna?
dolna=sry-((talfa*sdy)/sqrt(n)) #dolny przedział ufności
gorna=sry+((talfa*sdy)/sqrt(n)) #górny przedział ufności
indeks1=which(y<:Dolna || y>gorna) #"||" oznacza lub (or)
wiarygodnosc=length(indeks1)/n
MW(i,1)=wiarygodnosc
}# koniec i
mean(MW)