Skip to content

Instantly share code, notes, and snippets.

@extrowerk

extrowerk/R_3.5.1_testlog.txt

Created September 2, 2018 08:08
Show Gist options
  • Save extrowerk/e18ca0f7bf4be19fd8cb0e0901d36596 to your computer and use it in GitHub Desktop.
Save extrowerk/e18ca0f7bf4be19fd8cb0e0901d36596 to your computer and use it in GitHub Desktop.
Download ZIP
R_3.5.1_testlog.txt
Raw
R_3.5.1_testlog.txt
make[1]: Entering directory '/sources/R-3.5.1/tests'
make[2]: Entering directory '/sources/R-3.5.1/tests'
make[3]: Entering directory '/sources/R-3.5.1/tests/Examples'
Testing examples for package 'base'
Testing examples for package 'tools'
comparing 'tools-Ex.Rout' to 'tools-Ex.Rout.save' ... NOTE
4a5,90
> > nameEx("CRANtools")
> > ### * CRANtools
> >
> > flush(stderr()); flush(stdout())
> >
> > ### Name: CRANtools
> > ### Title: CRAN Package Repository Tools
> > ### Aliases: CRAN_package_db CRAN_check_results CRAN_check_details
> > ### CRAN_check_issues CRAN_memtest_notes summarize_CRAN_check_status
> >
> > ### ** Examples
> >
> >
> > cleanEx()
> > nameEx("HTMLheader")
> > ### * HTMLheader
> >
> > flush(stderr()); flush(stdout())
> >
> > ### Name: HTMLheader
> > ### Title: Generate a Standard HTML Header for R Help
> > ### Aliases: HTMLheader
> > ### Keywords: utilities documentation
> >
> > ### ** Examples
> >
> > cat(HTMLheader("This is a sample header"), sep="\n")
> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
> <html xmlns="http://www.w3.org/1999/xhtml">
> <head><title>R: This is a sample header</title>
> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
> <link rel="stylesheet" type="text/css" href="/doc/html/R.css" />
> </head><body>
> <h1> This is a sample header
> <img class="toplogo" src="/doc/html/Rlogo.svg" alt="[R logo]" />
> </h1>
> <hr/>
> <div style="text-align: center;">
> <a href="/doc/html/index.html"><img class="arrow" src="/doc/html/up.jpg" alt="[Top]" /></a>
> </div>
> >
> >
> >
> > cleanEx()
> > nameEx("Rd2HTML")
> > ### * Rd2HTML
> >
> > flush(stderr()); flush(stdout())
> >
> > ### Name: Rd2HTML
> > ### Title: Rd Converters
> > ### Aliases: Rd2txt Rd2HTML Rd2ex Rd2latex
> > ### Keywords: documentation
> >
> > ### ** Examples
> > cleanEx()
> > nameEx("Rd2txt_options")
> > ### * Rd2txt_options
> >
> > flush(stderr()); flush(stdout())
> >
> > ### Name: Rd2txt_options
> > ### Title: Set Formatting Options for Text Help
> > ### Aliases: Rd2txt_options
> > ### Keywords: documentation
> >
> > ### ** Examples
> >
> >
> >
> >
> > cleanEx()
> > nameEx("Rdutils")
> > ### * Rdutils
> >
> > flush(stderr()); flush(stdout())
> >
> > ### Name: Rdutils
> > ### Title: Rd Utilities
> > ### Aliases: Rd_db
> > ### Keywords: utilities documentation
> >
> > ### ** Examples
> >
> >
> > cleanEx()
280,316d365
< > nameEx("check_packages_in_dir")
< > ### * check_packages_in_dir
< >
< > flush(stderr()); flush(stdout())
< >
< > ### Name: check_packages_in_dir
< > ### Title: Check Source Packages and Their Reverse Dependencies
< > ### Aliases: check_packages_in_dir summarize_check_packages_in_dir_depends
< > ### summarize_check_packages_in_dir_results
< > ### summarize_check_packages_in_dir_timings check_packages_in_dir_changes
< > ### check_packages_in_dir_details
< > ### Keywords: utilities
< >
< > ### ** Examples
< >
< > ## Not run:
< > ##D ## Check packages in dir without reverse dependencies:
< > ##D check_packages_in_dir(dir)
< > ##D ## Check packages in dir and their reverse dependencies using the
< > ##D ## defaults (all repositories in getOption("repos"), all "strong"
< > ##D ## reverse dependencies, no recursive reverse dependencies):
< > ##D check_packages_in_dir(dir, reverse = list())
< > ##D ## Check packages in dir with their reverse dependencies from CRAN,
< > ##D ## using all strong reverse dependencies and reverse suggests:
< > ##D check_packages_in_dir(dir,
< > ##D reverse = list(repos = getOption("repos")["CRAN"],
< > ##D which = "most"))
< > ##D ## Check packages in dir with their reverse dependencies from CRAN,
< > ##D ## using '--as-cran' for the former but not the latter:
< > ##D check_packages_in_dir(dir,
< > ##D check_args = c("--as-cran", ""),
< > ##D reverse = list(repos = getOption("repos")["CRAN"]))
< > ## End(Not run)
< >
< >
< >
< > cleanEx()
372,373c421,422
< > nameEx("CRANtools")
< > ### * CRANtools
---
> > nameEx("check_packages_in_dir")
> > ### * check_packages_in_dir
377,380c426,432
< > ### Name: CRANtools
< > ### Title: CRAN Package Repository Tools
< > ### Aliases: CRAN_package_db CRAN_check_results CRAN_check_details
< > ### CRAN_check_issues CRAN_memtest_notes summarize_CRAN_check_status
---
> > ### Name: check_packages_in_dir
> > ### Title: Check Source Packages and Their Reverse Dependencies
> > ### Aliases: check_packages_in_dir summarize_check_packages_in_dir_depends
> > ### summarize_check_packages_in_dir_results
> > ### summarize_check_packages_in_dir_timings check_packages_in_dir_changes
> > ### check_packages_in_dir_details
> > ### Keywords: utilities
383a436,455
> > ## Not run:
> > ##D ## Check packages in dir without reverse dependencies:
> > ##D check_packages_in_dir(dir)
> > ##D ## Check packages in dir and their reverse dependencies using the
> > ##D ## defaults (all repositories in getOption("repos"), all "strong"
> > ##D ## reverse dependencies, no recursive reverse dependencies):
> > ##D check_packages_in_dir(dir, reverse = list())
> > ##D ## Check packages in dir with their reverse dependencies from CRAN,
> > ##D ## using all strong reverse dependencies and reverse suggests:
> > ##D check_packages_in_dir(dir,
> > ##D reverse = list(repos = getOption("repos")["CRAN"],
> > ##D which = "most"))
> > ##D ## Check packages in dir with their reverse dependencies from CRAN,
> > ##D ## using '--as-cran' for the former but not the latter:
> > ##D check_packages_in_dir(dir,
> > ##D check_args = c("--as-cran", ""),
> > ##D reverse = list(repos = getOption("repos")["CRAN"]))
> > ## End(Not run)
> >
> >
529,558d600
< > nameEx("HTMLheader")
< > ### * HTMLheader
< >
< > flush(stderr()); flush(stdout())
< >
< > ### Name: HTMLheader
< > ### Title: Generate a Standard HTML Header for R Help
< > ### Aliases: HTMLheader
< > ### Keywords: utilities documentation
< >
< > ### ** Examples
< >
< > cat(HTMLheader("This is a sample header"), sep="\n")
< <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
< <html xmlns="http://www.w3.org/1999/xhtml">
< <head><title>R: This is a sample header</title>
< <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
< <link rel="stylesheet" type="text/css" href="/doc/html/R.css" />
< </head><body>
< <h1> This is a sample header
< <img class="toplogo" src="/doc/html/Rlogo.svg" alt="[R logo]" />
< </h1>
< <hr/>
< <div style="text-align: center;">
< <a href="/doc/html/index.html"><img class="arrow" src="/doc/html/up.jpg" alt="[Top]" /></a>
< </div>
< >
< >
< >
< > cleanEx()
731,772d772
< >
< >
< > cleanEx()
< > nameEx("Rd2HTML")
< > ### * Rd2HTML
< >
< > flush(stderr()); flush(stdout())
< >
< > ### Name: Rd2HTML
< > ### Title: Rd Converters
< > ### Aliases: Rd2txt Rd2HTML Rd2ex Rd2latex
< > ### Keywords: documentation
< >
< > ### ** Examples
< > cleanEx()
< > nameEx("Rd2txt_options")
< > ### * Rd2txt_options
< >
< > flush(stderr()); flush(stdout())
< >
< > ### Name: Rd2txt_options
< > ### Title: Set Formatting Options for Text Help
< > ### Aliases: Rd2txt_options
< > ### Keywords: documentation
< >
< > ### ** Examples
< >
< >
< >
< >
< > cleanEx()
< > nameEx("Rdutils")
< > ### * Rdutils
< >
< > flush(stderr()); flush(stdout())
< >
< > ### Name: Rdutils
< > ### Title: Rd Utilities
< > ### Aliases: Rd_db
< > ### Keywords: utilities documentation
< >
< > ### ** Examples
Testing examples for package 'utils'
Testing examples for package 'grDevices'
comparing 'grDevices-Ex.Rout' to 'grDevices-Ex.Rout.save' ... NOTE
4a5,138
> > nameEx("Devices")
> > ### * Devices
> >
> > flush(stderr()); flush(stdout())
> >
> > ### Name: Devices
> > ### Title: List of Graphical Devices
> > ### Aliases: Devices device
> > ### Keywords: device
> >
> > ### ** Examples
> > ## Not run:
> > ##D ## open the default screen device on this platform if no device is
> > ##D ## open
> > ##D if(dev.cur() == 1) dev.new()
> > ## End(Not run)
> >
> >
> > cleanEx()
> > nameEx("Hershey")
> > ### * Hershey
> >
> > flush(stderr()); flush(stdout())
> >
> > ### Name: Hershey
> > ### Title: Hershey Vector Fonts in R
> > ### Aliases: Hershey
> > ### Keywords: aplot
> >
> > ### ** Examples
> >
> > Hershey
> $typeface
> [1] "serif" "sans serif" "script"
> [4] "gothic english" "gothic german" "gothic italian"
> [7] "serif symbol" "sans serif symbol"
>
> $fontindex
> [1] "plain" "italic" "bold" "bold italic"
> [5] "cyrillic" "oblique cyrillic" "EUC"
>
> $allowed
> [,1] [,2]
> [1,] 1 1
> [2,] 1 2
> [3,] 1 3
> [4,] 1 4
> [5,] 1 5
> [6,] 1 6
> [7,] 1 7
> [8,] 2 1
> [9,] 2 2
> [10,] 2 3
> [11,] 2 4
> [12,] 3 1
> [13,] 3 2
> [14,] 3 3
> [15,] 4 1
> [16,] 5 1
> [17,] 6 1
> [18,] 7 1
> [19,] 7 2
> [20,] 7 3
> [21,] 7 4
> [22,] 8 1
> [23,] 8 2
>
> >
> > ## for tables of examples, see demo(Hershey)
> >
> >
> >
> > cleanEx()
> > nameEx("Japanese")
> > ### * Japanese
> >
> > flush(stderr()); flush(stdout())
> >
> > ### Name: Japanese
> > ### Title: Japanese characters in R
> > ### Aliases: Japanese
> > ### Keywords: aplot
> >
> > ### ** Examples
> >
> > require(graphics)
> >
> > plot(1:9, type = "n", axes = FALSE, frame = TRUE, ylab = "",
> + main = "example(Japanese)", xlab = "using Hershey fonts")
> > par(cex = 3)
> > Vf <- c("serif", "plain")
> > text(4, 2, "\\#J244b\\#J245b\\#J2473", vfont = Vf)
> > text(4, 4, "\\#J2538\\#J2563\\#J2551\\#J2573", vfont = Vf)
> > text(4, 6, "\\#J467c\\#J4b5c", vfont = Vf)
> > text(4, 8, "Japan", vfont = Vf)
> > par(cex = 1)
> > text(8, 2, "Hiragana")
> > text(8, 4, "Katakana")
> > text(8, 6, "Kanji")
> > text(8, 8, "English")
> >
> >
> >
> > graphics::par(get("par.postscript", pos = 'CheckExEnv'))
> > cleanEx()
> > nameEx("Type1Font")
> > ### * Type1Font
> >
> > flush(stderr()); flush(stdout())
> >
> > ### Name: Type1Font
> > ### Title: Type 1 and CID Fonts
> > ### Aliases: Type1Font CIDFont
> > ### Keywords: device
> >
> > ### ** Examples
> >
> > ## This duplicates "ComputerModernItalic".
> > CMitalic <- Type1Font("ComputerModern2",
> + c("CM_regular_10.afm", "CM_boldx_10.afm",
> + "cmti10.afm", "cmbxti10.afm",
> + "CM_symbol_10.afm"),
> + encoding = "TeXtext.enc")
> >
> > ## Not run:
> > ##D ## This could be used by
> > ##D postscript(family = CMitalic)
> > ##D ## or
> > ##D postscriptFonts(CMitalic = CMitalic) # once in a session
> > ##D postscript(family = "CMitalic", encoding = "TeXtext.enc")
> > ## End(Not run)
> >
> >
> > cleanEx()
1693a1828,1857
> > nameEx("dev")
> > ### * dev
> >
> > flush(stderr()); flush(stdout())
> >
> > ### Name: dev
> > ### Title: Control Multiple Devices
> > ### Aliases: dev.cur dev.list dev.next dev.prev dev.off dev.set dev.new
> > ### graphics.off
> > ### Keywords: device iplot
> >
> > ### ** Examples
> >
> > ## Not run:
> > ##D ## Unix-specific example
> > ##D x11()
> > ##D plot(1:10)
> > ##D x11()
> > ##D plot(rnorm(10))
> > ##D dev.set(dev.prev())
> > ##D abline(0, 1) # through the 1:10 points
> > ##D dev.set(dev.next())
> > ##D abline(h = 0, col = "gray") # for the residual plot
> > ##D dev.set(dev.prev())
> > ##D dev.off(); dev.off() #- close the two X devices
> > ## End(Not run)
> >
> >
> >
> > cleanEx()
1749,1778d1912
< > nameEx("dev")
< > ### * dev
< >
< > flush(stderr()); flush(stdout())
< >
< > ### Name: dev
< > ### Title: Control Multiple Devices
< > ### Aliases: dev.cur dev.list dev.next dev.prev dev.off dev.set dev.new
< > ### graphics.off
< > ### Keywords: device iplot
< >
< > ### ** Examples
< >
< > ## Not run:
< > ##D ## Unix-specific example
< > ##D x11()
< > ##D plot(1:10)
< > ##D x11()
< > ##D plot(rnorm(10))
< > ##D dev.set(dev.prev())
< > ##D abline(0, 1) # through the 1:10 points
< > ##D dev.set(dev.next())
< > ##D abline(h = 0, col = "gray") # for the residual plot
< > ##D dev.set(dev.prev())
< > ##D dev.off(); dev.off() #- close the two X devices
< > ## End(Not run)
< >
< >
< >
< > cleanEx()
1822,1840d1955
< > nameEx("Devices")
< > ### * Devices
< >
< > flush(stderr()); flush(stdout())
< >
< > ### Name: Devices
< > ### Title: List of Graphical Devices
< > ### Aliases: Devices device
< > ### Keywords: device
< >
< > ### ** Examples
< > ## Not run:
< > ##D ## open the default screen device on this platform if no device is
< > ##D ## open
< > ##D if(dev.cur() == 1) dev.new()
< > ## End(Not run)
< >
< >
< > cleanEx()
1944,1945c2059,2060
< > nameEx("gray.colors")
< > ### * gray.colors
---
> > nameEx("grSoftVersion")
> > ### * grSoftVersion
1949,1952c2064,2066
< > ### Name: gray.colors
< > ### Title: Gray Color Palette
< > ### Aliases: gray.colors grey.colors
< > ### Keywords: color
---
> > ### Name: grSoftVersion
> > ### Title: Report Versions of Graphics Software
> > ### Aliases: grSoftVersion
1956,1959d2069
< > require(graphics)
< >
< > pie(rep(1, 12), col = gray.colors(12))
< > barplot(1:12, col = gray.colors(12))
1983,1984c2093,2094
< > nameEx("grSoftVersion")
< > ### * grSoftVersion
---
> > nameEx("gray.colors")
> > ### * gray.colors
1988,1990c2098,2101
< > ### Name: grSoftVersion
< > ### Title: Report Versions of Graphics Software
< > ### Aliases: grSoftVersion
---
> > ### Name: gray.colors
> > ### Title: Gray Color Palette
> > ### Aliases: gray.colors grey.colors
> > ### Keywords: color
1993a2105,2108
> > require(graphics)
> >
> > pie(rep(1, 12), col = gray.colors(12))
> > barplot(1:12, col = gray.colors(12))
2133,2186d2247
< > nameEx("Hershey")
< > ### * Hershey
< >
< > flush(stderr()); flush(stdout())
< >
< > ### Name: Hershey
< > ### Title: Hershey Vector Fonts in R
< > ### Aliases: Hershey
< > ### Keywords: aplot
< >
< > ### ** Examples
< >
< > Hershey
< $typeface
< [1] "serif" "sans serif" "script"
< [4] "gothic english" "gothic german" "gothic italian"
< [7] "serif symbol" "sans serif symbol"
<
< $fontindex
< [1] "plain" "italic" "bold" "bold italic"
< [5] "cyrillic" "oblique cyrillic" "EUC"
<
< $allowed
< [,1] [,2]
< [1,] 1 1
< [2,] 1 2
< [3,] 1 3
< [4,] 1 4
< [5,] 1 5
< [6,] 1 6
< [7,] 1 7
< [8,] 2 1
< [9,] 2 2
< [10,] 2 3
< [11,] 2 4
< [12,] 3 1
< [13,] 3 2
< [14,] 3 3
< [15,] 4 1
< [16,] 5 1
< [17,] 6 1
< [18,] 7 1
< [19,] 7 2
< [20,] 7 3
< [21,] 7 4
< [22,] 8 1
< [23,] 8 2
<
< >
< > ## for tables of examples, see demo(Hershey)
< >
< >
< >
< > cleanEx()
2217,2248d2277
< > nameEx("Japanese")
< > ### * Japanese
< >
< > flush(stderr()); flush(stdout())
< >
< > ### Name: Japanese
< > ### Title: Japanese characters in R
< > ### Aliases: Japanese
< > ### Keywords: aplot
< >
< > ### ** Examples
< >
< > require(graphics)
< >
< > plot(1:9, type = "n", axes = FALSE, frame = TRUE, ylab = "",
< + main = "example(Japanese)", xlab = "using Hershey fonts")
< > par(cex = 3)
< > Vf <- c("serif", "plain")
< > text(4, 2, "\\#J244b\\#J245b\\#J2473", vfont = Vf)
< > text(4, 4, "\\#J2538\\#J2563\\#J2551\\#J2573", vfont = Vf)
< > text(4, 6, "\\#J467c\\#J4b5c", vfont = Vf)
< > text(4, 8, "Japan", vfont = Vf)
< > par(cex = 1)
< > text(8, 2, "Hiragana")
< > text(8, 4, "Katakana")
< > text(8, 6, "Kanji")
< > text(8, 8, "English")
< >
< >
< >
< > graphics::par(get("par.postscript", pos = 'CheckExEnv'))
< > cleanEx()
2465a2495,2509
> > nameEx("pdf")
> > ### * pdf
> >
> > flush(stderr()); flush(stdout())
> >
> > ### Name: pdf
> > ### Title: PDF Graphics Device
> > ### Aliases: pdf
> > ### Keywords: device
> >
> > ### ** Examples
> >
> >
> >
> > cleanEx()
2504,2518d2547
< > nameEx("pdf")
< > ### * pdf
< >
< > flush(stderr()); flush(stdout())
< >
< > ### Name: pdf
< > ### Title: PDF Graphics Device
< > ### Aliases: pdf
< > ### Keywords: device
< >
< > ### ** Examples
< >
< >
< >
< > cleanEx()
3492,3520d3520
< >
< >
< > cleanEx()
< > nameEx("Type1Font")
< > ### * Type1Font
< >
< > flush(stderr()); flush(stdout())
< >
< > ### Name: Type1Font
< > ### Title: Type 1 and CID Fonts
< > ### Aliases: Type1Font CIDFont
< > ### Keywords: device
< >
< > ### ** Examples
< >
< > ## This duplicates "ComputerModernItalic".
< > CMitalic <- Type1Font("ComputerModern2",
< + c("CM_regular_10.afm", "CM_boldx_10.afm",
< + "cmti10.afm", "cmbxti10.afm",
< + "CM_symbol_10.afm"),
< + encoding = "TeXtext.enc")
< >
< > ## Not run:
< > ##D ## This could be used by
< > ##D postscript(family = CMitalic)
< > ##D ## or
< > ##D postscriptFonts(CMitalic = CMitalic) # once in a session
< > ##D postscript(family = "CMitalic", encoding = "TeXtext.enc")
< > ## End(Not run)
Testing examples for package 'graphics'
comparing 'graphics-Ex.Rout' to 'graphics-Ex.Rout.save' ... NOTE
94a95,162
> > nameEx("axTicks")
> > ### * axTicks
> >
> > flush(stderr()); flush(stdout())
> >
> > ### Name: axTicks
> > ### Title: Compute Axis Tickmark Locations
> > ### Aliases: axTicks
> > ### Keywords: dplot
> >
> > ### ** Examples
> >
> > plot(1:7, 10*21:27)
> > axTicks(1)
> [1] 1 2 3 4 5 6 7
> > axTicks(2)
> [1] 210 220 230 240 250 260 270
> > stopifnot(identical(axTicks(1), axTicks(3)),
> + identical(axTicks(2), axTicks(4)))
> >
> > ## Show how axTicks() and axis() correspond :
> > op <- par(mfrow = c(3, 1))
> > for(x in 9999 * c(1, 2, 8)) {
> + plot(x, 9, log = "x")
> + cat(formatC(par("xaxp"), width = 5),";", T <- axTicks(1),"\n")
> + rug(T, col = adjustcolor("red", 0.5), lwd = 4)
> + }
> 1000 1e+05 3 ; 200 500 1000 2000 5000 10000 20000 50000 1e+05 2e+05 5e+05
> 1000 1e+06 2 ; 500 1000 5000 10000 50000 1e+05 5e+05 1e+06
> 1000 1e+07 1 ; 1000 10000 1e+05 1e+06 1e+07
> > par(op)
> >
> > x <- 9.9*10^(-3:10)
> > plot(x, 1:14, log = "x")
> > axTicks(1) # now length 5, in R <= 2.13.x gave the following
> [1] 1e-02 1e+01 1e+04 1e+07 1e+10
> > axTicks(1, nintLog = Inf) # rather too many
> [1] 1e-02 1e-01 1e+00 1e+01 1e+02 1e+03 1e+04 1e+05 1e+06 1e+07 1e+08 1e+09
> [13] 1e+10 1e+11
> >
> > ## An example using axTicks() without reference to an existing plot
> > ## (copying R's internal procedures for setting axis ranges etc.),
> > ## You do need to supply _all_ of axp, usr, log, nintLog
> > ## standard logarithmic y axis labels
> > ylims <- c(0.2, 88)
> > get_axp <- function(x) 10^c(ceiling(x[1]), floor(x[2]))
> > ## mimic par("yaxs") == "i"
> > usr.i <- log10(ylims)
> > (aT.i <- axTicks(side = 2, usr = usr.i,
> + axp = c(get_axp(usr.i), n = 3), log = TRUE, nintLog = 5))
> [1] 0.2 0.5 1.0 2.0 5.0 10.0 20.0 50.0
> > ## mimic (default) par("yaxs") == "r"
> > usr.r <- extendrange(r = log10(ylims), f = 0.04)
> > (aT.r <- axTicks(side = 2, usr = usr.r,
> + axp = c(get_axp(usr.r), 3), log = TRUE, nintLog = 5))
> [1] 0.2 0.5 1.0 2.0 5.0 10.0 20.0 50.0 100.0
> >
> > ## Prove that we got it right :
> > plot(0:1, ylims, log = "y", yaxs = "i")
> > stopifnot(all.equal(aT.i, axTicks(side = 2)))
> >
> > plot(0:1, ylims, log = "y", yaxs = "r")
> > stopifnot(all.equal(aT.r, axTicks(side = 2)))
> >
> >
> >
> > graphics::par(get("par.postscript", pos = 'CheckExEnv'))
> > cleanEx()
171,238d238
< > nameEx("axTicks")
< > ### * axTicks
< >
< > flush(stderr()); flush(stdout())
< >
< > ### Name: axTicks
< > ### Title: Compute Axis Tickmark Locations
< > ### Aliases: axTicks
< > ### Keywords: dplot
< >
< > ### ** Examples
< >
< > plot(1:7, 10*21:27)
< > axTicks(1)
< [1] 1 2 3 4 5 6 7
< > axTicks(2)
< [1] 210 220 230 240 250 260 270
< > stopifnot(identical(axTicks(1), axTicks(3)),
< + identical(axTicks(2), axTicks(4)))
< >
< > ## Show how axTicks() and axis() correspond :
< > op <- par(mfrow = c(3, 1))
< > for(x in 9999 * c(1, 2, 8)) {
< + plot(x, 9, log = "x")
< + cat(formatC(par("xaxp"), width = 5),";", T <- axTicks(1),"\n")
< + rug(T, col = adjustcolor("red", 0.5), lwd = 4)
< + }
< 1000 1e+05 3 ; 200 500 1000 2000 5000 10000 20000 50000 1e+05 2e+05 5e+05
< 1000 1e+06 2 ; 500 1000 5000 10000 50000 1e+05 5e+05 1e+06
< 1000 1e+07 1 ; 1000 10000 1e+05 1e+06 1e+07
< > par(op)
< >
< > x <- 9.9*10^(-3:10)
< > plot(x, 1:14, log = "x")
< > axTicks(1) # now length 5, in R <= 2.13.x gave the following
< [1] 1e-02 1e+01 1e+04 1e+07 1e+10
< > axTicks(1, nintLog = Inf) # rather too many
< [1] 1e-02 1e-01 1e+00 1e+01 1e+02 1e+03 1e+04 1e+05 1e+06 1e+07 1e+08 1e+09
< [13] 1e+10 1e+11
< >
< > ## An example using axTicks() without reference to an existing plot
< > ## (copying R's internal procedures for setting axis ranges etc.),
< > ## You do need to supply _all_ of axp, usr, log, nintLog
< > ## standard logarithmic y axis labels
< > ylims <- c(0.2, 88)
< > get_axp <- function(x) 10^c(ceiling(x[1]), floor(x[2]))
< > ## mimic par("yaxs") == "i"
< > usr.i <- log10(ylims)
< > (aT.i <- axTicks(side = 2, usr = usr.i,
< + axp = c(get_axp(usr.i), n = 3), log = TRUE, nintLog = 5))
< [1] 0.2 0.5 1.0 2.0 5.0 10.0 20.0 50.0
< > ## mimic (default) par("yaxs") == "r"
< > usr.r <- extendrange(r = log10(ylims), f = 0.04)
< > (aT.r <- axTicks(side = 2, usr = usr.r,
< + axp = c(get_axp(usr.r), 3), log = TRUE, nintLog = 5))
< [1] 0.2 0.5 1.0 2.0 5.0 10.0 20.0 50.0 100.0
< >
< > ## Prove that we got it right :
< > plot(0:1, ylims, log = "y", yaxs = "i")
< > stopifnot(all.equal(aT.i, axTicks(side = 2)))
< >
< > plot(0:1, ylims, log = "y", yaxs = "r")
< > stopifnot(all.equal(aT.r, axTicks(side = 2)))
< >
< >
< >
< > graphics::par(get("par.postscript", pos = 'CheckExEnv'))
< > cleanEx()
337,357d336
< > nameEx("boxplot.matrix")
< > ### * boxplot.matrix
< >
< > flush(stderr()); flush(stdout())
< >
< > ### Name: boxplot.matrix
< > ### Title: Draw a Boxplot for each Column (Row) of a Matrix
< > ### Aliases: boxplot.matrix
< > ### Keywords: hplot
< >
< > ### ** Examples
< >
< > ## Very similar to the example in ?boxplot
< > mat <- cbind(Uni05 = (1:100)/21, Norm = rnorm(100),
< + T5 = rt(100, df = 5), Gam2 = rgamma(100, shape = 2))
< > boxplot(mat, main = "boxplot.matrix(...., main = ...)",
< + notch = TRUE, col = 1:4)
< >
< >
< >
< > cleanEx()
427a407,427
> > nameEx("boxplot.matrix")
> > ### * boxplot.matrix
> >
> > flush(stderr()); flush(stdout())
> >
> > ### Name: boxplot.matrix
> > ### Title: Draw a Boxplot for each Column (Row) of a Matrix
> > ### Aliases: boxplot.matrix
> > ### Keywords: hplot
> >
> > ### ** Examples
> >
> > ## Very similar to the example in ?boxplot
> > mat <- cbind(Uni05 = (1:100)/21, Norm = rnorm(100),
> + T5 = rt(100, df = 5), Gam2 = rgamma(100, shape = 2))
> > boxplot(mat, main = "boxplot.matrix(...., main = ...)",
> + notch = TRUE, col = 1:4)
> >
> >
> >
> > cleanEx()
1755a1756,1784
> > nameEx("plot")
> > ### * plot
> >
> > flush(stderr()); flush(stdout())
> >
> > ### Name: plot
> > ### Title: Generic X-Y Plotting
> > ### Aliases: plot
> > ### Keywords: hplot
> >
> > ### ** Examples
> >
> > require(stats) # for lowess, rpois, rnorm
> > plot(cars)
> > lines(lowess(cars))
> >
> > plot(sin, -pi, 2*pi) # see ?plot.function
> >
> > ## Discrete Distribution Plot:
> > plot(table(rpois(100, 5)), type = "h", col = "red", lwd = 10,
> + main = "rpois(100, lambda = 5)")
> >
> > ## Simple quantiles/ECDF, see ecdf() {library(stats)} for a better one:
> > plot(x <- sort(rnorm(47)), type = "s", main = "plot(x, type = \"s\")")
> > points(x, cex = .5, col = "dark red")
> >
> >
> >
> > cleanEx()
1930,1958d1958
< > cleanEx()
< > nameEx("plot")
< > ### * plot
< >
< > flush(stderr()); flush(stdout())
< >
< > ### Name: plot
< > ### Title: Generic X-Y Plotting
< > ### Aliases: plot
< > ### Keywords: hplot
< >
< > ### ** Examples
< >
< > require(stats) # for lowess, rpois, rnorm
< > plot(cars)
< > lines(lowess(cars))
< >
< > plot(sin, -pi, 2*pi) # see ?plot.function
< >
< > ## Discrete Distribution Plot:
< > plot(table(rpois(100, 5)), type = "h", col = "red", lwd = 10,
< + main = "rpois(100, lambda = 5)")
< >
< > ## Simple quantiles/ECDF, see ecdf() {library(stats)} for a better one:
< > plot(x <- sort(rnorm(47)), type = "s", main = "plot(x, type = \"s\")")
< > points(x, cex = .5, col = "dark red")
< >
< >
< >
Testing examples for package 'stats'
Error: testing 'stats' failed
Execution halted
Makefile:37: recipe for target 'test-Examples-Base' failed
make[3]: *** [test-Examples-Base] Error 1
make[3]: Leaving directory '/sources/R-3.5.1/tests/Examples'
Makefile.common:184: recipe for target 'test-Examples' failed
make[2]: *** [test-Examples] Error 2
make[2]: Leaving directory '/sources/R-3.5.1/tests'
Makefile.common:170: recipe for target 'test-all-basics' failed
make[1]: *** [test-all-basics] Error 1
make[1]: Leaving directory '/sources/R-3.5.1/tests'
Makefile:240: recipe for target 'check' failed
make: *** [check] Error 2
g directory '/sources/R-3.5.1/tests'
Makefile.common:170: recipe for target 'test-all-basics' failed
make[1]: *** [test-all-basics] Error 1
make[1]: Leaving directory '/sources/R-3.5.1/tests'
Makefile:240: recipe for target 'check' failed
make: *** [check] Error 2
data source
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment