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.

> y <- c(1024,768,700,768,800,1024,800,768,800,1024,800,800,1024,949,900,1200,800,800,768,735,800,845,900,768,768,768,800,1440,768,768,1024,800,900,800,900,768,900,857,800,900,800,768,768,880,768,735,1200,785,800,800,900,1050,900,768,641,1024,800,800,800,800,900,800,864,1024,800,900,800,1024,900,800,800,900,800,1024,900,768,768,800,800,900,768,800,768,800,900,800,800,880,800,900,900,1050,900,900,550,800,990,800,800,800,768,768,900,800,1024,1080,768,768,900,698,900,737,768,640,800,900,800,800,800,900,800,768,768,864,768,768,768,1050,1050,800,768,768,900,768,800,800,800,768,800)
> x <- c(1280,1024,1120,1024,1280,1280,1280,1024,1280,1280,1280,1280,1280,1688,1440,1600,1280,1280,1280,1176,1280,1503,1440,1366,1280,1024,1280,2560,1280,1024,1280,1280,1440,1280,1440,1024,1440,1143,1280,1440,1280,1366,1024,1408,1366,1176,1920,1257,1280,1280,1440,1680,1440,1024,1140,1280,1280,1280,1280,1280,1440,1280,1152,1280,1280,1440,1280,1280,1440,1280,1280,1440,1280,1280,1600,1024,1366,1280,1280,1440,1366,1280,1024,1280,1440,1280,1280,1408,1280,1600,1600,1680,1440,1440,917,1280,1760,1280,1280,1280,1024,1366,1440,1280,1280,1920,1024,1024,1600,1117,1440,983,1024,1024,1280,1440,1280,1280,1280,1440,1280,1024,1024,1152,1280,1024,1366,1680,1680,1280,1366,1024,1440,1024,1280,1280,1280,1024,1280)
> ylab = 'y'
> xlab = 'x'
> #'GNU S' R Code compiled by R2WASP v# 1#0#44 ##
> #Author: Prof# Dr# P# Wessa
> #To cite this work: AUTHOR#S#, #YEAR#, YOUR SOFTWARE TITLE #vNUMBER# in Free Statistics Software #v$_version#, Office for Research Development and Education, URL http://www#wessa#net/rwasp_YOURPAGE#wasp/
> #Source of accompanying publication: Office for Research, Development, and Education
> #Technical description: Write here your technical program description #don't use hard returns!#
> postscript(file="/var/www/html/rcomp/tmp/1hfzv1286226176.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> histx <- hist#x, plot=FALSE#
> histy <- hist#y, plot=FALSE#
> maxcounts <- max#c#histx$counts, histx$counts##
> xrange <- c#min#x#,max#x##
> yrange <- c#min#y#,max#y##
> nf <- layout#matrix#c#2,0,1,3#,2,2,byrow=TRUE#, c#3,1#, c#1,3#, TRUE#
> par#mar=c#4,4,1,1##
function (..., no.readonly = FALSE) 
{
    single <- FALSE
    args <- list(...)
    if (!length(args)) 
        args <- as.list(if (no.readonly) 
            .Pars[-match(.Call("Rg_readonlypars", PACKAGE = "base"), 
                .Pars)]
        else .Pars)
    else {
        if (all(unlist(lapply(args, is.character)))) 
            args <- as.list(unlist(args))
        if (length(args) == 1) {
            if (is.list(args[[1L]]) | is.null(args[[1L]])) 
                args <- args[[1L]]
            else if (is.null(names(args))) 
                single <- TRUE
        }
    }
    value <- .Internal(par(args))
    if (single) 
        value <- value[[1L]]
    if (!is.null(names(args))) 
        invisible(value)
    else value
}
<environment: namespace:graphics>
> plot#x, y, xlim=xrange, ylim=yrange, xlab=xlab, ylab=ylab#
function (x, y, ...) 
{
    if (is.function(x) && is.null(attr(x, "class"))) {
        if (missing(y)) 
            y <- NULL
        hasylab <- function(...) !all(is.na(pmatch(names(list(...)), 
            "ylab")))
        if (hasylab(...)) 
            plot.function(x, y, ...)
        else plot.function(x, y, ylab = paste(deparse(substitute(x)), 
            "(x)"), ...)
    }
    else UseMethod("plot")
}
<environment: namespace:graphics>
> par#mar=c#0,4,1,1##
function (..., no.readonly = FALSE) 
{
    single <- FALSE
    args <- list(...)
    if (!length(args)) 
        args <- as.list(if (no.readonly) 
            .Pars[-match(.Call("Rg_readonlypars", PACKAGE = "base"), 
                .Pars)]
        else .Pars)
    else {
        if (all(unlist(lapply(args, is.character)))) 
            args <- as.list(unlist(args))
        if (length(args) == 1) {
            if (is.list(args[[1L]]) | is.null(args[[1L]])) 
                args <- args[[1L]]
            else if (is.null(names(args))) 
                single <- TRUE
        }
    }
    value <- .Internal(par(args))
    if (single) 
        value <- value[[1L]]
    if (!is.null(names(args))) 
        invisible(value)
    else value
}
<environment: namespace:graphics>
> barplot#histx$counts, axes=FALSE, ylim=c#0, maxcounts#, space=0#
function (height, ...) 
UseMethod("barplot")
<environment: namespace:graphics>
> par#mar=c#4,0,1,1##
function (..., no.readonly = FALSE) 
{
    single <- FALSE
    args <- list(...)
    if (!length(args)) 
        args <- as.list(if (no.readonly) 
            .Pars[-match(.Call("Rg_readonlypars", PACKAGE = "base"), 
                .Pars)]
        else .Pars)
    else {
        if (all(unlist(lapply(args, is.character)))) 
            args <- as.list(unlist(args))
        if (length(args) == 1) {
            if (is.list(args[[1L]]) | is.null(args[[1L]])) 
                args <- args[[1L]]
            else if (is.null(names(args))) 
                single <- TRUE
        }
    }
    value <- .Internal(par(args))
    if (single) 
        value <- value[[1L]]
    if (!is.null(names(args))) 
        invisible(value)
    else value
}
<environment: namespace:graphics>
> barplot#histy$counts, axes=FALSE, xlim=c#0, maxcounts#, space=0, horiz=TRUE#
function (height, ...) 
UseMethod("barplot")
<environment: namespace:graphics>
> dev#off##
Error: object 'dev' not found
Execution halted