Displaying 5 results from an estimated 5 matches for "nrz".
Did you mean:
nr
2011 Mar 18
0
keep color range constant across three persp() graphs
...ange")) for the 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 =...
2009 Aug 30
3
Computer Modern Fonts in R graphic
...page and put them in my 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...
2013 Jun 25
1
Correct scaling of axis in persp3d plot
...ld like to have e.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]...
2009 Sep 01
1
Logistic Politomic Regression in R
...page and put them in my 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...
2009 Jul 23
1
[PATCH server] changes required for fedora rawhide inclusion.
...A42zCuhChEPtli3?V}^Ljkv1D)n?6_kwA8#F%7K
zZApF3lE=N)zCuB(AqR)epT-e4T at KxNpJh9L%doq?tO#uU$&gn1Tehp5KY%o^*NCR@
z(paH$3dfpdKL)C}Yl?j+5%pAbpjaaCl+C>a<fS}T1^Slq^R#d*EIhl4&ufj6mY4VD
zXUTbmkJV_{aXhN3)?ib{0BU6LQB&d^{9K*1ni7KsCHhZb#BhIxdO`Yo6jggSv+2K*
ziYBY9^`kL^=x at 3GcjxhX3{PJ%-Zl#`xZ|unrZPSQ>?g>uq&@^pD;48mC^@*NbMFb$
zopXyMw$feRlZexv^#*710o;=e9tpJOLf+K9j{0)FS7jQakemCPoU!_)Z(u`CYp9D1
zC$S{BWQ?VNREDL$ly|otAb0P=uHQ=PKfCkJlnl)v(XxR=;om+!ey+O=QK}-c#-E{p
zXEz0MO<f9FEI}?i<cj+nMXo>e;}w3=3C#@!iX2NtP&N1c-MBy3`-IoSME?TjBLEuW
zFwHwqK1o$;6GM)5=HEM5JL}sU9bD&BWT5F`^Okcf7r...