Displaying 4 results from an estimated 4 matches for "ncz".
Did you mean:
cz
2011 Mar 18
0
keep color range constant across three persp() graphs
...he second graph, but my actual
data is not this clean, so I am looking for a general solution to
keeping the colors consistent with z-values, rather than number of facets.
x <- 1:10
y <- 1:10
z1 <- matrix(1:100,10,10)
z2 <- matrix(seq(0.5,50,by=.5),10,10)
z <- z1
nrz <- nrow(z)
ncz <- ncol(z)
jet.colors <- colorRampPalette( c("yellow", "red") )
nbcol <- 100
color <- jet.colors(nbcol)
zfacet <- z[-1, -1] + z[-1, -ncz] + z[-nrz, -1] + z[-nrz, -ncz]
facetcol <- cut(zfacet, nbcol)
persp(x,y,z,col=color[facetcol], ticktype = "detailed&qu...
2009 Aug 30
3
Computer Modern Fonts in R graphic
...R working directory, so far, so good.
Then I tried to run the following code:
> sn <- seq(1,7,length=100)
> sm <- seq(0,4,length=100)
> f <- function(x,y) {5.64080973 + 0.12271038*x - 0.27725481 * y + 0.29281216*x*y}
> z <- outer(sn,sm,f)
>
> nrz <- nrow(z)
> ncz <- ncol(z)
> jet.colors <- colorRampPalette( c("yellow", "red") )
> nbcol <- 100
> color <- jet.colors(nbcol)
> zfacet <- z[-1, -1] + z[-1, -ncz] + z[-nrz, -1] + z[-nrz, -ncz]
> facetcol <- cut(zfacet, nbcol)
>
> CM <- Type1Font("...
2013 Jun 25
1
Correct scaling of axis in persp3d plot
...g. the spikes of the surface in red (values
which are very larger) and lower values e.g. in green with a nice smooth transition between, e.g.
values in the middle in yellow. So the coloring should depend on the z values. I tried the following, but it does not
give nice results:
nrz <- nrow(z)
ncz <- ncol(z)
jet.colors <- colorRampPalette( c("#ffcccc", "#cc0000") )
# Generate the desired number of colors from this palette
nbcol <- 100
color <- jet.colors(nbcol)
# Compute the z-value at the facet centres
zfacet <- z[-1, -1] + z[-1, -ncz] + z[-nrz, -1] + z[...
2009 Sep 01
1
Logistic Politomic Regression in R
...R working directory, so far, so good.
Then I tried to run the following code:
> sn <- seq(1,7,length=100)
> sm <- seq(0,4,length=100)
> f <- function(x,y) {5.64080973 + 0.12271038*x - 0.27725481 * y + 0.29281216*x*y}
> z <- outer(sn,sm,f)
>
> nrz <- nrow(z)
> ncz <- ncol(z)
> jet.colors <- colorRampPalette( c("yellow", "red") )
> nbcol <- 100
> color <- jet.colors(nbcol)
> zfacet <- z[-1, -1] + z[-1, -ncz] + z[-nrz, -1] + z[-nrz, -ncz]
> facetcol <- cut(zfacet, nbcol)
>
> CM <- Type1Font("...