Dear r-helpers,
xx - c(0.000, 0.210, 0.714, 0.514, 1.000, 0.190, 0.590, 0.152)
yy - c(0.000, 0.265, 0.256, 0.521, 0.538, 0.761, 0.821, 1.000)
aa - c(19, 19, 19, 21, 19, 21, 21, 21)
x0 - xx[c(1, 1, 2, 2, 2, 3, 3, 4, 4, 4, 5, 6, 6, 7)]
y0 - yy[c(1, 1, 2, 2, 2, 3, 3, 4, 4, 4, 5, 6, 6, 7)]
x1 -
Michael Kubovy wrote:
Dear r-helpers,
xx - c(0.000, 0.210, 0.714, 0.514, 1.000, 0.190, 0.590, 0.152)
yy - c(0.000, 0.265, 0.256, 0.521, 0.538, 0.761, 0.821, 1.000)
aa - c(19, 19, 19, 21, 19, 21, 21, 21)
x0 - xx[c(1, 1, 2, 2, 2, 3, 3, 4, 4, 4, 5, 6, 6, 7)]
y0 - yy[c(1, 1, 2, 2, 2, 3, 3,
Michael Kubovy [EMAIL PROTECTED] writes:
Dear r-helpers,
xx - c(0.000, 0.210, 0.714, 0.514, 1.000, 0.190, 0.590, 0.152)
yy - c(0.000, 0.265, 0.256, 0.521, 0.538, 0.761, 0.821, 1.000)
aa - c(19, 19, 19, 21, 19, 21, 21, 21)
x0 - xx[c(1, 1, 2, 2, 2, 3, 3, 4, 4, 4, 5, 6, 6, 7)]
y0 - yy[c(1,
On Sun, 2006-10-15 at 11:21 -0400, Michael Kubovy wrote:
Dear r-helpers,
xx - c(0.000, 0.210, 0.714, 0.514, 1.000, 0.190, 0.590, 0.152)
yy - c(0.000, 0.265, 0.256, 0.521, 0.538, 0.761, 0.821, 1.000)
aa - c(19, 19, 19, 21, 19, 21, 21, 21)
x0 - xx[c(1, 1, 2, 2, 2, 3, 3, 4, 4, 4, 5, 6, 6, 7)]
Here is a completely different solution using gplot in sna. We create
an edge matrix, edges, and plot it.
library(sna)
edges - replace(matrix(0, 8, 8), cbind(match(x0, xx), match(x1, xx)), 1)
gplot(edges, coord = cbind(xx, yy), usearrows = FALSE,
vertex.col = c(black, white)[factor(aa)])
On