plot (flu)
plot (flu, "c")
plot (laser, "ts")
spc <- apply (chondro, 2, quantile, probs = 0.05)
spc <- sweep (chondro, 2, spc, "-")
plot (spc, "spcprctl5")
plot (spc, "spcprctile")
plot (spc, "spcmeansd")
Run the code above in your browser using DataLab