search for: maxz

Apologies in advance for the question. I am trying to draw a map of the US as a surface plot so that I would be able to drop bars on the different states (something like Uwe Ligges' scatterplot3d example 4). I am not sure where to start looking for such a beast. If anyone has any pointers, ideas, I will be grateful. TIA, Partha

...es (.csv's with 200 rows of x,y,z coordinates) a<-read.csv("A_PW_ASY_M_LII_2011.csv") #calls the plug-in bandwidth estimator Ha <- Hpi(a) #sets min/max grid size for each dimension minX<-min(a$X)-25 minY<-min(a$Y)-25 minZ<-0 maxX<-max(a$X)+25 maxY<-max(a$Y)+25 maxZ<-max(a$Z)+5 #creates kernel utilization distribution fhata <- kde(x=a, H=Ha, binned=FALSE, xmin=c(minX,minY,minZ), xmax=c(maxX,maxY,maxZ)) #calculates territory volume at 95% isopleth Vol95<-contourSizes(fhata, cont=95) -- View this message in context: http://r.789695.n4.nabble.com/R...

...ta Frame and then saved in a file myfile_r.txt using write.table(). For example using the following function: quadscheme <- function(window, ntile) { # Creates a grid of points in a 3D orthohedron. # First point lies at the (mix,miny,miz) corner of the volume and the last one at (maxx,maxy,maxz) # window: vector. Contains the minimum and maximum values of a 3D orthohedron # window <- c(minx, maxx, miny, maxy, minz, maxz) # ntile: vector. Number of points per dimension minus one. We manually add a extra row of points per dimension # ntile <- c(nstepx, nstepy, nste...

...ge<-sapply(z,range,na.rm=T) stopifnot(class(critmat)%in%c("matrix","data.frame"),dim(critmat)==c(w,2)) critarea<-matrix(data=0,nrow=dim(z[[1]])[1],ncol=dim(z[[1]])[2]) for(i in 1:w) { minz<-ifelse(is.na(critmat[i,1]),zrange[1,i],critmat[i,1]) maxz<-ifelse(is.na(critmat[i,2]),zrange[2,i],critmat[i,2]) critarea<-critarea+apply(z[[i]],c(1,2), function(x) ifelse(x>minz & x<maxz,1,0)) } critarea<-apply(critarea,c(1,2), function(x) ifelse(x==w,1,NA)) if(sum(critarea,na.rm=T)==0) message("Critica...

....txt using write.table(). For example using the following function: Llu?s> quadscheme <- function(window, ntile) { Llu?s> # Creates a grid of points in a 3D orthohedron. Llu?s> # First point lies at the (mix,miny,miz) corner of the volume and the last one at (maxx,maxy,maxz) Llu?s> # window: vector. Contains the minimum and maximum values of a 3D orthohedron Llu?s> # window <- c(minx, maxx, miny, maxy, minz, maxz) Llu?s> # ntile: vector. Number of points per dimension minus one. We manually add a extra row of points per dimension...

Dear R users -- I think this question was asked before but there was no reply to it. I would appreciate any suggestion any of you might have. I am interested in plotting several "implicit functions" (F(x,y,z)=0) on the same fig. Is there anyone who has an example code of how to do this? Thank you Yihsu