search for: prestig

...g simple function (meant just to illustrate the problem): > fun <- function(model){ + expand.model.frame(model, all.vars(formula(model))) + } > and I have the following model, created with an explicit data argument: > mod Call: lm(formula = prestige ~ income + I(education^2), data = Prestige) Coefficients: (Intercept) income I(education^2) 15.129723 0.001262 0.188479 Here fun() works fine, adding education from the data frame Prestige to the model frame: > fun(mod)...

...== row(cont)] <- 1 cont[lenglev, ] <- -1 } else { cont <- array(0, c(lenglev, lenglev), list(levels, levels)) cont[col(cont) == row(cont)] <- 1 } cont } > library(car) . . . > data(Prestige) > attach(Prestige) > contrasts(type) <- "contr.Treatment" > > lm(prestige ~ (income + education)*type) # default behaviour Call: lm(formula = prestige ~ (income + education) * type) Coefficients: (Intercept) incom...

Hi, I've got a Powerware Prestige 9 1kVA UPS that seems to not be working with nut. It's not in the current "supported hardware" list, but the old bcmxcp page lists it as being a UPS that speaks that protocol. I have the following in my ups.conf [powerware] driver = bcmxcp port = /dev/ttyS0 desc = "Powerwar...

I am getting an error message from scatterplot: > library(car) > scatterplot(Prestige$income~Prestige$type) Error in Summary.factor(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, : range not meaningful for factors In addition: Warning message: In Ops.factor(x[floor(d)], x[ceiling(d)]) : + not meaningful for factors > The command does output the kind of graph that I want (bo...

Hi, Does anyone have suggestions hooking Zyxel Prestige 2002 to Asterisk? I have tested Zyxel Prestige with both supported codecs. Call with G.711 sounds very choppy and cracking. Almost can't understand a word. Today I installed G.729 support into Asterisk but unbearable voice quality remains. It's a little bit better though. I have test...

Does anybody have any experience with the ZyXEL Prestige 2000W? I am having problems with the line tear down when I call another extension. If nobody picks up at the other end when I hangup the 2000W, the other extension continues to ring. Is there any way to hangup a SIP call if there is no more traffic? Asterisk seems to think that there is still...

Dear List, I don't get scatter3d to color the sheres according to the '|' argument. library(car) scatter3d(prestige ~ income + education|type, data=Prestige) The spheres on my screen are all colored the same and they are not conditional on Prestige$type. On the other hand: Fit3d and Ellipse3d are colored according to the group argument. rgl_0.92.879 car_2.0-12 R version 2.15.0 i686-pc-linux-gnu (32-bit) I ch...

Hello Rui, Thanks for your helpful suggestions. Just for illustration, let's use the well known Duncan dataset of prestige vs education + income that is contained in the "car" package. Suppose I wish to use boot function to bootstrap a linear regression of prestige ~ education + income and use the following script: duncan.function <- function(data, indices) {data = data[indices,] mod <- lm(prestige...

Dear R-help list members, I'm encountering problems using expand.model.frame. To illustrate, consider the function > test <- function(model){ + expand.model.frame(model, "income") + } > The data frame Prestige (from the car library) has several variables, including prestige, income and education. I've attached this data frame > search() [1] ".GlobalEnv" "Prestige" "package:lattice" "package:grid" "package:car" &quot...

Hi all, I've more-or-less got NUT 2.0.4 working with my Powerware Prestige 1000VA UPS (serial), but unfortunately NUT is flagging LOW_BATTERY continuously, which is a tad embarrassing when power fails ;-) The numbers from upsc blah at localhost seem reasonable: ambient.temperature: 24.5 battery.charge: 99 battery.runtime: 3999 battery.voltage: 69.2 driver.name: bcm...

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hi, Anyone have any experience with either of these, I 'd appreciate some feedback? Plus it seems pretty easy to steal a connection with this. Zyxel Prestige 2000W WiSIP thanks, - -- Steve "They that would give up essential liberty for temporary safety deserve neither liberty nor safety." Benjamin Franklin -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.4 (GNU/Linux) iD8DBQFA9Ah3ljK16xgETzkRApPFAJwO1PQ/...

If you see a wj0011 version of firmware for Zyxel Prestige 2000W floating around (I found it in a German forum), KEEP AWAY. It completely trashed the wireless networking in my phone. -- ========================================== Rod Bacon Empowered Communications Ground Floor, 102 York St. South Melbourne Victoria, Australia. 3205 Phone: +613 9940160...

Hello, does NUT support Powerware Prestige EXT 1000VA / PowerWorks A30 models in smart mode? I don't see them mentioned in the compatibility list (only Powerware 3115 and 5119 are there, listed as supported only by the "genericups" driver). Is the protocol known to be compatible with any other, supported UPS types? Thanks,...

...screpancy in the degrees of freedom reported by gam() from the gam package in R vs. gam() in S-PLUS. The nonparametric df differ by 1; otherwise (except for things that depend upon the df), the output is the same: --------- snip ------------ *** From R (gam version 0.93): > mod.gam <- gam(prestige ~ lo(income, span=.6), data=Prestige) > summary(mod.gam) Call: gam(formula = prestige ~ lo(income, span = 0.6), data = Prestige) Deviance Residuals: Min 1Q Median 3Q Max -17.163 -8.205 -1.998 8.070 32.326 (Dispersion Parameter for gaussian family taken to be 122.5047...

...tion boot calls to return the predicted values at the point of interess, education = 50, income = 75. I have changed the way the function uses the indices a bit, the result is the same, it's just the way I usually do it. pred.duncan.function <- function(data, indices) { mod <- lm(prestige ~ education + income, data = data[indices, ]) new <- data.frame(education = 50, income = 75) predict(mod, newdata = new) } set.seed(94) # make the results reproducible Predicted <- boot(Duncan, pred.duncan.function , 1000) head(Predicted) Predicted$t0 boot.ci(Predicted, index...

I've encounted a problem using expand.model.frame. To illustrate, consider the function > test <- function(model){ + expand.model.frame(model, "income") + } > The data frame Prestige (from the car library) has several variables, including prestige, income and education. I've attached this data frame and fit the following model > mod.1 <- lm(prestige ~ (log(income) + education)*type) > From the documentation for expand.model.frame, the default enviro...

...n the label for the top legend disappearing. Is this an infelicity or bug, or is there something I've missed? More generally, how do I control the size of fonts used in legends and axis labels? library(car) library(ggplot2) qp <-qplot (education , income , shape=type , size=women , colour=prestige , xlab="Education" , ylab="Income", data=Prestige) + scale_y_continuous(limits=c(NA, 20000)) qp + scale_size(to=c(1,8)) ggsave(file="prestige-ggplot.png", width=6, height=5) # OK ggsave(file="prestige-ggplot.pdf", width=6, height=5) # fonts too larg...

---------- Forwarded message ---------- From: Tim Dawson <tadawson at tpcsvc.com> Date: Thu, Feb 13, 2014 at 12:07 AM Subject: Re: [Nut-upsuser] Powerware (Eaton) Prestige 9 UPS To: Charles Lepple <clepple at gmail.com> Charles - As a quick followup, the Prestige (both FW 2.13 and 3.09 - 2.x is pre-Eaton, 3.x post) reply to the topology block query thus: 3.064046 send_command: (4 bytes) => ab 01 43 11 3.136246 get_answer: (2 bytes) => 3...

Hi All, Today I got a couple of ZyXEL Prestige 2000W WiFi phones. I'm having a problem making SIP calls although I can receive calls just fine. When I try to make a call the phone makes some sound (like "bup bup bup bup bup bup beep beep") and then I just hear hissing background noise (not too loud - like comfort noise). I upg...

Looking for Powerware Prestige 9 Series 6000VA. If you know where I can buy one please respond. thanks!