search for: nparts

Hi, I changed INTEGER(getAttrib(shape,mkChar("nParts")))[0] to INTEGER(getAttrib(shape,mkString("nParts")))[0] and now it works fine. Nicholas -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html Send "info", "help&q...

Dear All, In the moment i'm using the map and maptools package to read shapefiles and display the maps. I'm looking for the possibility to draw points (randomly positioned or positioned according to a grid) into the polygons instead of filling the polygons with colors. For example: a map (shapefile) with 10 countries, 15 points in the polygon of country A, 20 points in the

...6.03781 51.68606 [5,] -56.04639 51.68759 [6,] -56.04637 51.69445 [7,] -56.03777 51.70207 [8,] -56.02301 51.70892 [9,] -56.01317 51.71578 [10,] -56.00330 51.73481 [11,] -55.99805 51.73840 attr(,"pstart") attr(,"pstart")$from [1] 1 attr(,"pstart")$to [1] 11 attr(,"nParts") [1] 1 attr(,"shpID") [1] NA [[2]] [,1] [,2] [1,] -57.76294 50.88770 [2,] -57.76292 50.88693 [3,] -57.76033 50.88163 [4,] -57.75668 50.88091 [5,] -57.75551 50.88169 [6,] -57.75562 50.88550 [7,] -57.75932 50.88775 [8,] -57.76294 50.88770 attr(,"pstart") attr...

Hi, Is there a way, preferably with R, to read shapefiles and transform them in a format that I could then use with package PBSmapping? I have been able to read such files into R with maptools' read.shape and plot it with plot.Map, but I'd like to bring the data to PBSmapping and plot from there. I also looked at the package shapefile, but it does not seem to do what I want

...s of some help. So after reading the help on this i tried to convert the Map object to an sp object. But I keep failing. > ids <- as.character(districts$att.data$STATE) > ids[1:2] "A AND B" "A AND B" > temp <- map2SpatialPolygons(districts, IDs = ids) Error in to[nParts] <- nrow(xy) : incompatible types (from NULL to integer) in subassignment type fix In addition: Warning message: is.na() applied to non-(list or vector) in: is.na(object) I went back to the help on the function map2SpatialPolygons. And the example code there is: library(maps) nor_coast_poly...

...TIMEOUT 3000 /* milliseconds */ + +static int conv_persistent = 1; +static pid_t conv_pid = -1; +static int conv_write_fd = -1, conv_read_fd; +extern char* fname_convert_cmd; +extern int blocking_io; + +/** + * Splits cmd on spaces. + */ +static void split_on_spaces(char* cmd, char** parts) { + int nparts=0; + char *tok; + char *cmd2 = strdup(cmd); + if (!cmd2) { + rprintf(FERROR, "Out of memory while parsing filename filter %s\n", cmd); + exit_cleanup(RERR_MALLOC); + } + + for (tok=strtok(cmd2," ");tok;tok=strtok(NULL," ")) { + if (nparts>=MAX_ARGS) { + rprintf...

I have defined a function with several arguments and have it stored in the .RData file. The 'function head' is defined as follows EstimALIConc <-function(sdname,SZ,W,farea,watri,biomodel,start.part=1,nparts=20,method=c("optim","DEoptim")) { [ blah-blah-blah ] (function body doesn't matter) } Then I call Rscript: e:> rscript --restore -e "EstimALIConc('17-aug',27.8,5,1,watri,biomodel,1,100,method='DEoptim');warnings();" 1>17-aug-log.txt 2&gt...

Hi Guys Thanks for this! As I am a beginner, I bet I'm running into some really basic problems. Using the example from the Map2poly function in maptools: try <- read.shape("euadmll.shp") mappolys <- Map2poly(try) # this produces 14 warnings() of the type: # 1: level 2 circularity at 62 in: .mtlbuild(.mtafters(r1), rD) # etc # 14: From next release, default hole handling

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hi all, I was testing oz/imagefactory on 32 bit arm, you have to have kernel-lpae installed to run kvm. while you can have the regular kernel installed also. You end up having the system booting the regular kernel and you do not get kvm. Ideally supermin will work with the lpae kernel.

I am using a "for" loop to read a table row by row and I have to specify how many records are there in the table. I need to read row by row because the table is huge and the memory not large enough for the whole table.: number.of.records=100 fp=file("abc.csv","r") pos=seek(fp, rw="read") for (i in 1:number.of.record){ current.row=scan(file=fp,