I would like to join repeated measures for patients across two visits using
a line. The program below uses symbols to represent each patient. Basically,
I would like to join each pair of symbols.



library(lattice)

patient <- c(1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9)
var <-
c(826,119,168,90,572,323,122,10,42,900,250,180,120,650,400,130,12,33)
visit <- c(1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2)
symbols <- c(1,2,3,4,5,6,7,8,9)

xyplot(var ~ visit, pch = symbols[patient], key = list(points = list(pch =
symbols), space = list("right"),text =
list(c("1","2","3","4","5","6","7","8","9"))))

# grid.lines(x = visit,y = var,draw = TRUE) ??

I am thinking I may need to use a function that joins coordinates (for
example join (1,826) with (2,900)), but am hoping there may be a better way.



Thanks for any help.

Murray


-- 
Murray Pung
Statistician, Datapharm Australia Pty Ltd
0404 273 283

	[[alternative HTML version deleted]]

