R/MRRw3p.r

Defines functions MRRw3p

Documented in MRRw3p

## MRRw3p.r
## A quick fit method using defaults, with options to provide confidence interval bounds
## and/or a graphical display.

MRRw3p<-function(x,s=NULL, bounds=FALSE, show=FALSE) {

# permit one to forget that second argument was reserved for a suspensions vector
if(is.logical(s)) {
	show<-bounds
	bounds<-s
	s<-NULL
}

obj<-wblr.fit(wblr(x,s), dist="weibull3p", modify.by.t0=T, col="blue2")
fit<-obj$fit[[1]]$fit_vec
attributes(fit)$data_types<-NULL

if(bounds==TRUE) {
obj<-wblr.conf(obj, method.conf="lrb", dq="minitab", col="deepskyblue3")
bnds<-obj$fit[[1]]$conf[[1]]$bounds
ret<-list(fit,bnds)
stitle<-"MLE fit with 90% double-sided likelihood ratio bounds"
}else{
ret<-fit
stitle<-"Weibull MRR 3-parameter fit"
}

if(show==TRUE) {
plot(obj, in.legend.blives=FALSE, sub=stitle, xlab=("Time - t0"))
}

ret
}

Try the WeibullR package in your browser

Any scripts or data that you put into this service are public.

WeibullR documentation built on June 26, 2022, 1:06 a.m.