.First <- function()
{
        attach("/home/mooret/mth336/coursedata/.RData", pos = 2)
        library(ctest)
}