Displaying 13 results from an estimated 13 matches for "getallpars".
2010 Aug 13
2
Unable to retrieve residual sum of squares from nls output
.....$ lhs :function ()
> ..$ gradient :function ()
> ..$ conv :function ()
> ..$ incr :function ()
> ..$ setVarying:function (vary = rep(TRUE, length(useParams)))
> ..$ setPars :function (newPars)
> ..$ getPars :function ()
> ..$ getAllPars:function ()
> ..$ getEnv :function ()
> ..$ trace :function ()
> ..$ Rmat :function ()
> ..$ predict :function (newdata = list(), qr = FALSE)
> ..- attr(*, "class")= chr "nlsModel"
> $ convInfo :List of 5
> ..$ isConv...
2013 May 28
6
Ocultar componentes de una lista
...)
..$ deviance :function ()
..$ lhs :function ()
..$ gradient :function ()
..$ conv :function ()
..$ incr :function ()
..$ setVarying:function (vary = rep(TRUE, length(useParams)))
..$ setPars :function (newPars)
..$ getPars :function ()
..$ getAllPars:function ()
..$ getEnv :function ()
..$ trace :function ()
..$ Rmat :function ()
..$ predict :function (newdata = list(), qr = FALSE)
..- attr(*, "class")= chr "nlsModel"
$ convInfo :List of 5
..$ isConv : logi TRUE
..$ finIter : i...
2013 May 28
3
Ocultar componentes de una lista
...)
..$ deviance :function ()
..$ lhs :function ()
..$ gradient :function ()
..$ conv :function ()
..$ incr :function ()
..$ setVarying:function (vary = rep(TRUE, length(useParams)))
..$ setPars :function (newPars)
..$ getPars :function ()
..$ getAllPars:function ()
..$ getEnv :function ()
..$ trace :function ()
..$ Rmat :function ()
..$ predict :function (newdata = list(), qr = FALSE)
..- attr(*, "class")= chr "nlsModel"
$ convInfo :List of 5
..$ isConv : logi TRUE
..$ finIter : in...
2013 May 28
3
Ocultar componentes de una lista
...mula :function ()
..$ deviance :function ()
..$ lhs :function ()
..$ gradient :function ()
..$ conv :function ()
..$ incr :function ()
..$ setVarying:function (vary = rep(TRUE, length(useParams)))
..$ setPars :function (newPars)
..$ getPars :function ()
..$ getAllPars:function ()
..$ getEnv :function ()
..$ trace :function ()
..$ Rmat :function ()
..$ predict :function (newdata = list(), qr = FALSE)
..- attr(*, "class")= chr "nlsModel"
$ convInfo :List of 5
..$ isConv : logi TRUE
..$ finIter : int 6
..$...
2008 Dec 22
0
nlsrob fails with puzzling error message on input accepted by nls
...for the
parameters that come from nls - no huge values, NAs or infinities for
the values of the independent variables. But nlrob fails immediately
(on the first pass) with the error message
> pxe2 <- nlrob(dpx ~ peFnc(tradeSide, tradeSz, tcScale, szScale,
alpha), data=fitData, start= pxe$m$getAllPars(), trace=TRUE);
robust iteration 1
2138.747 : 2.19 2.31 0.45
Error in numericDeriv(form[[3]], names(ind), env) :
<--------------------
Missing value or an infinity produced when evaluating the model
<-------------------
With debug(), I've traced the problem to the call to nls() insi...
2013 May 28
0
Ocultar componentes de una lista
...ction ()
> ..$ lhs :function ()
> ..$ gradient :function ()
> ..$ conv :function ()
> ..$ incr :function ()
> ..$ setVarying:function (vary = rep(TRUE, length(useParams)))
> ..$ setPars :function (newPars)
> ..$ getPars :function ()
> ..$ getAllPars:function ()
> ..$ getEnv :function ()
> ..$ trace :function ()
> ..$ Rmat :function ()
> ..$ predict :function (newdata = list(), qr = FALSE)
> ..- attr(*, "class")= chr "nlsModel"
> $ convInfo :List of 5
> ..$ isConv : logi...
2004 Oct 16
7
sapply and loop
Dear all,
I am doing 200 times simulation. For each time, I generate a matrix and
define some function on this matrix to get a 6 dimension vector as my
results.
As the loop should be slow, I generate 200 matrice first, and save them into
a list named ma,
then I define zz<-sapply(ma, myfunction)
To my surprise, It almost costs me the same time to get my results if I
directly use a loop
2004 Oct 16
7
sapply and loop
Dear all,
I am doing 200 times simulation. For each time, I generate a matrix and
define some function on this matrix to get a 6 dimension vector as my
results.
As the loop should be slow, I generate 200 matrice first, and save them into
a list named ma,
then I define zz<-sapply(ma, myfunction)
To my surprise, It almost costs me the same time to get my results if I
directly use a loop
2013 May 28
0
Ocultar componentes de una lista
...)
..$ deviance :function ()
..$ lhs :function ()
..$ gradient :function ()
..$ conv :function ()
..$ incr :function ()
..$ setVarying:function (vary = rep(TRUE, length(useParams)))
..$ setPars :function (newPars)
..$ getPars :function ()
..$ getAllPars:function ()
..$ getEnv :function ()
..$ trace :function ()
..$ Rmat :function ()
..$ predict :function (newdata = list(), qr = FALSE)
..- attr(*, "class")= chr "nlsModel"
$ convInfo :List of 5
..$ isConv : logi TRUE
..$ finIter : i...
2004 Oct 19
0
Question on Rprof(); was: Re: sapply and loop
...ed(storm.fm))
>>> > storm.bf <- function(rs, i) {
>>> > st$Time <- st$fit + rs[i]
>>> > tmp <- nls(Time ~ (b * Viscosity)/(Wt - c), st,
>>> > start = coef(storm.fm))
>>> > tmp$m$getAllPars()
>>> > }
>>> > rs <- scale(resid(storm.fm), scale = FALSE) # remove the mean
>>> > Rprof("boot.out")
>>> > storm.boot <- boot(rs, storm.bf, R = 4999) # pretty slow
>>> > Rprof(NULL)
>>>
&g...
2013 May 28
0
Ocultar componentes de una lista
...ction ()
> ..$ lhs :function ()
> ..$ gradient :function ()
> ..$ conv :function ()
> ..$ incr :function ()
> ..$ setVarying:function (vary = rep(TRUE, length(useParams)))
> ..$ setPars :function (newPars)
> ..$ getPars :function ()
> ..$ getAllPars:function ()
> ..$ getEnv :function ()
> ..$ trace :function ()
> ..$ Rmat :function ()
> ..$ predict :function (newdata = list(), qr = FALSE)
> ..- attr(*, "class")= chr "nlsModel"
> $ convInfo :List of 5
> ..$ isConv : logi...
2013 May 29
0
Ocultar componentes de una lista
...ction ()
> ..$ lhs :function ()
> ..$ gradient :function ()
> ..$ conv :function ()
> ..$ incr :function ()
> ..$ setVarying:function (vary = rep(TRUE, length(useParams)))
> ..$ setPars :function (newPars)
> ..$ getPars :function ()
> ..$ getAllPars:function ()
> ..$ getEnv :function ()
> ..$ trace :function ()
> ..$ Rmat :function ()
> ..$ predict :function (newdata = list(), qr = FALSE)
> ..- attr(*, "class")= chr "nlsModel"
> $ convInfo :List of 5
> ..$ isConv : logi T...
2008 Dec 29
0
Serial Correlation Test for Short Time Series
...for the
parameters that come from nls - no huge values, NAs or infinities for
the values of the independent variables. But nlrob fails immediately
(on the first pass) with the error message
> pxe2 <- nlrob(dpx ~ peFnc(tradeSide, tradeSz, tcScale, szScale,
alpha), data=fitData, start= pxe$m$getAllPars(), trace=TRUE);
robust iteration 1
2138.747 : 2.19 2.31 0.45
Error in numericDeriv(form[[3]], names(ind), env) :
<--------------------
Missing value or an infinity produced when evaluating the model
<-------------------
With debug(), I've traced the problem to the call to nls() inside...