Nothing
### R code from vignette source 'expint.Rnw'
###################################################
### code chunk number 1: expint.Rnw:76-78
###################################################
library(expint)
options(width = 60)
###################################################
### code chunk number 2: expint.Rnw:242-243
###################################################
expint(c(1.275, 10, 12.3), order = 1:3)
###################################################
### code chunk number 3: expint.Rnw:257-260
###################################################
expint_E1(1.275)
expint_E2(10)
expint_En(12.3, order = 3L)
###################################################
### code chunk number 4: expint.Rnw:265-267
###################################################
expint_Ei(5)
-expint_E1(-5) # same
###################################################
### code chunk number 5: expint.Rnw:382-383
###################################################
op <- options() # remember default number of digits
###################################################
### code chunk number 6: expint.Rnw:385-388
###################################################
options(digits = 20)
gammainc(1.2, 3)
gamma(1.2) * pgamma(3, 1.2, 1, lower = FALSE)
###################################################
### code chunk number 7: expint.Rnw:390-391
###################################################
options(op) # restore defaults
###################################################
### code chunk number 8: expint.Rnw:449-453
###################################################
x <- c(1.275, 10, 12.3)
n <- 1:10
structure(t(outer(x, n, expint)),
dimnames = list(n, paste("x =", x)))
###################################################
### code chunk number 9: expint.Rnw:458-462
###################################################
a <- c(-1.5, -1, -0.5, 1)
x <- 1:10
structure(t(outer(a, x, gammainc)),
dimnames = list(x, paste("a =", a)))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.