visual.test: Visual test of association
In andrewheiss/byumpa: Functions for concepts covered in BYU's MPA program

Description Usage Arguments Examples

Builds a matrix of 4 scatterplots

1	visual.test(x, y)

`x`
`y`

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (x, y) 
{
    oldpar <- par(no.readonly = TRUE)
    par(mar = c(0, 0, 0, 0))
    m <- matrix(sample(1:4), 2, 2)
    layout(m, 1, 1)
    plot(x, y, pch = 20)
    abline(0, 0, col = "red", lwd = 1)
    for (i in 1:3) {
        plot(x, sample(y), pch = 20)
        abline(0, 0, col = "red", lwd = 1)
    }
    par(oldpar)
  }