#Biostatistics 090

#READ IRIS TABLE AND ASSIGN VARIABLE SL
K=read.table("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)

#SKEWNESS & KURTOSIS IN R:
LOAD PACKAGE - choose "moments" from pop-up list
library(moments)
#SKEWNESS
skewness(SL)
#KURTOSIS
kurtosis(SL)