Displaying 20 results from an estimated 10000 matches similar to: "polr model, out-of-sample probabilities"
2005 Aug 12
1
Manually Calculating Odds from POLR Model
Hello,
I am using polr(...) to generate a model. The summary shows the
coefficients and the intercepts.
For example:
coefficient for x1 = c1
coefficient for x2 = c2
intercept A|B = i1
intercept B|C = i2
I can then run predict(..., type="p") with the model and see the odds for
each factor.
For example:
A B C
1 0.3 0.5 0.2
2 0.4
2011 Oct 19
1
hypothetical prediction after polr
Dear R-Help listers,
I am trying to estimate an proportional odds logistic regression model
(or ordered logistic regression) and then make predictions by
supplying a hypothetical x vector. However, somehow this does not
work. I guess I must have missed something here. I first used the polr
function in the MASS package, and I create a data frame and supply it
to the predict function (see below):
2003 May 05
3
polr in MASS
Hi, I am trying to test the proportional-odds model using the "polr" function in the MASS library with the dataset of "housing" contained in the MASS book ("Sat" (factor: low, medium, high) is the dependent variable, "Infl" (low, medium, high), "Type" (tower, apartment, atrium, terrace) and "Cont" (low, high) are the predictor variables
2010 Nov 03
2
bugs and misfeatures in polr(MASS).... fixed!
In polr.R the (several) functions gmin and fmin contain the code
> theta <- beta[pc + 1L:q]
> gamm <- c(-100, cumsum(c(theta[1L], exp(theta[-1L]))), 100)
That's bad. There's no reason to suppose beta[pc+1L] is larger than
-100 or that the cumulative sum is smaller than 100. For practical
datasets those assumptions are frequently violated, causing the
2012 Jul 09
3
Package 'MASS' (polr): Error in svd(X) : infinite or missing values in 'x'
Hello,
I am trying to run an ordinal logistic regression (polr) using the package
'MASS'.
I have successfully run other regression classes (glm, multinom) without
much problem, but with the 'polr' class I get the following error:
" Error in svd(X) : infinite or missing values in 'x' "
which appears when I run the "summary" command.
The data file is
2005 Jun 10
1
problem with polr ?
I want to fit a multinomial model with logit link.
For example let this matrix to be analyzed:
male female aborted factor
10 12 1 1.2
14 14 4 1.3
15 12 3 1.4
(this is an example, not the true data which are far more complex...)
I suppose the correct function to analyze these data is polr from MASS library.
The data have been
2007 Jul 25
0
Function polr and discrete ordinal scale
Dear all,
To modelize the abundance of fish (4 classes) with a set of environmental variables, I used the polr and predict.polr functions. I would like to know how to bring the cumulated probabilities back to a discrete ordinal scale.
For the moment I used the predict.polr function with the argument "class". Is there an other way?
polrf <- polrf <- polr_mod(formula =
2010 May 06
1
cannot update polr model if I specify "start" parameters
Hi,
I am trying to build an ordinal regression model using polr (from the
MASS package). In order to construct an initial model (without an error
aborting it) in my setting, I must pass in a "start" parameter. I would
then like to use the "step" function to remove unnecessary variables
from the model. However, this fails with the error message:
> mod1 <-
2009 Feb 24
1
polr (MASS): score test for proportional odds model
For the following model,
library(vcd)
arth.polr <- polr(Improved ~ Sex + Treatment + Age, data=Arthritis)
summary(arth.polr)
where Improved is an ordered, 3-level response I'm looking for a
*simple* way to test
the validity of the proportional odds assumption, typically done via a
score test
for equal slopes/effects over the predictors.
I do find a po.test= option in the repolr package
2006 May 03
1
Problem in using confint method on polr model object
I fit a proportional odds model
with the polr-function of the MASS package from
Venables and Ripley
Applying the confint method to calculate confidence intervals for the
parameters I get
the following error message
Waiting for profiling to be done...
Re-fitting to get Hessian
Error in X[, -i, drop = FALSE] : incorrect number of dimensions
Can someone explain the error-message?
(The
2003 Dec 08
2
R^2 analogue in polr() and prerequisites for polr()
Hi
(1)In polr(), is there any way to calculate a pseudo analogue to the
R^2. Just for use as a purely descriptive statistic of the goodness of
fit?
(2) And: what are the assumptions which must be fulfilled, so that the
results of polr() (t-values, etc.) are valid? How can I test these
prerequisites most easily: I have a three-level (ordered factor)
response and four metric variables.
many
2002 Feb 07
1
newbie question: polr and glm.control
I'm running polr() and getting warning messages from glm.fit(). It seems
reasonable to use glm.control() to turn on the trace and follow what
glm.fit() does when called by polr(); or is it?
glm.control(maxit=10, trace=TRUE)
polr(act~., data=mm)
The glm.control() sets the trace TRUE, but there's no change in the output
from polr().
Many thanks in advance for any help/pointers.
2010 Sep 06
3
likelyhood maximization problem with polr
Dear community,
I am currently trying to fit an ordinal logistic regression model with the
polr function. I often get the same error message :
"attempt to find suitable starting values failed", for example with :
require(MASS)
data(iris)
polr(Species~Sepal.Length+Sepal.Width+Petal.Length+Petal.Width,iris)
(I know the response variable Species should be nominal but I do as levels
2004 Mar 03
7
Location of polr function
Hello
I am running R 1.8.1 on a Windows platform
I am attempting to fit an ordinal logistic regression model, using the
polr function, as described in Venables and Ripley. But when I try
model4 <- polr(ypsxcat~committed + as.factor(sex)
+ as.factor(drugusey) + anycsw + as.factor(sex)*committed
+ as.factor(sex)*as.factor(drugusey)+as.factor(sex)*anycsw, data =
duhray)
I get a message
2007 Feb 19
3
summary polr
Hi all,
I have a problem to estimate Std. Error and t-value by ?polr? in library Mass.
They result from the summary of a polr object.
I can obtain them working in the R environment with the following statements:
temp <- polr(formula = formula1, data = data1)
coeff <- summary(temp),
but when the above statements are enclosed in a function, summary reports the following error:
2007 Nov 10
1
polr() error message wrt optim() and vmmin
Hi,
I'm getting an error message using polr():
Error in optim(start, fmin, gmin, method = "BFGS", hessian = Hess, ...) :
initial value in 'vmmin' is not finite
The outcome variable is ordinal and factored, and the independant variable
is continuous. I've checked the source code for both polr() and optim()
and can't find any variable called
2007 Jun 11
1
How do I obtain standard error of each estimated coefficients in polr
Hi,
I obtained all the coefficients that I need from polr. However, I'm wondering how I can obtain the standard error of each estimated coefficient? I saved the Hessian and do something like summary(polrObj), I don't see any standard error like when doing regression using lm. Any help would be really appreciated. Thank you!
- adschai
2010 Jun 17
1
sapply or apply
Hi r-users,
I have this code here :
dt <- winter_pos_sum
bt <- c(24.96874, 19.67861, 23.51001, 19.86868); round(bt,2)
alp <- c(2.724234, 3.914649, 3.229146, 3.120719); round(alp,2)
bt_min <- min(bt) ; bt_min
p <- alp_sum ; p
t <- 50
t1 <- t+1
#first get the sum over the eigenvalues for a particular power i
gam_sum <-
2005 Mar 22
1
error with polr()
Dear Sir,
I get an error message when I use polr() in MASS package.
My data is "ord.dat". I made "y" a factor.
y y1 y2 x lx
1 0 0 0 3.2e-02 -1.49485
2 0 0 0 3.2e-02 -1.49485
3 0 0 0 1.0e-01 -1.00000
4 0 0 0 1.0e-01 -1.00000
5 0 0 0 3.2e-01 -0.49485
6 0 0 0 3.2e-01 -0.49485
7 1 1 0 1.0e+00 0.00000
8 0 0 0 1.0e+00 0.00000
9 1 1 0
2010 Jun 17
3
how to use sapply code
Hi,
I have this code here and try to use sapply code. But I got error message that I don't really understand to correct.
bt <- c(24.96874, 19.67861, 23.51001, 19.86868); round(bt,2)
alp <- c(2.724234, 3.914649, 3.229146, 3.120719); round(alp,2)
bt_alp <- data.frame(bt,alp)
sapply(bt_alp, function(bt,alp) ((bt_m/bt)^alp), bt_m = min(bt))
> sapply(bt_alp, function(bt,alp)