#READ IRIS TABLE AND ASSIGN VARIABLE SL
K=read.table("c:/2007BiostatsData/iris.txt")
attach(K)
SL=Sepal.Length

#LOAD PACKAGE - choose "lattice" from pop-up list
local({pkg <- select.list(sort(.packages(all.available = TRUE)))
if(nchar(pkg)) library(pkg, character.only=TRUE)})
#DOCUMENTATION:
? qqmath()
#QQ PLOT IN lattice:
qqmath(SL)

#LOAD PACKAGE - choose "stats" from pop-up list
local({pkg <- select.list(sort(.packages(all.available = TRUE)))
if(nchar(pkg)) library(pkg, character.only=TRUE)})
#DOCUMENTATION:
? qqnorm()
#QQ PLOT IN stats:
qqnorm(SL)