weibull.surface: Linear Weibull Surface

In fzwaeustc/pcrfn: Peng's Collection of R Functions at Nielsen

Description

A linear Weibull surface, such as generated by coe_lm. This function is only used in function fit_3d_show in presenting the fitted surface.

Usage

weibull.surface(x, y, a1_intercept = 0.025, a1_slope = 1e-04, 
        b1_intercept = 0.576, b1_slope = 0.0021, a2_intercept = 0.011, 
        a2_slope = 0.0023, b2_intercept = 0.134, b2_slope = 5e-05)

Arguments

x	The minutes within an STBS session, from 1-STBS_duration
y	Purity
a1_intercept	Intercept of lambda_1.
a1_slope	Slope of lambda_1.
b1_intercept	Intercept of gamma_1.
b1_slope	Slope of gamma_1.
a2_intercept	Intercept of lambda_2.
a2_slope	Slope of lambda_2.
b2_intercept	Intercept of gamma_2.
b2_slope	Slope of gamma_2.

See Also

fit_3d_show, and see double.weibull for the meaning of the parameters.

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (x, y, a1_intercept = 0.025, a1_slope = 1e-04, b1_intercept = 0.576, 
    b1_slope = 0.0021, a2_intercept = 0.011, a2_slope = 0.0023, 
    b2_intercept = 0.134, b2_slope = 5e-05) 
{
    (exp(1)^(-(a1_intercept + a1_slope * y) * (x - 1)^(b1_intercept + 
        b1_slope * y)) + exp(1)^(-(a2_intercept + a2_slope * 
        y) * (y + 1 - x)^(b2_intercept + b2_slope * y)) - (exp(1)^(-(a2_intercept + 
        a2_slope * y) * y^(b2_intercept + b2_slope * y)) + (exp(1)^(-(a1_intercept + 
        a1_slope * y) * y^(b1_intercept + b1_slope * y)) - exp(1)^(-(a2_intercept + 
        a2_slope * y) * y^(b2_intercept + b2_slope * y))) * (x - 
        1)/y))
  }

fzwaeustc/pcrfn documentation built on May 16, 2019, 4:06 p.m.