Displaying 1 result from an estimated 1 matches for "yft".
Did you mean:
yet
2010 Sep 29
2
R crashes when loading rgl package before minqa package
...9,968.4113,991.5210,977.3361,985.7800,975.5220,974.6880,973.8102,980.7295,982.0034,984.7993,978.4948,970.4351,969.0718,983.7892,976.3637,980.7833,987.1665,976.6000,975.1332,971.0757,989.4693)
initpar = c(-5.1471384, -3861.8905839, 979.2616002, 0.2572355, 27.5705764)
optimft <- function(x) {
yft = x[2] + (x[3] - x[2])/((1 + exp(x[1] * (log(xvals) - log(x[4]))))^x[5])
return(sum((yvals - yft)^2))
}
Sequence of commands needed to make the bug appear:
<Start R>
source('bugs.R')
library(minqa)
library(rgl)
newuoa(initpar, optimft)
=> OK
<Start R>
source('bug...