search for: init0

...>>>> + n.used <- sum(!is.na(resid(fit))) - length(Delta) >>>> + } else { >>>> + n.used <- sum(!is.na(resid(fit))) >>>> } >>>> - n.used <- sum(!is.na(resid(fit))) - length(Delta) >>>> init0 <- c(init0, coef(fit)) >>>> ses <- summary(fit)$coefficients[, 2L] >>>> parscale <- c(parscale, 10 * ses) >>>> >>> >>> Yes, such a change *is* small in the source code. >>> But we have to be sure about its desirability. >...

...After verifying that the connection was okay, I hunted around on the net and found the following document: http://ftp.nluug.nl/os/Linux/distr/smeserver/contribs/rmitchell/smeserver/howto/powstatd HOWTO for sme server.htm It indicates that the settings to use when connected via a INT-0025C are: init0 dsr init0 rng init0 dtr init1 rts fail cts,0 low dcd,0 kill dtr,1 This seems to agree with the definition of type 7 in genericups.h: /* Type 7 */ { "CyberPower", "Power99", "CyberPower Power99", TIOCM_RTS, /* cable power: RTS */ TIOCM_CTS, TIOCM_CTS, /*...

...not to break old code fit <- lm(x ~ xreg - 1, na.action = na.omit) + n.used <- sum(!is.na(resid(fit))) - length(Delta) + } else { + n.used <- sum(!is.na(resid(fit))) } - n.used <- sum(!is.na(resid(fit))) - length(Delta) init0 <- c(init0, coef(fit)) ses <- summary(fit)$coefficients[, 2L] parscale <- c(parscale, 10 * ses) The patch that introduced the bug ( https://github.com/wch/r-source/commit/32f633885a903bc422537dc426644f743cc645e0 ) was designed to change the initialization for the optimi...

...xreg - 1, na.action = na.omit) >> + n.used <- sum(!is.na(resid(fit))) - length(Delta) >> + } else { >> + n.used <- sum(!is.na(resid(fit))) >> } >> - n.used <- sum(!is.na(resid(fit))) - length(Delta) >> init0 <- c(init0, coef(fit)) >> ses <- summary(fit)$coefficients[, 2L] >> parscale <- c(parscale, 10 * ses) >> > > Yes, such a change *is* small in the source code. > But we have to be sure about its desirability. > > In another post about thi...

...- 1, na.action = na.omit) >> else list(rank = 0L) >> if(fit$rank == 0L) { >> ## Degenerate model. Proceed anyway so as not to break old code >> fit <- fitI >> } >> n.used <- sum(!is.na(resid(fitI))) - length(Delta) >> init0 <- c(init0, coef(fit)) >> >> At least that would be the conservative change to get n.used indentical to what it was in 3.0.1 (Sorry for not taking up the thread ..) That's definitely conservative and hence safest from that point of view. On the other hand, to me, it...

...fit <- lm(x ~ xreg - 1, na.action = na.omit) > + n.used <- sum(!is.na(resid(fit))) - length(Delta) > + } else { > + n.used <- sum(!is.na(resid(fit))) > } > - n.used <- sum(!is.na(resid(fit))) - length(Delta) > init0 <- c(init0, coef(fit)) > ses <- summary(fit)$coefficients[, 2L] > parscale <- c(parscale, 10 * ses) > Yes, such a change *is* small in the source code. But we have to be sure about its desirability. In another post about this you mention "REML", and...

...E if (transform.pars) { ind <- arma[1] + arma[2] + seq_len(arma[3]) if (any(!mask[seq_len(arma[1])]) || any(!mask[ind])) { warning("some AR parameters were fixed: setting transform.pars = FALSE") transform.pars <- FALSE } } init0 <- rep(0, narma) parscale <- rep(1, narma) if (ncxreg) { cn <- colnames(xreg) orig.xreg <- (ncxreg == 1) || any(!mask[narma + 1:ncxreg]) if (!orig.xreg) { S <- svd(na.omit(xreg)) xreg <- xreg %*% S$v } fit &lt...

...>>> + n.used <- sum(!is.na(resid(fit))) - length(Delta) >>> + } else { >>> + n.used <- sum(!is.na(resid(fit))) >>> } >>> - n.used <- sum(!is.na(resid(fit))) - length(Delta) >>> init0 <- c(init0, coef(fit)) >>> ses <- summary(fit)$coefficients[, 2L] >>> parscale <- c(parscale, 10 * ses) >>> >> >> Yes, such a change *is* small in the source code. >> But we have to be sure about its desirability....

There is currently a bug in the arima function. Namely, for arima models with differencing or seasonal differencing, the innovation variance estimator uses the wrong denominator whenever xreg is non-null. This is the case, for example, when fitting an ARIMA(p,1,q) model with a drift term (common in financial applications). I reported the bug (and a fix) at

...a0 } a1 ~ dnorm(0, 1.0E-4) a0 ~ dnorm(0, 1.0E-4) } #----------------------------------# N = 12 n = c(63, 33, 18, 16, 36, 3, 33, 101, 64, 30, 10, 36) z1 = c(33, 8, 14, 4, 2, 8, 24, 76, 35, 14, 6, 22) z2 = c(37, 8, 16, 6, 3, 10, 28, 91, 56, 17, 8, 28) type = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1) init0 = list(a0 = 0.0, a1 = 0.0, .RNG.seed = 1234, .RNG.name = "base::Super-Duper") init1 = list(a0 = 1.0, a1 = 1.0, .RNG.seed = 1234, .RNG.name = "base::Super-Duper") jags <- jags.model('model3.bug', data = list('N' = N,...

I finally got a clean compile and link for wxRuby. Now I''m down to deciphering runtime errors. Once again, I''m going to pick up on this tomorrow, but I thought I''d post my console output tonight to see if anyone has any thoughts before I tackle this tomorrow. I''m running the same app "minimal.rb" E:\Dev\RubyDev\wxruby\samples\minimal>ruby

...9;'ve attached button.cpp and button.h which are my current drop-in replacements for the original wxRuby-0.6.0 files of the same name. I may post the code inline if there is an issue with attachments on this mailing list. I haven''t made any effort yet to remove the necessity for the init0 functions. The MapRubyObjectToCppObject is there at the moment for compatibility with the rest of the code base and the init/constructor functions will merge soon. I''m fairly sure I can make the instance method definitions disappear altogether when the wrapper is along the same simplis...