data(example_out)
twopt <- rf.2pts(example_out)
all.mark <- make.seq(twopt,"all")
groups <- group(all.mark)
LG1 <- make.seq(groups,1)
LG1.rcd <- rcd(LG1)
rf.graph.table(LG1.rcd, inter=FALSE)
##Now, using interactive Tcl-Tk
rf.graph.table(LG1.rcd, scale=1.5, inter=TRUE)Run the code above in your browser using DataLab