if (FALSE) {
data(example3)
sym.data <- example3
sym.scatterplot(sym.data[, 3], sym.data[, 7], col = "blue", main = "Main Title")
sym.scatterplot(sym.data[, 1], sym.data[, 4],
labels = TRUE, col = "blue",
main = "Main Title"
)
sym.scatterplot(sym.data[, 2], sym.data[, 6],
labels = TRUE,
col = "red", main = "Main Title", lwd = 3
)
data(oils)
sym.scatterplot(oils[, 2], oils[, 3],
labels = TRUE,
col = "red", main = "Oils Data"
)
data(lynne1)
sym.scatterplot(lynne1[, 2], lynne1[, 1],
labels = TRUE,
col = "red", main = "Lynne Data"
)
}
Run the code above in your browser using DataLab