Description Usage Arguments Details See Also Examples
plot
method for a class "DiSSMod"
.
1 2 |
x |
an object of class "DiSSMod" made by the function |
... |
additional control argument is as follows.
|
Function plot
draws a convex line due to the values of twice relative
log likelihoods by using the profile likelihood approach with
following the grids of alpha
. If confidence interval created from
the function confint
exists between the maximum and minimum value of the alpha
,
there will be two points drawn with the color red. Also, the Maximum Likelihood Estimator (MLE)
of alpha
can be seen easily, if it exists between the maximum and minimum value of
the alpha
.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | # example continued from DiSSMod
set.seed(45)
data(DoctorRWM, package = "DiSSMod")
n0 <- 600
set.n0 <- sample(1:nrow(DoctorRWM), n0)
reduce_DoctorRWM <- DoctorRWM[set.n0,]
result0 <- DiSSMod(response = as.numeric(DOCVIS > 0) ~ AGE + INCOME_SCALE + HHKIDS + EDUC + MARRIED,
selection = PUBLIC ~ AGE + EDUC + FEMALE,
data = reduce_DoctorRWM, resp.dist="bernoulli", select.dist = "normal",
alpha = seq(-5.5, -0.5, length.out = 21), standard = TRUE)
plot(result0, level = 0.90)
data(CreditMDR, package = "DiSSMod")
n1 <- 600
set.n1 <- sample(1:nrow(CreditMDR), n1)
reduce_CreditMDR <- CreditMDR[set.n1,]
result1 <- DiSSMod(response = MAJORDRG ~ AGE + INCOME + EXP_INC,
selection = CARDHLDR ~ AGE + INCOME + OWNRENT + ADEPCNT + SELFEMPL,
data = reduce_CreditMDR, resp.dist="poi", select.dist = "logis",
alpha = seq(-0.3, 0.3,length.out = 21), standard = FALSE, verbose = 1)
plot(result1)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.