# demo script library(stats) library(datasets)