Displaying 4 results from an estimated 4 matches for "nls_port_fit".
2009 Nov 05
2
Error in nls Error in if(any(start < low || start > upp)) {: missing value when TRUE/FALSE needed
Hi,
I got this error every time when I put upper and lower bound on my
parameters in nls. I'm not quite sure what this error is about. I also
wanted to find the content of nls_port_fit. But typing this directly
into R doesn't seem to give any result out.
I also tried to see the content of If anybody could shed some light
I'd greatly appreciate. Thank you.
rc
2009 Jul 23
1
Network from package functions
...cross-references from one function to another in the
same or some dependent package?
An example would be a function like 'nls' on top of the hierarchy and
then a network of nodes from the functions that are called within 'nls'
such as
'getInitial', 'nlsModel', 'nls_port_fit' etc. Important maybe also some
way to tweak such as not to include < trivial > functions such as
'as.formula'.
Many thanks in advance,
Andrej
_____________________________________
Dr. rer. nat. Andrej-Nikolai Spiess (Dipl. Biol.)
Department of Andrology
University Hospital Ha...
2009 Feb 19
2
bugfix for nls with port algorithm (PR#13540)
Full_Name: Manuel A. Morales
Version: 2.8.1
OS: Linux
Submission from: (NULL) (137.165.199.246)
When fitting a model in nls using the algorithm port with constraints and the
shorthand parameter[factor] in the model, I get the following error message:
"Error in nls_port_fit(m, start, lower, upper, control, trace) :
(list) object cannot be coerced to type 'double'
In addition: Warning message:
In start < low :
longer object length is not a multiple of shorter object length"
This error can be fixed by changing line 423 in nls.R from:
if(any(start...
2007 Apr 16
1
nls with algorithm = "port", starting values
...th 1. Ie, start = list(a=1,b=2,c=3) is ok, but start = list(a=c(1,2),
b=3) is not. This is not the case when algorithm is "plinear" or the
default GN, and is because of the way that the "port" code in nls.R
transforms the starting values (the other options do something else):
nls_port_fit <- function(m, start, lower, upper, control, trace)
{
## Establish the working vectors and check and set options
p <- length(par <- as.double(start))
Example:
## exponentially decaying data
getExpmat <- function(theta, t)
{
conc <- matrix(nrow = length(t), ncol = l...