
Last chance! 50% off unlimited learning
Sale ends in
## S3 method for class 'LP':
plot(x, line = TRUE, type = NULL, spldf = 5, ...)
LP
functionLP
function.line==TRUE
. Note that spldf
should
be larger than 1 and smaller than len
(default: 5).spldf
degrees of freedom) is fit to these
points to give a smooth impression of the loss in power curve.
For models with two prior parameters
a trellis display is shown with the number of panels equal to len[2]
.
The number of points on which the power is evaluated is equal to len[1]
in each panel, where len
is an argument of the LP
function.LP
doses <- c(0,10,25,50,100,150)
models <- list(linear=NULL, emax=c(25),
logistic=c(50,10.88111), exponential=c(85),
betaMod=matrix(c(0.33,2.31,1.39,1.39),byrow=TRUE,nrow=2))
# Examples from JBS paper, p.654
LPobj <- LP(models, model = "emax", type = "both", paramRange = c(10,70),
doses = doses, base = 0, maxEff = 0.4, sigma = 1, n = 60,
alpha = 0.05, len = 15, scal = 200)
plot(LPobj)
plot(LPobj, line = FALSE, type = "LP1")
plot(LPobj, type = "LP1", spldf = 9)
Run the code above in your browser using DataLab