#45. odredjivanje trake poverenja
X<-read.table("C:/Users/Marija/Desktop/OPMS/nerv.txt")
x<-X$V1
Fn<-ecdf(x) #empirijska funkcija raspodele
alfa<-0.05
y<-seq(0,1.5,0.001)
n<-length(y)
eps<-sqrt(log(2/alfa)/(2*n))
l<-pmax(Fn(y)-eps,0)
u<-pmin(Fn(y)+eps,1)
plot(y,Fn(y),type='l')
lines(y, l, col="red")
lines(y, u, col="red")