search for: newy

...meric(x)-1)/iw ty <- 1-(as.numeric(Y)-1)/ih if( tx > tmpplt[1] & tx < tmpplt[2] & ty > tmpplt[3] & ty < tmpplt[4] ){ newx <- (tx-tmpplt[1])/(tmpplt[2]-tmpplt[1])*(tmpusr[2]-tmpusr[1])+tmpusr[1] curx <<- round(newx) tkrreplot(img) newy <- I0[curx] newy <- floor(newy) + (newy-floor(newy))*32/100 # newy2 <- I1[curx] newy3 <- I2[curx] tclvalue(cury) <- paste('x =',curx,' I0=',round(newy,2) ,' I2=',round(newy3,4)) } } tkbind(img, '<Motion...

...I would like to take in a formula, change the response (Y) variable into something else, and then pass the formula, with the new Y variable to another function. That is, I am starting with formula <- Y~X1+X2+X3 and I'd like to do something like Y <- formula$Y newY <- f(Y) lm(newY~X1+X2+X3) So far, it seems that my only option will be a very complicated sequence of steps involving match.call(). Is there a simpler way to change the response variable in a formula? Thanks in advance! Rebecca -- Rebecca Sela Statistics Department Stern School of B...

...oth x and y still show the original values from step 1 # in spite of making changes to the old values of the arrays x and y in the function function (x,y) ??? } step3 output < - function(parX,parY){ Variables for New X and Y newx <- array(parX, dim=c(1,length(parX))) newy <- array(parY, dim=c(1,length(parY))) # make some calculation and updated some arrays element in the newX and # #newY # finally assign the global original values x and y with newX and newY x<- newx...

Hi, I am trying to simulate animal movement in a gridded landscape made up of cells. At each time step (iteration), the animal moves from one cell to another in a random fashion. This is how I am simulating movement, where a and b are the x,y co-ordinates of the animal at the previous time step: for (i in 1:no.of.steps){ direction <- sample(1:8, 1) if(direction == 1){ a <- a b <- b -

On Thursday 28 February 2002 15:44, you wrote: > From: stevesusenet@hotmail.com (Steve) > Subject: Newies Q: ?Getting Started With Wine On Red Hat 7.2 > Date: 28 Feb 2002 07:58:05 -0800 > Organization: http://groups.google.com/ > To: wine-users@winehq.com > Reply-To: wine-users@winehq.com > > Hi; > > I'm running Red Hat 7.2 on a lap top that was given to me

Hello, I'm new to asterisk. My company is opening a new office and I'm seriously considering using Asterisk for the phone system. A couple of questions: How does Asterisk compete with the Avaya IP Office or the Nortel BCM systems? I have purchased a Polycom 500 phone but I'm having trouble getting it setup and talking to Asterisk. Is there somewhere that has SIP phone setup

Dear all, As you can see from the attachment I'm using R to automatically annotate peptide fragmentation mass spectra, which are represented by impulse plots. I'd like to poll you on approaches of how to deal as generally as possible with the two biggest annotation issues I run into: 1) very close annotated masses (impulses) with similar y-axis dimensions - resulting in overlapping labels

...)/iw ty <- 1-(as.numeric(Y)-1)/ih if( tx > tmpplt[1] & tx < tmpplt[2] & ty > tmpplt[3] & ty < tmpplt[4] ){ newx <- (tx-tmpplt[1])/(tmpplt[2]-tmpplt[1])*(tmpusr[2]-tmpusr[1])+tmpusr[1] curx <<- round(newx) tkrreplot(img) newy <- myData[curx] newy <- floor(newy) + (newy-floor(newy))*32/100 # newy2 <- myData2[curx] newy3 <- myData3[curx] tclvalue(cury) <- paste('x =',curx,' myData=',round(newy,2) ,' myData3=',round(newy3,4)) }...

I have a question about inserting instructions into the LLVM IR. I can insert instructions, but my operands do not have the right type, so it fails an assertion at runtime. I am trying to insert an immediate load instructions, as a means of claiming a new register. Here is what I do: Builder.SetInsertPoint(LLVMBB, I); // The following line looks to me like it would have a chance of loading

...e restructured into a person-choice file. * Each case must be duplicated "ncat" times ("ncat" is the number of categories of the dependent variable) * Each case must be identified by a strata variable (id) * Each duplicate must be identified by a variable indexing the choices (newy) * A dichotomous variable must indicate which duplicate corresponds with the respondent's choice (didep) I've done this as follows: mclgen <- function (datamat,catvar) { ncat <- nlevels(catvar) id<-1:length(catvar) datamat<-cbind(id,datamat) perschoice <-NULL for (i in...

...ometimes lie on top of the y axis and sometimes not, depending on how i scale the image... #bild16 umkehrfunktion source("normpdf.r") png("umkehrfunktion.png",width=18,height=18,units="cm",res=600,pointsize=16) newdata=data.frame(x=seq(0,0.6*max(fit$df$x),length=200)) newy=predict(fit,newdata) plot.new() plot.window(xlim=c(0,0.6*max(fit$df$x)),ylim=c(15.7,17.5)) lines(newdata$x, newy) axis(1) axis(2) abline(v=0, h=0) mtext("FITC-insulin [mol]",1,2.4) mtext("log intensity [log(LAU)]",2,2.4) myydata=c(16.35,16.5,16.65,16.95,17.1,17.25) source(&quot...

Hi; I'm running Red Hat 7.2 on a lap top that was given to me already set up. It looks like wine was preinstalled with Red Hat 7.2. When I run "wine" at a shell prompt I get the error message ===================== wineserver: chdir /home/srussell/.wine : No such file or directory ===================== I think I might need to run some sort of set up program. I checked out the

...# now I introduce the function giving the density along y: this has to include the BC of zero # density at wall rho_y<-function(y,expect_position,sigma_pos) { 1/sqrt(2*pi*sigma_pos)*exp(-1/2*(y-expect_position)^2/sigma_pos)- 1/sqrt(2*pi*sigma_pos)*exp(-1/2*(y+expect_position)^2/sigma_pos) } newy<-seq(ymin,ymax,len=nx) # grid along y with the same # of points as the one along x rho_y_t<-matrix(ncol=nx,nrow=tsteps-1) for (i in 2:tsteps) {mypar<-c(exp_y[i],sig_yy[i]) myrho_y<-do.call("rho_y",c(list(y=newy),mypar)) rho_y_t[ i-1, ]<-myrho_y } rho_y_t_scaled<-matri...

hi, I am a system admin who has just set up R-2.3.1 in suse 9.1 (opteron) for a previous windows user. Please forgive any obvious stupid questions :) We are struggling with a number of things. 1. is there a gui interface ? How do we use it ? R --gui just gets us to the command line. 2. how do we do unix commands like cd ? 3. can we define default directories - eg for data files ? 4.

Colleagues, I am using "nls" successfully (2.11.1, OS X) but I am having difficulties retrieving part of the output - residual sum of squares. I have assigned the output to FIT: > > FIT > Nonlinear regression model > model: NEWY ~ PMESOR + PAMPLITUDE * cos(2 * pi * (NEWX - POFFSET)/PERIOD) > data: parent.frame() > PMESOR PAMPLITUDE POFFSET > 1153.02 -1183.09 24.58 > residual sum-of-squares: 1815056 > > Number of iterations to convergence: 8 > Achieved convergence tolerance:...

...intervals. I generated bootstrap results for the slope and intercept of a simple linear regression model using the following code (borrowed from JJ Faraway 2005): > attach(allposs.nine.d) > x<-model.matrix(~log(d.dist,10))[,-1] > bcoef<-matrix(0,1000,2) > for(i in 1:1000){ + newy<-predict(all.d.nine.lm)+residuals(all.d.nine.lm)[sample(1002,rep=TRUE)] + brg<-lm(newy~x) + bcoef[i,]<-brg$coef + } Where "allposs.nine.d" is a data file composed of two columns: (1) geographical distances between sample points ("d.dist") and (2) their respective p...

...ram is so small , and as i look into my project, the _nonfi is there under the data folder. So i don't know what the compiler is complained about. Since i am new to Splus language, I have no clue what i need to do. for (i in 1: 1) { x <- rnorm (1000); y <- rnorm (1000) newx <- x newy <- y hist (newx) hist (newy) } If you happen to know what i need to do, please help me. Thank you so much, Min -- View this message in context: http://r.789695.n4.nabble.com/Can-t-read-write-to-nonfi-tp2331707p2331707.html Sent from the R help mailing list archive at Nabble.com.

If you want an immediate constant value, ConstantInt::get(APInt(32, 5, false)) will perhaps help you ? Olivier. 2009/5/5 seventh moon <suigintou_ at hotmail.com> > I have a question about inserting instructions into the LLVM IR. I can > insert instructions, but my operands do not have the right type, so it fails > an assertion at runtime. > > I am trying to insert an

...explain better: data(volcano) par(mfrow=c(1,2)) x <- 10*(1:nrow(volcano)) y <- 10*(1:ncol(volcano)) volcano[seq(1,87,by=10),seq(1,61,by=10)]<-NA; image(x, y, volcano, col = terrain.colors(100)) ## This is what I've tried with interp.surface() library(fields) newx<-seq(10,870,by=2); newy<-seq(10,610,by=2); volcano2<-interp.surface(list(x=x,y=y,z=volcano),make.surface.grid(list(newx ,newy))); dim(volcano2)<-c(length(newx),length(newy)); image(newx,newy,volcano2, col = terrain.colors(100)) As you see NANs are lareger in the interpolated image, I've modified the interp.s...

Hi, I have a data.frame that I need to construct iteratively. At the moment, I'm doing: d<-data.frame(x=c(),y=c(),z=()); # {and, within some loop} d<-rbind(d,data.frame(x=newx,y=newy,z=newz); While this works, it is horribly verbose and probably not efficient, either. My real data.frame has, of course, many more columns, which can be of different modes. I vaguely recall that in much earlier R versions the following worked d[dim(d)[1]+1,]<-c(newx,newy,newz); but not...