A simplistic fitting method also called "1-parameter Weibull" based on a "prior" known beta value.
Usage
weibayes(x, s=NULL, beta)
Arguments
x
Either a vector of class "numeric" or "integer" with
(life-)time observations, or a dataframe containing at least $time and $event
columns and optionally a $qty column.
s
An optional vector of suspension data.
beta
A weibull shape parameter based on prior like kind study.
Value
Returns the Weibull scale, Eta, paramater value.
Details
This function implements a very simplistic relationship defined by two lines of R code:
t_eta<-(times^beta)/nfailout_val<-sum(t_eta)^(1/beta)
Note: for a single failure dataset, with beta = 1, the return is simply the sum of the failure time value plus sum of all suspension times.
Should no failures exist, then the nfail will be set to 1 for a pessimistic solution.