search for: finit

...t;allowsInf", "myclass", function(obj) FALSE) Then, what would myclassthing <- structure(1.5, class = "mything") myclassthing[1] <- Inf do. Assumely it would happily complete without complaint, right, even though allowInf(myclassthing) would return FALSE? Thus an infinite value was allowed. This seems very misleading/counter-intuitive to me. Perhaps this is just an issue with the proposed naming, though I'm not certain that's the case. I guess what i'm saying is allowsInf at its core is a validation criterion for objects of a particular class, and und...

Heiner Schwarte has helped me with the AIX problem that I and Janusz Kawczak recently reported here. Heiner had found out earlier that there was a problem with the 'finite' c-library function [Heiner's test code see below] when gcc (and older versions of xlc) is used. He also found that instead, AIX defines a FINITE(.) macro itself in fp.h and that this would work in any case. Interestingly, xlc (the "standard IBM AIX compiler") has no proble...

Hi all, I noticed that `range.default()` has a nice `finite = TRUE` argument, but it doesn't actually apply to Date or POSIXct due to how `is.numeric()` works. ``` x <- .Date(c(0, Inf, 1, 2, Inf)) x #> [1] "1970-01-01" "Inf" "1970-01-02" "1970-01-03" "Inf" # Darn! range(x, finite = TRUE)...

> ?is.finite `is.finite' and `is.infinite' return a vector of the same length as `x', indicating which elements are finite or not. is.finite() of a list seems to return a vector of the length of the list, but with value FALSE if any list element isn't finite. Is this intended? &gt...

Hi, OK, if you try to explicitly make them generic, you are told that they are implicitly already generic: > setGeneric("is.finite", function(from, ...) standardGeneric("is.finite")) Error in setGeneric("is.finite", function(from, ...) standardGeneric("is.finite")) : "is.finite" is a primitive function; methods can be defined, but the generic function is implicit, and can...

...event has not yet ended, whilst Inf would mean that the event is known to never terminate, ie: an eternal fact, or physical law. On Fri, Apr 28, 2023 at 10:12?AM Davis Vaughan via R-devel < r-devel at r-project.org> wrote: > Hi all, > > I noticed that `range.default()` has a nice `finite = TRUE` argument, > but it doesn't actually apply to Date or POSIXct due to how > `is.numeric()` works. > > ``` > x <- .Date(c(0, Inf, 1, 2, Inf)) > x > #> [1] "1970-01-01" "Inf" "1970-01-02" "1970-01-03" "Inf"...

...Model Using logit to model zero vs non-zero Using Negative Binomial for counts dependent variable y: Y 0 1 2 3 359 52 7 3 generating start values...done MLE begins... initial value 262.883959 error in optim(fn = llhfunc, par = stval, method = method, control = control, : non-finite finite-difference value [3] Short version of my question: what information does non-finite finite-difference value [3] give? Extended version of my question: Since zeroinfl() calls optim(), I assume, that an infinite value is generated during the iteration steps of the optimizing algorithm. So...

...uot; > tr1 <- new("track", x=1:3, y=4:6) > setMethod("plot", + signature(x="track", y="missing"), + function(x, y, ...)plot(x at x, x at y, ...) + ) [1] "plot" > plot(tr1) Error in plot.window(xlim, ylim, log, asp, ...) : need finite xlim values In addition: Warning messages: 1: no finite arguments to min; returning Inf 2: no finite arguments to max; returning -Inf 3: no finite arguments to min; returning Inf 4: no finite arguments to max; returning -Inf Am I missing something or is my copy of R 1.9.0pat corrupted? (T...

...was called the Variable Metric method as per Fletcher's 1970 paper it was drawn from. It really works much better with analytic gradients, and the Rvmmin package which is an all-R version that adds bounds and masks is set up to generate a warning if they are not available. Even with bounds, the finite different derivative code can step over a cliff edge with del <- (f(x+h) - f(x))/h i.e., bounds may not be checked within the numerical derivative functions. And "BFGS" is not set up with bounds. "L-BFGS-B" which has them is actually a rather different method. If you get...

Hi list! I'm getting an error message when trying to fit an accelerated failure time parametric model using the aftreg() function from package eha: > Error in optim(beta, Fmin, method = "BFGS", control = list(trace = > as.integer(printlevel)), : > non-finite finite-difference value [2] This only happens when adding four specific covariates at the same time in the model (see below). I understand that kind of problem can come from a too high correlations between my covariates, but is there anything I can do to avoid it? Does something need to be improv...

...reproduce in an email, but the summary statistics are: Min. 1st Qu. Median Mean 3rd Qu. Max. 116.7 266.7 666.7 1348.0 1642.0 16720.0 The call I'm trying to make is: fitdistr(x,"gamma") and the error is: Error in optim(x = c(3466.676842, 1666.749002, 2500.067852, 1200.053892, : non-finite finite-difference value [2] In addition: Warning message: In dgamma(x, shape, scale, log) : NaNs produced I found a couple of other posts from folks who were getting the same error from optim(), but did not find any useful tips for my situation. The error seems to indicate a problem with valu...

...ibution. But there initial value of log-likelihood and iteration 10 value are reasonable. for example: initial value 1451657.994524 iter 10 value 47297.534905 iter 20 value -623478636.8236478 Then the iter 20 vlaue suddelnly changes to a negative value and in the end the error mesage is "non finite finite different [13]" Has any one have this experience of what the wrong is? Thanks! Xin My function is: function (parameters,y,x1,x3) { alpha<-parameters[1:10]; beta<-parameters[11]; g<-parameters[12]; theta<-parameters[13]; j=x3 p=alpha[j]*(x1^beta)*exp(-g*x1)...

Dear all, I am using the optim() function which it stops with the following error messagge: error in optim(...) non-finite finite-difference value I was wondering if somebody might suggest me a way to fix it please. Thanks in advance to all of you. Kind regards, Tom __________________________________________________ [[alternative HTML version deleted]]

Hi! I was wondering about the behavior of the range function wrt. logical NAs: > range(c(0L, 1L, NA), finite=T) [1] 0 1 > range(c(F, T, NA), finite=T) [1] NA NA The documentation is quite clear that "finite = TRUE includes na.rm = TRUE?, so that I would have assumed that these two snippets would produce the same result. - Lukas

The current situation is as follows. AIX: * I still need f77 for linking. Using ld with the suggested flags gives a binary with `exec format error'. The problem seems to be with an unreferenced __start. * The floating point (finite|isnan) stuff is strange, but under control, I think. Plain cc works, gcc has a problem and seems to need having prototypes turned off for IEEE fp. (More below.) * Apart from that, make check goes all the way through at least for me under both cc/f77/make and gcc/f77/make. HPUX: * make c...

Dear R users, I have a question about numerical integration in R. I am facing the 'non-finite function value' error while integrating the function xf(x) using 'integrate'. f(x) is a probability density function and assumed to follow the three parameter (min = 0) beta distribution for which I have estimated the parameters. The function is integrate...

Dear R-help, I am doing clustering via finite mixture model. Please suggest some packages in R to find clusters via finite mixture model with continuous variables. And also I wish to verify the distributional properties of the mixture distributions by fitting the model with lognormal, gamma, exponentials etc,. Thanks in advance,  warm rega...

Dear all, when applying the optim function the following error occured "non-finite finite-difference value" Therefore I would like to ask how one can try to handle such a problem and which strategies have proven useful. (There is only litte guidance on the help list for this kind of problem.) Thank you in advance for your efforts! Best, Martin --

Dear all, There have been one or two questions posted to the list regarding the optim error "non-finite finite-difference value [4]." The error apparently means that the 4th element of the gradient is non-finite. My question is what part(s) of my program should I fiddle with in an attempt to fix it? Starting values? Something in the log-likelihood itself? Perhaps the data (which is gen...

Hi I try to plot a ROC curve, using the ROC library from bioonductor (using the example in the help). Everything runs nicely except, that finally I get the error: "Error in plot.window(xlim, ylim, log, asp, ...) : need finite xlim values" --- > set.seed(123) > state <- c(0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, + 1, 1, 1) > markers <- c(1, 2, 1, 1, 2, 3, 3, 4, 2, 1, 1, 3, 2, 3, 2, 4, + 5, 2, 3, 4) + runif(20, -1, 1) > roc1 <- rocdemo.sca(truth = state, data = markers, rule = dxrule...