search for: dimy

Dear all I would like to ask you if an assignment can be done inside a lapply statement. For example I would like to covert a double nested for loop for (i in c(1:dimx)){ for (j in c(1:dimy)){ Powermap[i,j] <- Pr(c(i,j),c(PRX,PRY),f) } } to something like that: ij<-expand.grid(i=seq(1:dimx),j=(1:dimy)) unlist(lapply(1:nrow(ij),function(rowId) { return (Powermap[i,j]<-Pr(c(ij$i[rowId],ij$j[rowId]),c(PRX,PRY),f)) })) as you can see lapply does not return nothin...

...e.h> #define IA 16807#define IM 2147483647#define AM (1.0/IM)#define IQ 127773 #define IR 2836#define NTAB 32#define NDIV (1+(IM-1)/NTAB)#define EPS 1.2*pow(10,-7)#define RNMX (1.0-EPS) using namespace std;float rand1(long *idum); int main(){ long run=10000,adr=-run,x,y,hapa=0,i=0; int dimx=700,dimy=700,nrg=50, M[dimx][dimy]; double rnd,sum=0; long k[run+1],frekuenca; bool njehsuar[run+1], next; ofstream Txt("EndjeMePengesa2D.txt"); printf("\nProgrami ekzekutohet:\ni=1 ne %d",run); for (i=1;i<=run;i++){ njehsuar[i]=true; k[i]=0; } while (i<nrg){ x=dimx*rand(&adr...

Dear all, I am trying to learn lapply. I would like, as a test case, to try the lapply alternative for the Shadowlist<-array(data=NA,dim=c(dimx,dimy,dimmaps)) for (i in c(1:dimx)){ Shadowlist[,,i]<-i } ---so I wrote the following--- returni <-function(i,ShadowMatrix) {ShadowMatrix<-i} lapply(seq(1:dimx),Shadowlist[,,seq(1:dimx)],returni) So far I do not get same results with both ways. Could you please help me understand what...

Hello everyone, I am using ggplot to plot but I am getting the following error which I do not understand Error: geom_text requires the following missing aesthetics: label My code is dimx<-256 library(ggplot2) dev.new() xandy<-expand.grid(seq(1:dimx),seq(1:dimy)) xx<-data.frame(xandy[[1]],xandy[[2]],Powermap=Powermap) subsetxx<-subset(xx, xx$Powermap>threshold) ggplot( (subsetxx ) )+ geom_point(aes(x,y,colour=cut(Powermap,c(0,-1,-10,-20,-30,-40,-50,-60,-70,-80,-90,-100,-110))))+ geom_text(aes(x,y,color=cut(Powermap, c(0,-1,-10,-20,-3...

http://bugzilla.mindrot.org/show_bug.cgi?id=967 ------- Additional Comments From dimitrij at schlund.de 2005-02-16 10:33 ------- Hi, could you verify this issue? Beacause tis Bug we cann't sitch to 2.6-er Kernel. We have a lot of cmmand-only keys -:( Dimi ------- You are receiving this mail because: ------- You are the assignee for the bug, or are watching the assignee.

...ncdf(netcdf_1993_temp, "mrunoff") mrunoff_1994 <- get.var.ncdf(netcdf_1994_temp, "mrunoff") mrunoff_1995 <- get.var.ncdf(netcdf_1995_temp, "mrunoff") # Define variable dimensions dimx <- dim.def.ncdf("Lon", "deg E", as.double(longitude)) dimy <- dim.def.ncdf("Lat", "deg N", as.double(latitude)) month <- dim.def.ncdf("Mon", "Months: Jan 86=1, Dec 95=120)", 1:120) year <- dim.def.ncdf("Year", "year", year) # Assign data: extract mrunoff from each of the 10 files and put...

...f(netcdf_1993_temp, "mrunoff") mrunoff_1994 <- get.var.ncdf(netcdf_1994_temp, "mrunoff") mrunoff_1995 <- get.var.ncdf(netcdf_1995_temp, "mrunoff") # Define variable dimensions dimx <- dim.def.ncdf("Lon", "deg E", as.double(longitude)) dimy <- dim.def.ncdf("Lat", "deg N", as.double(latitude)) month <- dim.def.ncdf("Mon", "Months: Jan 86=1, Dec 95=120)", 1:120) year <- dim.def.ncdf("Year", "year", year) # Assign data: extract mrunoff from each of the 10 files and pu...

...urn the appropriate matrix but this also failed and I only got back a vector again Could you please let me understand why this might happening? Best Regards Alex P.S Below you will find part of my code. ...................(lines omitted, declarations) x <- seq(1, dimx, step) y <- seq(1, dimy, step) f <- GaussRF(x=x, y=y, model=model, grid=TRUE,param=c(mean, variance, nugget, scale, alpha)) # image(x, y, f) Displays the matrix # f is a 2x2 matrix of dimension (x,y) r <- raster(nrow=dimx, ncol=dimy) r <- setValues(r,as.matrix(f)) # getValues(r) [[alternative HTML v...

Dear All, Can anyone please let me know how exactly ncdf deals with NaN. I am trying to pass in a vector of data that has some NaN in it, into a variable in NetCDF. dimX <- dim.def.ncdf("X","count",(1:6)) dimY <- dim.def.ncdf("Y","count",(1:3)) var1 <- var.def.ncdf("genotype","freq",list(dimX,dimY),missval=-9999,prec="single") nc <- create.ncdf("/home/challar/testunix6.nc",list(var1)) genovals <- c("0.0","3",NaN,...

GuruLounge - MailLists wrote: > err:seh:setup_exception stack overflow 40 bytes in thread 000c Exception loop. Covered to some extent in: http://wiki.winehq.org/Debugging_'Wild_Metal_Country' For some reason, all pages in the Wine Wiki (like the above) is _fucking_ impossible to find with Google. I don't know why, but I think it might be because all the pages have "index:

in lmList ,lmList.formula and lmList.groupedData functions in help pages there is an argument called "groups" that doesn't exist in the code of the functions. <<insert bug report here>> --please do not edit the information below-- Version: platform = i686-unknown-linux arch = i686 os = linux system = i686, linux status = Patched (unreleased snapshot) status.rev

Dear all, I would like to ask your help understand the subsequent steps for making my program faster. The following code: Gauslist<-array(data=NA,dim=c(dimx,dimy,dimz)) for (i in c(1:dimz)){ print(sprintf('Creating the %d map',i)); Gauslist[,,i]<-f <- GaussRF(x=x, y=y, model=model, grid=TRUE,param=c(mean,variance,nugget,scale,Whit.alpha)) } creates 100 GaussMaps (each map is of 256*256 dim) and stores them in a matrix called Gauslist...

HI All I'm in the process of setting up my first Linux box at work, a basic file server for all 20+ Win clients (I'm sick of paying M$ CAL) all have a 'home' directory and all share a 'shared' directory. What my problem is, everything is working OK with WinXP/2000 I can see the shared directory and our own home directory on the Samba box. With Win98 I can only see and

...aov","lm")) } z$call <- match.call() z$terms <- mt if (model) z$model <- mf z } aov.balanced.fit <- function(x,y,mod.terms,wt=NULL){ x <- as.matrix(x); dimx <- dim(x) xnames <- dimnames(x)[[2]] y <- as.matrix(y); dimy <- dim(y) assn <- attr(x,"assign") df <- c(table(assn), dimy[1]- dimx[2]) D <- diag(1/diag(t(x) %*% x)) dimnames(D) <- list(xnames,xnames) coef <- as.numeric(D %*% t(x) %*% y) names(coef) <- xnames fits <- x %*% coef resid <-...

Hi people,

Hi! Is there any possibility to let dovecot serve >1024 Bit DH Parameters at SSL/TLS-connections? Is it possible to replace /var/lib/dovecot/ssl-parameters.ssl with DH-parameter generated by openssl? If not: Are there any plans to implement that? Thank you!

cd `dirname dlls/__install-lib__` && make install-lib rm -f libdxerr8.a && ln -s dxerr8/libdxerr8.a libdxerr8.a rm -f libdxerr9.a && ln -s dxerr9/libdxerr9.a libdxerr9.a rm -f libdxguid.a && ln -s dxguid/libdxguid.a libdxguid.a rm -f libuuid.a && ln -s uuid/libuuid.a libuuid.a cd `dirname advapi32/__install__` && make install

Hi, I am currently having trouble building the DLLs of an application ported from Win32 to Winelib - compiling, thanks to some hints from Dimi O. Paun, now works fine, only(?) the final linking step fails. Since Winelib-documentation is unfortunately pretty outdated, I tried to orientate myself on the makefiles of the Winelib dlls in the cvs /wine/dlls/ directory. I tried the following

hallo samba i have samba installed on a linux SuSE e-mail server II. i need to know witch port i have to open in my firewall to be able to connect the samba share via NT's explore my samba share om linux03 is [home] = /home/users and a connect from my NT4.0 workstation explore with \\linux03\home where is a firewall between my linux03 server with samba and my NT4.0 workstation. Med venlig

Samba mount (from one of our build scripts). We decided to upgrade to RedHat 7.2 (which uses a newer version of Samba -- 2.1.1b IIRC), maybe that fixes the problem. However, I decided to submit this bug report, in the hope that it may help kill some bugs. (Remember -- the only good bug, is a dead bug :)) So, here is the dmesg output: Linux version 2.2.16-22enterprise