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(6282154 + ,4321023 + ,4111912 + ,223193 + ,1491348 + ,1629616 + ,1398893 + ,1926517 + ,983660 + ,1443586 + ,1073089 + ,984885 + ,1405225 + ,227132 + ,929118 + ,1071292 + ,638830 + ,856956 + ,992426 + ,444477 + ,857217 + ,711969 + ,702380 + ,358589 + ,297978 + ,585715 + ,657954 + ,209458 + ,786690 + ,439798 + ,688779 + ,574339 + ,741409 + ,597793 + ,644190 + ,377934 + ,640273 + ,697458 + ,550608 + ,207393 + ,301607 + ,345783 + ,501749 + ,379983 + ,387475 + ,377305 + ,370837 + ,430866 + ,469107 + ,194493 + ,530670 + ,518365 + ,491303 + ,527021 + ,233773 + ,405972 + ,652925 + ,446211 + ,341340 + ,387699 + ,493408 + ,146494 + ,414462 + ,364304 + ,355178 + ,357760 + ,261216 + ,397144 + ,374943 + ,424898 + ,202055 + ,378525 + ,310768 + ,325738 + ,394510 + ,247060 + ,368078 + ,236761 + ,312378 + ,339836 + ,347385 + ,426280 + ,352850 + ,301881 + ,377516 + ,357312 + ,458343 + ,354228 + ,308636 + ,386212 + ,393343 + ,378509 + ,452469 + ,364839 + ,358649 + ,376641 + ,429112 + ,330546 + ,403560 + ,317892 + ,307528 + ,235133 + ,299243 + ,314073 + ,368186 + ,269661 + ,125390 + ,510834 + ,321896 + ,249898 + ,408881 + ,158492 + ,292154 + ,289513 + ,378049 + ,343466 + ,332743 + ,442882 + ,214215 + ,315688 + ,375195 + ,334280 + ,355864 + ,480382 + ,353058 + ,217193 + ,315380 + ,314533 + ,318056 + ,315380 + ,314353 + ,369448 + ,315380 + ,312846 + ,312075 + ,315009 + ,318903 + ,314887 + ,314913 + ,315380 + ,325506 + ,315380 + ,298568 + ,315834 + ,329784 + ,312878 + ,315380 + ,314987 + ,325249 + ,315877 + ,291650 + ,305959 + ,315380 + ,297765 + ,315245 + ,315380 + ,315380 + ,315236 + ,336425 + ,315380 + ,315380 + ,315380 + ,315380 + ,306268 + ,302187 + ,314882 + ,315380 + ,382712 + ,341570 + ,315380 + ,315380 + ,312412 + ,315380 + ,309596 + ,315380 + ,315547 + ,313267 + ,316176 + ,315380 + ,315380 + ,359335 + ,330068 + ,314289 + ,297413 + ,314806 + ,333210 + ,352108 + ,313332 + ,291787 + ,315380 + ,318745 + ,315380 + ,315366 + ,315380 + ,315688 + ,315380 + ,409642 + ,315380 + ,315380 + ,269587 + ,315380 + ,315380 + ,315380 + ,300962 + ,325479 + ,316155 + ,318574 + ,315380 + ,343613 + ,306948 + ,315380 + ,315380 + ,330059 + ,288985 + ,304485 + ,315380 + ,315688 + ,317736 + ,315380 + ,322331 + ,296656 + ,315380 + ,315354 + ,312161 + ,315576 + ,314922 + ,314551 + ,315380 + ,312339 + ,315380 + ,298700 + ,321376 + ,315380 + ,303230 + ,315380 + ,315487 + ,315380 + ,315793 + ,315380 + ,315380 + ,315380 + ,312887 + ,315380 + ,315637 + ,324385 + ,315380 + ,315380 + ,308989 + ,315380 + ,315380 + ,296702 + ,315380 + ,307322 + ,304376 + ,253588 + ,315380 + ,309560 + ,298466 + ,315380 + ,315380 + ,315380 + ,315380 + ,343929 + ,331955 + ,315380 + ,315380 + ,315380 + ,381180 + ,315380 + ,331420 + ,315380 + ,315380 + ,315380 + ,310201 + ,315380 + ,320016 + ,320398 + ,315380 + ,291841 + ,310670 + ,315380 + ,315380 + ,313491 + ,315380 + ,331323 + ,315380 + ,319210 + ,318098 + ,315380 + ,292754 + ,315380 + ,325176 + ,365959 + ,315380 + ,302409 + ,340968 + ,315380 + ,315380 + ,315380 + ,315380 + ,313164 + ,301164 + ,315380 + ,315380 + ,344425 + ,315394 + ,315380 + ,316647 + ,309836 + ,315380 + ,315380 + ,346611 + ,315380 + ,322031 + ,315656 + ,339445 + ,314964 + ,297141 + ,315372 + ,315380 + ,315380 + ,315380 + ,315380 + ,315380 + ,315380 + ,312502 + ,315380 + ,315380 + ,315380 + ,315380 + ,315380 + ,315380 + ,315380 + ,313729 + ,315388 + ,315371 + ,296139 + ,315380 + ,313880 + ,317698 + ,295580 + ,315380 + ,315380 + ,315380 + ,308256 + ,315380 + ,303677 + ,315380 + ,315380 + ,319369 + ,318690 + ,314049 + ,325699 + ,314210 + ,315380 + ,315380 + ,322378 + ,315380 + ,315380 + ,315380 + ,315398 + ,315380 + ,315380 + ,308336 + ,316386 + ,315380 + ,315380 + ,315380 + ,315380 + ,315553 + ,315380 + ,323361 + ,336639 + ,307424 + ,315380 + ,315380 + ,295370 + ,322340 + ,319864 + ,315380 + ,315380 + ,317291 + ,280398 + ,315380 + ,317330 + ,238125 + ,327071 + ,309038 + ,314210 + ,307930 + ,322327 + ,292136 + ,263276 + ,367655 + ,283910 + ,283587 + ,243650 + ,438493 + ,296261 + ,230621 + ,304252 + ,333505 + ,296919 + ,278990 + ,276898 + ,327007 + ,317046 + ,304555 + ,298096 + ,231861 + ,309422 + ,286963 + ,269753 + ,448243 + ,165404 + ,204325 + ,407159 + ,290476 + ,275311 + ,246541 + ,253468 + ,240897 + ,-83265 + ,-42143 + ,272713 + ,215362 + ,42754 + ,306275 + ,253537 + ,372631 + ,-7170) > par2 = '36' > par1 = '0' > #'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!# > par1 <- as#numeric#par1# > par2 <- as#numeric#par2# > x <- as#ts#x# > library#lattice# function (package, help, pos = 2, lib.loc = NULL, character.only = FALSE, logical.return = FALSE, warn.conflicts = TRUE, keep.source = getOption("keep.source.pkgs"), verbose = getOption("verbose")) { paste0 <- function(...) paste(..., sep = "") testRversion <- function(pkgInfo, pkgname, pkgpath) { current <- getRversion() if (length(Rdeps <- pkgInfo$Rdepends2)) { for (dep in Rdeps) if (length(dep) > 1L) { target <- as.numeric_version(dep$version) res <- eval(parse(text = paste("current", dep$op, "target"))) if (!res) stop(gettextf("This is R %s, package '%s' needs %s %s", current, pkgname, dep$op, target), call. = FALSE, domain = NA) } } else if (length(Rdeps <- pkgInfo$Rdepends) > 1L) { target <- as.numeric_version(Rdeps$version) res <- eval(parse(text = paste("current", Rdeps$op, "target"))) if (!res) stop(gettextf("This is R %s, package '%s' needs %s %s", current, pkgname, Rdeps$op, target), call. = FALSE, domain = NA) } if (!is.null(built <- pkgInfo$Built)) { R_version_built_under <- as.numeric_version(built$R) if (R_version_built_under < "2.0.0") stop(gettextf("package '%s' was built before R 2.0.0: please re-install it", pkgname), call. = FALSE, domain = NA) if (R_version_built_under > current) warning(gettextf("package '%s' was built under R version %s", pkgname, as.character(built$R)), call. = FALSE, domain = NA) if (.Platform$OS.type == "unix") { platform <- built$Platform r_arch <- .Platform$r_arch if (!nzchar(r_arch) && length(grep("\\w", platform)) && !testPlatformEquivalence(platform, R.version$platform)) stop(gettextf("package '%s' was built for %s", pkgname, platform), call. = FALSE, domain = NA) if (nzchar(r_arch) && file.exists(file.path(pkgpath, "libs")) && !file.exists(file.path(pkgpath, "libs", r_arch))) stop(gettextf("package '%s' is not installed for 'arch=%s'", pkgname, r_arch), call. = FALSE, domain = NA) } } else stop(gettextf("package '%s' has not been installed properly\n", pkgname), gettext("See the Note in ?library"), call. = FALSE, domain = NA) } checkNoGenerics <- function(env, pkg) { nenv <- env ns <- .Internal(getRegisteredNamespace(as.name(pkg))) if (!is.null(ns)) nenv <- asNamespace(ns) if (exists(".noGenerics", envir = nenv, inherits = FALSE)) TRUE else { length(objects(env, pattern = "^\\.__[MT]", all.names = TRUE)) == 0L } } checkConflicts <- function(package, pkgname, pkgpath, nogenerics, env) { dont.mind <- c("last.dump", "last.warning", ".Last.value", ".Random.seed", ".First.lib", ".Last.lib", ".packageName", ".noGenerics", ".required", ".no_S3_generics") sp <- search() lib.pos <- match(pkgname, sp) ob <- objects(lib.pos, all.names = TRUE) if (!nogenerics) { these <- objects(lib.pos, all.names = TRUE) these <- these[substr(these, 1L, 6L) == ".__T__"] gen <- gsub(".__T__(.*):([^:]+)", "\\1", these) from <- gsub(".__T__(.*):([^:]+)", "\\2", these) gen <- gen[from != package] ob <- ob[!(ob %in% gen)] } fst <- TRUE ipos <- seq_along(sp)[-c(lib.pos, match(c("Autoloads", "CheckExEnv"), sp, 0L))] for (i in ipos) { obj.same <- match(objects(i, all.names = TRUE), ob, nomatch = 0L) if (any(obj.same > 0)) { same <- ob[obj.same] same <- same[!(same %in% dont.mind)] Classobjs <- grep("^\\.__", same) if (length(Classobjs)) same <- same[-Classobjs] same.isFn <- function(where) sapply(same, exists, where = where, mode = "function", inherits = FALSE) same <- same[same.isFn(i) == same.isFn(lib.pos)] if (length(same)) same <- same[sapply(same, function(.) !identical(get(., i), get(., lib.pos)))] if (length(same)) { if (fst) { fst <- FALSE packageStartupMessage(gettextf("\nAttaching package: '%s'\n", package), domain = NA) } packageStartupMessage(paste("\n\tThe following object(s) are masked", if (i < lib.pos) "_by_" else "from", sp[i], ":\n\n\t", paste(same, collapse = ",\n\t "), "\n")) } } } } runUserHook <- function(pkgname, pkgpath) { hook <- getHook(packageEvent(pkgname, "attach")) for (fun in hook) try(fun(pkgname, pkgpath)) } bindTranslations <- function(pkgname, pkgpath) { popath <- file.path(pkgpath, "po") if (!file.exists(popath)) return() bindtextdomain(pkgname, popath) bindtextdomain(paste("R", pkgname, sep = "-"), popath) } if (!missing(package)) { if (is.null(lib.loc)) lib.loc <- .libPaths() lib.loc <- lib.loc[file.info(lib.loc)$isdir %in% TRUE] if (!character.only) package <- as.character(substitute(package)) if (length(package) != 1L) stop("'package' must be of length 1") if (is.na(package) || (package == "")) stop("invalid package name") pkgname <- paste("package", package, sep = ":") newpackage <- is.na(match(pkgname, search())) if (newpackage) { pkgpath <- .find.package(package, lib.loc, quiet = TRUE, verbose = verbose) if (length(pkgpath) == 0L) { txt <- if (length(lib.loc)) gettextf("there is no package called '%s'", package) else gettext("no library trees found in 'lib.loc'") if (logical.return) { warning(txt, domain = NA) return(FALSE) } else stop(txt, domain = NA) } which.lib.loc <- dirname(pkgpath) pfile <- system.file("Meta", "package.rds", package = package, lib.loc = which.lib.loc) if (!nzchar(pfile)) stop(gettextf("'%s' is not a valid installed package", package), domain = NA) pkgInfo <- .readRDS(pfile) testRversion(pkgInfo, package, pkgpath) if (is.character(pos)) { npos <- match(pos, search()) if (is.na(npos)) { warning(gettextf("'%s' not found on search path, using pos = 2", pos), domain = NA) pos <- 2 } else pos <- npos } .getRequiredPackages2(pkgInfo) if (packageHasNamespace(package, which.lib.loc)) { tt <- try({ ns <- loadNamespace(package, c(which.lib.loc, lib.loc), keep.source = keep.source) dataPath <- file.path(which.lib.loc, package, "data") env <- attachNamespace(ns, pos = pos, dataPath = dataPath) }) if (inherits(tt, "try-error")) if (logical.return) return(FALSE) else stop(gettextf("package/namespace load failed for '%s'", package), call. = FALSE, domain = NA) else { on.exit(do.call("detach", list(name = pkgname))) nogenerics <- !.isMethodsDispatchOn() || checkNoGenerics(env, package) if (warn.conflicts && !exists(".conflicts.OK", envir = env, inherits = FALSE)) checkConflicts(package, pkgname, pkgpath, nogenerics, ns) runUserHook(package, pkgpath) on.exit() if (logical.return) return(TRUE) else return(invisible(.packages())) } } dependsMethods <- "methods" %in% names(pkgInfo$Depends) if (dependsMethods && pkgInfo$Built$R < "2.4.0") stop("package was installed prior to 2.4.0 and must be re-installed") codeFile <- file.path(which.lib.loc, package, "R", package) loadenv <- new.env(hash = TRUE, parent = .GlobalEnv) assign(".packageName", package, envir = loadenv) if (file.exists(codeFile)) { res <- try(sys.source(codeFile, loadenv, keep.source = keep.source)) if (inherits(res, "try-error")) stop(gettextf("unable to load R code in package '%s'", package), call. = FALSE, domain = NA) } else if (verbose) warning(gettextf("package '%s' contains no R code", package), domain = NA) dbbase <- file.path(which.lib.loc, package, "data", "Rdata") if (file.exists(paste0(dbbase, ".rdb"))) lazyLoad(dbbase, loadenv) dbbase <- file.path(which.lib.loc, package, "R", "sysdata") if (file.exists(paste0(dbbase, ".rdb"))) lazyLoad(dbbase, loadenv) env <- attach(NULL, pos = pos, name = pkgname) on.exit(do.call("detach", list(name = pkgname))) attr(env, "path") <- file.path(which.lib.loc, package) .Internal(lib.fixup(loadenv, env)) bindTranslations(package, pkgpath) if (exists(".First.lib", mode = "function", envir = env, inherits = FALSE)) { firstlib <- get(".First.lib", mode = "function", envir = env, inherits = FALSE) tt <- try(firstlib(which.lib.loc, package)) if (inherits(tt, "try-error")) if (logical.return) return(FALSE) else stop(gettextf(".First.lib failed for '%s'", package), domain = NA) } if (!is.null(firstlib <- getOption(".First.lib")[[package]])) { tt <- try(firstlib(which.lib.loc, package)) if (inherits(tt, "try-error")) if (logical.return) return(FALSE) else stop(gettextf(".First.lib failed for '%s'", package), domain = NA) } nogenerics <- !.isMethodsDispatchOn() || checkNoGenerics(env, package) if (warn.conflicts && !exists(".conflicts.OK", envir = env, inherits = FALSE)) checkConflicts(package, pkgname, pkgpath, nogenerics, env) if (!nogenerics) methods::cacheMetaData(env, TRUE, searchWhere = .GlobalEnv) runUserHook(package, pkgpath) on.exit() } if (verbose && !newpackage) warning(gettextf("package '%s' already present in search()", package), domain = NA) } else if (!missing(help)) { if (!character.only) help <- as.character(substitute(help)) pkgName <- help[1L] pkgPath <- .find.package(pkgName, lib.loc, verbose = verbose) docFiles <- c(file.path(pkgPath, "Meta", "package.rds"), file.path(pkgPath, "INDEX")) if (file.exists(vignetteIndexRDS <- file.path(pkgPath, "Meta", "vignette.rds"))) docFiles <- c(docFiles, vignetteIndexRDS) pkgInfo <- vector(length = 3L, mode = "list") readDocFile <- function(f) { if (basename(f) %in% "package.rds") { txt <- .readRDS(f)$DESCRIPTION if ("Encoding" %in% names(txt)) { to <- if (Sys.getlocale("LC_CTYPE") == "C") "ASCII//TRANSLIT" else "" tmp <- try(iconv(txt, from = txt["Encoding"], to = to)) if (!inherits(tmp, "try-error")) txt <- tmp else warning("'DESCRIPTION' has 'Encoding' field and re-encoding is not possible", call. = FALSE) } nm <- paste0(names(txt), ":") formatDL(nm, txt, indent = max(nchar(nm, "w")) + 3) } else if (basename(f) %in% "vignette.rds") { txt <- .readRDS(f) if (is.data.frame(txt) && nrow(txt)) cbind(basename(gsub("\\.[[:alpha:]]+$", "", txt$File)), paste(txt$Title, paste0(rep.int("(source", NROW(txt)), ifelse(txt$PDF != "", ", pdf", ""), ")"))) else NULL } else readLines(f) } for (i in which(file.exists(docFiles))) pkgInfo[[i]] <- readDocFile(docFiles[i]) y <- list(name = pkgName, path = pkgPath, info = pkgInfo) class(y) <- "packageInfo" return(y) } else { if (is.null(lib.loc)) lib.loc <- .libPaths() db <- matrix(character(0L), nrow = 0L, ncol = 3L) nopkgs <- character(0L) for (lib in lib.loc) { a <- .packages(all.available = TRUE, lib.loc = lib) for (i in sort(a)) { file <- system.file("Meta", "package.rds", package = i, lib.loc = lib) title <- if (file != "") { txt <- .readRDS(file) if (is.list(txt)) txt <- txt$DESCRIPTION if ("Encoding" %in% names(txt)) { to <- if (Sys.getlocale("LC_CTYPE") == "C") "ASCII//TRANSLIT" else "" tmp <- try(iconv(txt, txt["Encoding"], to, "?")) if (!inherits(tmp, "try-error")) txt <- tmp else warning("'DESCRIPTION' has 'Encoding' field and re-encoding is not possible", call. = FALSE) } txt["Title"] } else NA if (is.na(title)) title <- " ** No title available ** " db <- rbind(db, cbind(i, lib, title)) } if (length(a) == 0L) nopkgs <- c(nopkgs, lib) } dimnames(db) <- list(NULL, c("Package", "LibPath", "Title")) if (length(nopkgs) && !missing(lib.loc)) { pkglist <- paste(sQuote(nopkgs), collapse = ", ") msg <- sprintf(ngettext(length(nopkgs), "library %s contains no packages", "libraries %s contain no packages"), pkglist) warning(msg, domain = NA) } y <- list(header = NULL, results = db, footer = NULL) class(y) <- "libraryIQR" return(y) } if (logical.return) TRUE else invisible(.packages()) } > postscript(file="/var/www/html/rcomp/tmp/159kb1291207493.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > plot#x,type='l',main='Run Sequence Plot',xlab='time or index',ylab='value'# 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") } > grid## function (nx = NULL, ny = nx, col = "lightgray", lty = "dotted", lwd = par("lwd"), equilogs = TRUE) { if (is.null(nx) || (!is.na(nx) && nx >= 1)) { log <- par("xlog") if (is.null(nx)) { ax <- par("xaxp") if (log && equilogs && ax[3L] > 0) ax[3L] <- 1 at <- axTicks(1, axp = ax, log = log) } else { U <- par("usr") at <- seq.int(U[1L], U[2L], length.out = nx + 1) at <- (if (log) 10^at else at)[-c(1, nx + 1)] } abline(v = at, col = col, lty = lty, lwd = lwd) } if (is.null(ny) || (!is.na(ny) && ny >= 1)) { log <- par("ylog") if (is.null(ny)) { ax <- par("yaxp") if (log && equilogs && ax[3L] > 0) ax[3L] <- 1 at <- axTicks(2, axp = ax, log = log) } else { U <- par("usr") at <- seq.int(U[3L], U[4L], length.out = ny + 1) at <- (if (log) 10^at else at)[-c(1, ny + 1)] } abline(h = at, col = col, lty = lty, lwd = lwd) } } > dev#off## Error: object 'dev' not found Execution halted