search for: steplength

...optim(c(0.1,-0.1),f,method="CG",control=list(trace=0,type=2)) $par 3834.021 -2718.958 $value -0.0009983175 # should be 2! Fix: --- optim.c (Revision 37878) +++ optim.c (Arbeitskopie) @@ -970,7 +970,8 @@ if (!accpoint) { steplength *= stepredn; if (trace) Rprintf("*"); - } + } else + *Fmin = f; } } while (!(count == n || accpoint)); if (coun...

...() to elements of a single list. Any constructive suggestions will be greatly appreciated. Thanks for your consideration, C code: ------------ unionIndependant <- function(outcomes) { intsctn <- c() column2list <- function(x){list(x)} pb <- ProgressBar(max=length(outcomes),stepLength=1,newlineWhenDone=TRUE) for (i in 2:length(outcomes)){ increase(pb) outcomes_ <- apply(combn(outcomes,i),2,column2list) for (j in 1:length(outcomes_)){outcomes_[[j]] <- outcomes_[[j]][[1]]} outcomes_container <- mclapply(outcomes_,prod,mc.cores=3)...

...lt;-unique(wild$Name) filepath <-"c:/Jared/Data/Kenya/Wildebeest/Summary/" # Create an empty dataframe dat3 <- data.frame(Animal) for (i in c(1:length(wild_ID))) { # Create Subset dat <-subset(wild, ID == wild_ID[i]) # Calculate Sum of Movement, put in km dat2 <-(sum(dat$STEPLENGTH))/1000 dat3$Distance[i] <-dat2 # Write Value to CSV file outfile <-paste(filepath,"Animal_Distances",".csv",sep="") write.csv(dat3,file=outfile, quote = FALSE, row.names = FALSE) # Create PHP connection and export distance traveled to specific location in P...

Hi, I would like to know if it is possible to generate a waiting bar in R when you execute your programs like in Matlab, to make the program more living. Particularly for the loops, it can be useful to know how many time left... Thanks in advance, Lo?c Joffre -- View this message in context: http://www.nabble.com/Waiting-bar-tp15186895p15186895.html Sent from the R help mailing list archive at

Hi, I got two questions and would really appreciate any help from here. First, is the penalized maximum likelihood estimation(Firth Type Estimation) only fit for binary response (0,1 or TRUE, FALSE)? Can it be applied to multinomial logistic regression? If yes, what's the formula for LL and U(beta_i)? Can someone point me to the right reference? Second, when I used *logistf *on a dataset with

...>>>> >> >>>> Fix: >> >>>> --- optim.c (Revision 37878) >> >>>> +++ optim.c (Arbeitskopie) >> >>>> @@ -970,7 +970,8 @@ >> >>>> if (!accpoint) { >> >>>> steplength *= stepredn; >> >>>> if (trace) Rprintf("*"); >> >>>> - } >> >>>> + } else >> >>>> + *Fmin = f; >> >>>&gt...

Dear R-help list, I am working on an optimization with R by evaluating a likelihood function that contains lots of Gamma calculations (BGNBD: Hardie Fader Lee 2005 Management Science). Since I am forced to implement lower bounds for the four parameters included in the model, I chose the optim() function mith L-BFGS-B as method. But the likelihood often returns inf-values which L-BFGS-B

I'm solving the differential equation dy/dx = xy-1 with y(0) = sqrt(pi/2). This can be used in computing the tail of the normal distribution. (The actual solution is y(x) = exp(x^2/2) * Integral_x_inf {exp(-t^2/2) dt} = Integral_0_inf {exp (-xt - t^2/2) dt}. For large x, y ~ 1/x, starting around x~2.) I'm testing both lsoda and rk4 from the package odesolve. rk4 is accurate using step