Displaying 1 result from an estimated 1 matches for "dexpt".
Did you mean:
dept
2003 Aug 28
2
ks.test()
...S
###############
#EXP
exptfit_function(x,b, plot.it = F, lty = 1){
if (mode(x) != "numeric")
stop("need numeric data")
x <- x[!is.na(x)]
x <- sort(x)
lambda <- length(x)/sum(x-b)
if(plot.it) { lines(x, dexpt(x, lambda = lambda, b = b), lty =
lty,col="red")}
result <- list(lambda = lambda, b = b)
class(result) <- "expt"
result}
dexpt<-function(x,lambda,b) dexp(x-b,rate=lambda)
pexpt<-function(x,lambda,b) pexp(x-b,rate=lambda)
qexpt<-func...