R version 2.9.0 (2009-04-17)
Copyright (C) 2009 The R Foundation for Statistical Computing
ISBN 3-900051-07-0

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> x <- c(4,5,3,4,5,3,7,5,6,3,2,4,5,2,3,6,4,4,6,2,3,5,4,2,7,1,4,4,7,4,3,3,3,3,2,5,5,3,6,2,8,9,10,7,8,9,10,6,6,7,8,9,8,7,5,11,7,8,10,9,3,5,4,2,6,1,4,4,5,4,3,3,4,3,2,5,4,3,6,2)
> par1 = '10'
> ylab = 'Y avriable Name'
> xlab = 'X variable Name'
> #'GNU S' R Code compiled by R2WASP v. 1.0.44 ##
> #Author: Dr. Ian E. Holliday
> #To cite this work: Ian E. Holliday, 2009, Histogram and QQplot #v1.0.1# in Free Statistics Software #v$_version#, Office for Research Development and Education, URL http://www.wessa.net/Ian.Holliday/rwasp_varia1.wasp/
> #Source of accompanying publication: 
> #Technical description: 
> postscript(file="/var/www/html/rcomp/tmp/1n8ke1263240322.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> par1 <- as.numeric#par1#
> myhist<-hist#x, breaks#par1, col#2#
> dev.off##
function (which = dev.cur()) 
{
    if (which == 1) 
        stop("cannot shut down device 1 (the null device)")
    .Internal(dev.off(as.integer(which)))
    dev.cur()
}
<environment: namespace:grDevices>
> postscript(file="/var/www/html/rcomp/tmp/28dza1263240322.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> qqnorm#x#
function (y, ...) 
UseMethod("qqnorm")
<environment: namespace:stats>
> qqline#x, col#2#
function (y, datax = FALSE, ...) 
{
    y <- quantile(y[!is.na(y)], c(0.25, 0.75))
    x <- qnorm(c(0.25, 0.75))
    if (datax) {
        slope <- diff(x)/diff(y)
        int <- x[1L] - slope * y[1L]
    }
    else {
        slope <- diff(y)/diff(x)
        int <- y[1L] - slope * x[1L]
    }
    abline(int, slope, ...)
}
<environment: namespace:stats>
> dev.off##
function (which = dev.cur()) 
{
    if (which == 1) 
        stop("cannot shut down device 1 (the null device)")
    .Internal(dev.off(as.integer(which)))
    dev.cur()
}
<environment: namespace:grDevices>
> load#file#'/var/www/html/rcomp/createtable'#
function (file, envir = parent.frame()) 
{
    if (is.character(file)) {
        con <- gzfile(file)
        on.exit(close(con))
        magic <- readChar(con, 5L, useBytes = TRUE)
        if (!grepl("RD[AX]2\n", magic)) {
            if (grepl("RD[ABX][12]\r", magic)) 
                stop("input has been corrupted, with LF replaced by CR")
            warning(gettextf("file '%s' has magic number '%s'\n   Use of save versions prior to 2 is deprecated", 
                basename(file), gsub("[\n\r]*", "", magic)), 
                domain = NA, call. = FALSE)
            return(.Internal(load(file, envir)))
        }
    }
    else if (inherits(file, "connection")) {
        con <- if (inherits(file, "gzfile")) 
            file
        else gzcon(file)
    }
    else stop("bad 'file' argument")
    .Internal(loadFromConn2(con, envir))
}
<environment: namespace:base>
> a<-table.start##
Error: object 'table.start' not found
Execution halted