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(11.40,11.00,9.20,7.10,9.30,9.30,11.50,13.00,13.20,13.10,13.90,11.00,11.30,10.80,11.20,12.90,13.90,14.50,14.50,13.30,12.00,11.50,11.00,12.10,13.00,14.00,15.10,14.50,14.20,13.30,12.70,11.80,11.40,10.50,9.60,10.80,10.70,11.90,12.00,11.10,10.90,10.40,10.70,12.10,12.80,13.90,13.50,12.00,12.00,11.50,12.50,13.10,12.70,12.80,12.50,13.00,13.20,12.80,12.40,12.00,11.80,11.10,8.50,6.30)
> par3 = 'BBP'
> par2 = 'Belgostat'
> par1 = 'BBP'
> ylab = 'value'
> xlab = 'index'
> main = 'BBP'
> #'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/1vul01261061587.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> plot#x,col#2,type#'b',main#main,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>
> 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