search for: eright

...1 - fdr0) * fall) iup <- (1:K)[x >= xmax] ido <- (1:K)[x <= xmax] Eleft <- sum((1 - fdr[ido]) * fdr[ido] * fall[ido])/sum((1 - fdr[ido]) * fall[ido]) Eleft0 <- sum((1 - fdr0[ido]) * fdr0[ido] * fall[ido])/sum((1 - fdr0[ido]) * fall[ido]) Eright <- sum((1 - fdr[iup]) * fdr[iup] * fall[iup])/sum((1 - fdr[iup]) * fall[iup]) Eright0 <- sum((1 - fdr0[iup]) * fdr0[iup] * fall[iup])/sum((1 - fdr0[iup]) * fall[iup]) Efdr <- c(Efdr, Eleft, Eright, Efdrtheo, Eleft0, Eright0) Efdr[which(is.na(Efdr))] = 1 name...

> x = rnorm(100) > b = seq(min(x) - 1, max(x) + 1, length = 11) > b [1] -3.4038769 -2.7451072 -2.0863375 -1.4275678 -0.7687980 -0.1100283 [7] 0.5487414 1.2075111 1.8662808 2.5250506 3.1838203 > > invisible(hist(x, breaks = b, include.lowest = TRUE, plot = FALSE)) Warning message: argument 'include.lowest' is not made use of in: hist.default(x, breaks = b,