search for: nox

...nd I can't correct them without introducing a for()! Here is my shot at a vectorized solution, as far as I can take it. Preliminary Vectorized Code: X <- matrix(sample(c(1,0,0,0,0), 500, replace = TRUE), 25, 20, byrow=TRUE) colnames(X) <- c(paste("a", 1:20, sep="")) noX <- X; noX[X!=0] <- 0; cumX <- noX; cumNoX <- noX; Y1 <- noX; Y2 <- X; Y3 <- X for (e in 1:ncol(X)) { cumX[,e] <- cumsum(X[,e]) noX[X[,e] < 1 & cumsum(X[,e]) > 0 ,e] <- 1 cumNoX[,e] <- cumsum(noX[,e]) } Y1[cumNoX > 0] <- cumNoX[cumNoX > 0] + 1 Y2...

Dear R users I want to compute Kendall's Tau between two vectors x and y. But x and y may have zeros in the same position(s) and I wrote the following function to be sure to drop out those "double zeros" "cor.kendall" <- function(x,y) { nox <- c() noy <- c() # for (i in 1:length(x)) if (x[i]!= 0 | y[i] != 0) nox[length(nox)+1]<- x[i] for (i in 1:length(y)) if (x[i]!= 0 | y[i] != 0) noy[length(noy)+1]<- y[i] # res.kendall <- cor.test(nox,noy,method = "kendall",exact=F) return(list(x=no...

...k. Using this function keeps up to 14-16 seconds to read 512Mb of memory with the 64Kb limitation and 2-3 seconds with the 1Mb one; but the most annoying thing is that I can't run several environment concurrently as the function keeps failing. Here's the typical output: File "/home/nox/workspace/NOX/src/NOX/hooks.py", line 134, in trigger hook.trigger(event) File "/home/nox/workspace/NOX/src/NOX/hooks.py", line 33, in trigger self.handlers[event]() File "/home/nox/workspace/NOX/hooks/volatility.py", line 81, in memory_dump for block in Mem...

So we got an Ubuntu 10.10 VPS, and go there with SSH putty, working with Xming as X server. This is what we did so far, to host a dedicated nox server. Code: apt-get update sudo apt-get install wine sudo apt-get install xorg wget *noxinstall url* unzip noxinstall.zip wine NoxInstall.exe (an installer and we put it in /root/Nox/) Wine wouldn't recognice a CD, so a crack gets installed automaticly. There's 3 exe's; GAME.EX...

hi, I'm using OpenSuSE 11.1 with wine version 1.1.9 downloaded from the repositories. Nox is a game from Westwood that I used to play using wine until recently... It required a CD to be played so I mounted it's image and linked it in to the dosdevices directory in ~/.wine. After doing that the game ran fine. However, I was running out of space on my HOME partition so i used Gparted...

...does not work with this many variables (see below). The alternative function regsubsets should be used, but I am not able to define the function in such a way that is gives satisfactory results. library(leaps) data <- read.table('C:/test_plot_sum2.txt', header = TRUE) attach(data) nox <- data[,1] cnt <- data[,2] vars <- data[,3:48] leaps.setup(x = vars, y = nox, wt = cnt, nvmax = 1) leaps(x = vars, y = nox, wt = cnt, method = "Cp", nbest = 2, names = names(vars)) Error in leaps(x = vars, y = nox, wt = cnt, method = "Cp", nbest = 2, :...

...I used the argument incl.non.slopes=FALSE. But either if it is TRUE or FALSE it does not have any difference and also the system does not provide any warning. I really cannot understand what is happening and I use both predict and predict.lm but there is no difference. Explicitly the code is: fe.nox <- lm(nox~ state.1 + state.2 + state.3 + state.4 + state.5 + state.6 + state.7 + state.8 + state.9 + time.1 + time.2 + time.3 + time.4 + time.5 + time.6 + time.7 + pcinc + I(pcinc^2) + I(pcinc^3), data=ekc) p.fe.nox<-predict.lm(fe.nox, new, interval = "prediction&qu...

...since we estimate the response's quantile prediction as a function of the quantile index? (If I understand correctly). So, if I use the following code the predict command seems to work fine dyear<-dummy(ekc$year)[,-1] dstate<-dummy(ekc$state)[,-1] dekc<-cbind(ekc, dyear, dstate) z.nox<-rq(nox~dyear+dstate+pcinc+I(pcinc^2)+I(pcinc^3), tau=-1, data=dekc) zp.nox <- predict(z.nox,newdata=list(pcinc=ekc$pcinc, dyear=dummy(ekc$year)[,-1], dstate=dummy(ekc$state)[,-1]), type="stepfun") but when I am going to do the plot plot(zp.nox,do.points = FALSE, xlab = express...

Hi all, I'm trying to find a way to get xyplot to produce a second set of axes outside the right hand side of the graph. This is my progress so far: EE <- equal.count(ethanol$E, number=9, overlap=1/4) xyplot(NOx ~ C | EE, data = ethanol, prepanel = function(x, y) prepanel.loess(x, y, span = 1), xlab = "Compression Ratio", ylab = "NOx (micrograms/J)", panel = function(x, y) { panel.grid(h=-1, v= 2) panel.xyplot(x, y) panel.loess(x,...

...mething like this: <snip> jpeg( filename = "D:/Martin/Work/CleanPath/RAF1%03d.jpg", width = 1000, height = 600, pointsize = 12, quality = 100, bg = "white", res = 96, restoreConsole = TRUE ) boxplot( dafExpo[,c(1,2,3,4,5,6,7,8,9,10,11,12)], main = "Total NOx Exposure per trip" ) numAxeMax = max(dafExpo$grn07, dafExpo$grn09, dafExpo$grn14, dafExpo$grn16) plot( dafExpo$grn07,dafExpo$grn09, xlim=c(0,numAxeMax), ylim=c(0,numAxeMax), pch=1, xlab="Green at 7 AM : NOx [(?g/m3)*hour]", ylab="Green at 9 AM : NOx [(?g/m3)*hour]"...

I am trying to install an old game called Nox in Linux under WINE. I have tried running setup.exe from both the main directory as well as from the setup directory. The screen goes black and I get a box with "DirectX Error" as a title and the message is "Action not supported". Can someone tell me how to fix that ... I see...

...e on Red Hat 6.x and higher. If this problem concerns you, an upgrade is recommended. 4. Solution: For each RPM for your particular architecture, run: rpm -Fvh [filename] where filename is the name of the RPM. 5. Bug IDs fixed (http://bugzilla.redhat.com/bugzilla for more info): 11335 - emacs-nox built with X11 locale 10948 - emacs-nox does not accept pasted data 10798 - Emacs shell-script mode doesn''t know about bash2 9895 - Nit: png file marked as conf file. 6. RPMs required: Red Hat Linux 6.2: intel: ftp://ftp.redhat.com/redhat/updates/6.2/i386/emacs-20.7-1.i386.rpm ftp://ft...

...s on balanced panel data (the example from the "plm" vignette), but I failed to do so on my real, unbalanced panel data. I can reproduce the error on a modified example from the vignette: > require(plm) > data("Hedonic") > Hed <- pvcm(mv ~ crim + zn + indus + chas + nox + rm + age + dis +rad + tax + ptratio + blacks + lstat, Hedonic, model = "within",index = "townid") Error in FUN(X[[1L]], ...) : insufficient number of observations > ##it fails for both FE and RE cases > Hed <- pvcm(mv ~ crim + zn + indus + chas + nox + rm + age + dis...

...st [Release 2.07 GPL Edition] Sun Apr 10 17:36:56 2011 ## --------------------------------- ## ## Target attribute `outcome' ## ## Read 506 cases (14 attributes) from undefined.data ## ## Model: ## ## Rule 1: [101 cases, mean 13.84, range 5 to 27.5, est err 1.98] ## ## if ## nox > 0.668 ## then ## outcome = -1.11 + 2.93 dis + 21.4 nox - 0.33 lstat + 0.008 b ## - 0.13 ptratio - 0.02 crim - 0.003 age + 0.1 rm ## ## Rule 2: [203 cases, mean 19.42, range 7 to 31, est err 2.10] ## ## if ## nox <= 0.668 ## lstat > 9.59 ## then #...

...st [Release 2.07 GPL Edition] Sun Apr 10 17:36:56 2011 ## --------------------------------- ## ## Target attribute `outcome' ## ## Read 506 cases (14 attributes) from undefined.data ## ## Model: ## ## Rule 1: [101 cases, mean 13.84, range 5 to 27.5, est err 1.98] ## ## if ## nox > 0.668 ## then ## outcome = -1.11 + 2.93 dis + 21.4 nox - 0.33 lstat + 0.008 b ## - 0.13 ptratio - 0.02 crim - 0.003 age + 0.1 rm ## ## Rule 2: [203 cases, mean 19.42, range 7 to 31, est err 2.10] ## ## if ## nox <= 0.668 ## lstat > 9.59 ## then #...

...A NA NA ... $ CO.tunn : num NA NA NA NA NA NA NA NA NA NA ... $ CO.diff : num NA NA NA NA NA NA NA NA NA NA ... $ NO.fresh : num NA NA NA NA NA NA NA NA NA NA ... $ NO.tunn : num NA NA NA NA NA NA NA NA NA NA ... $ NO.diff : num NA NA NA NA NA NA NA NA NA NA ... $ NOx.fresh : num NA NA NA NA NA NA NA NA NA NA ... $ NOx.tunn : num NA NA NA NA NA NA NA NA NA NA ... $ NOx.diff : num NA NA NA NA NA NA NA NA NA NA ... $ NOx.fresh : num NA NA NA NA NA NA NA NA NA NA ... $ NOx.tunn : num NA NA NA NA NA NA NA NA NA NA ... $ NOx.diff : num...

I ran the following script from xyplot Examples using Tin-R on Windows and saw no plot produced. EE <- equal.count(ethanol$E, number=9, overlap=1/4) xyplot(NOx ~ C | EE, data=ethanol, prepanel = function(x,y) prepanel.loess(x, y, span=1), xlab="Compression Ratio", ylab="NOx (micrograms/J)", panel = function(x,y) { panel.grid()(h = -1, v=2) panel.xyplot(x,y) panel.loess(x,y, span=1) }, aspe...

I would like to draw smooth curves instead of polygons. I could not find any spline function to do that : given an x and a y vectors, they all take the x in increasing order. Is there a function to draw a smooth curve through a set of points in any order ? with many thanks in advance Alain Guerreau CNRS Paris [[alternate HTML version deleted]]

...a as capitalized G, P and S) and pollutant name. Names with no ?L? prefix or 01/04 suffix are lag 0. Lag 01 is average of lag 0 and 1, and 04 is average of 0 to 4 days. How can one do that in R? I will ignore the other components( e.g. 10 , max or mean) Current stand L1o3maxG10 L1o3P10 L2o3G10 noxP10 pm25S_01 comeanS_03 noxP_04 What I want to get : pollutant Lag station o3 1 G o3 1 P o3 2 G nox 0 P Pm25 01 S co 03 S nox 04 P Thanks -- View this message in context: http://r.789695.n4.nabble.com/Split-data-frame-and-create-a-new-column-tp4649683.html Sent from the R help mailing list...

...important to you use JGR to use the Java Graphics Device. *** To Replicate the Bug ***: 1.- display an xyplot. For example, from the xyplot help page: library(lattice) require(stats) EE <- equal.count(ethanol$E, number=9, overlap=1/4) ## Constructing panel functions on the fly; prepanel xyplot(NOx ~ C | EE, data = ethanol, prepanel = function(x, y) prepanel.loess(x, y, span = 1), xlab = "Compression Ratio", ylab = "NOx (micrograms/J)", panel = function(x, y) { panel.grid(h=-1, v= 2) panel.xyplot(x, y) panel.loess(x,y,...