search for: residials

I've been trying to figure out how to get the names of the parameter vector variables when inside the function that nlm calls to return the objective function value: knls <- function( theta, eqns, data, fitmethod="OLS", instr=NULL, S=NULL ) { ## print( names( theta ) ) # returns NULL ## get the values of the parameters for( i in 1:length( theta ) )

Dear R programming folks: I'm trying to finish off a package for non-linear simultaneous system estimation and I've been trying to figure out how to get the names of the parameter vector variables when inside the function that nlm calls to return the objective function value: knls <- function( theta, eqns, data, fitmethod="OLS", instr=NULL, S=NULL ) { ## print(

...x with plot(x) are calculated as r <- residuals(x) s <- sqrt(deviance(x)/df.residual(x)) w <- weights(x) hii <- lm.influence(x)$hat r.w <- if (is.null(w)) r else (sqrt(w) * r) rs <- r.w/(s * sqrt(1 - hii)) This implies that, for example, for binomial B(ni,pi) data the devaince residials (which are just r) are weighted not only with sqrt(1-hii), but also with 1/sqrt(ni) and s, leading to absurd values. As a result all leverage/outlier diagnostics is absolutly wrong. Am I right and this should be reported as a bug? Many thanks, Tatyana -- Tatyana Krivobokova Bielefeld Universi...