Displaying 1 result from an estimated 1 matches for "ec50c".
Did you mean:
ec50
2005 May 26
0
Confidence intervals for prediction based on the logistic equation
...26",
"27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37",
"38", "39", "40", "41", "42"))
#function to bootstrap the model
EC50C <- function (xdata,i) {
nlsdata <- xdata[i,]
Sur.nls <- nls( PCTSurv ~ 100/(100 + exp(( xmid - (LogWBCTEQa) )/scal )
),
data = nlsdata,
start = list( xmid = 0, scal = 1 ),
alg = "plinear", trace = TRUE )
#output...