{ 
tol <- 1e-6
T
}
{
#data.class           # No HELP file
exists("data.class")
}
{
#data.frame
xdf <- data.frame(one=c(3,2,1,4,8),two=factor(c("dog","cat","rat","cat","dog")))
is.data.frame(xdf)
}
{
#data.matrix
all(dim(data.matrix(xdf)==c(2,5)))
}
{
#data.dump  
x1 <- c(1,2,3)
assign("x1",x1,1)
fname <- data.dump("x1")
#data.restore
fname <- data.restore("dumpdata")
length(x1)==3
}
{
#data.tree        # Tested after tree()
T
}
{
#date
d <- date()
is.character(d) && nchar(d) > 0
}
{
#dbeta
rm(x1)
(dbeta(.5,5,5)-2.460938)<tol
}
{
#dbinom
(dbinom(12,40,.3)-0.1365738)<tol
}
{
#dcauchy
dcauchy(10000)<tol
}
{
#dchisq
dchisq(12,12)-0.08031157 < tol
}
{
#debugger              # Interactive
exists("debugger")
}
{
#delcol                # Support for Function drop1.lm()
exists("delcol")
}
{
#delete.response       # Support for Functions loess.matrix(), predict.lm()
exists("delete.response")
}
{
#demod
d <- demod(lynx, .1, .02, .04)
any(names(d)=="amp")
}
{
#density
all(names(density(co2,width=4))==c("x","y"))
}
{
#deparse
foo <- function(x, y) x^y
all(deparse(foo) == c("function(x, y)","x^y"))
}
{
#deriv
x <- 1:23
is.expression(deriv.default(sin(x),"x"))
}
{
#design
#cat("Expect warning 'non-factor variables converted to factors' --------vvv\n")
options(warn=-1)
xdes <- design(one=rep(1:2,5),two=rep(1:5,2))
options(warn=1)
#cat("Expect warning 'non-factor variables converted to factors' --------^^^\n")
all(class(xdes)==c("design","data.frame"))
}
{
#design.makey         # Support for plot.design(), plot.factor()
T
}
{
#design.table
dtab <- design.table(xdes,1:10)
all(dim(dtab)==c(2,5))
}
{
#detach
attach(kyphosis)
detach(2)
T
}
{
#deviance
#deviance.default
deviance.default
a.lm <- lm(freeny.y ~ freeny.x)
deviance.lm(a.lm)-0.007374998 < tol
}
{
#deviance.glm                         # Tested with glm()
#deviance.tree                        # Tested with tree()
T
}
{
#dexp
( dexp(.5,1) - 0.6065307 ) < tol
}
{
#df
(df(.9,12,23)-0.8473677) < tol
}
{
#dgamma
(dgamma(25,25)-0.07952295) < tol
}
{
#dgeom
(dgeom(2,.5)-0.125) < tol
}
{
#dget
x <- dget("dumpdata")
length(x) > 0
}
{
#dhyper
dhyper(.5,8,6,4)-0.01498501 < tol
}
{
#diag
diag(freeny.x)[3]- 5.83112 < tol
}
{
#diag<-
diag(steam.x) <- rep(1,9)
as.logical(steam.x[1,1])
}
{
#diff
all(diff(1:5))
}
{
#dim
all(dim(freeny.x)==c(39,4))
}
{
#dim.data.frame
all(dim.data.frame(guayule)==c(96,5))
}
{
#dim<-
x<-1:124
dim(x)<-c(31,4)
as.logical(x[31,4]/124)
}
{
#dimnames
any(dimnames(freeny.x)[[2]]=="income level")
}
{
#dimnames.data.frame
any(dimnames.data.frame(kyphosis)[[2]]=="Age")
}
{
#dimnames<-
x <- steam.x[1:10,]
dimnames(x) <- list(character(0),as.character(1:9))
ncol(x)==9
}
{
#dimnames<-.data.frame
x <- data.frame(x)
dimnames(x)[[2]] <- dimnames(steam.x)[[2]]
class(x) == "data.frame"
}
{
#discr
discr(freeny.x,3)$cor[[1]]-9.696069e-01 < tol
}
{
#dist
attr(dist(steam.x),"Size")==25
}
{
#dlnorm
dlnorm(.5)-0.6274961 < tol
}
{
#dlogis
dlogis(.5)-0.2350037 < tol
}
{
#dnbinom
dnbinom(12,10,.3)-0.02402332 < tol
}
{
#dnorm
dnorm(.5)-0.3520653 < tol
}
{
#do.call
do.call("length",list(lynx)) -114 < tol
}
{
#do.question.arg
exists("do.question.arg")
}
{
#do.question.call
exists("do.question.call")
}
{
#do.question.methods
exists("do.question.methods")
}
{
#do.question.object
exists("do.question.object")
}
{
#double
double(1)==0
}
{
#dpois
dpois(3,5)-0.1403739 < tol
}
{
#dput
abc <- 1:6
dput(abc, "oldabc") # store abc on file oldabc
def <- dget("oldabc")  # read back in
all(def==abc)
}
{
#dput.formula
abc <- formula(a~b+c)
dput.formula(abc,"oldabc")
def <- dget("oldabc")
all.equal(abc,def)
}
{
#drop
abc <- matrix(1:3,1,3)
is.vector(drop(abc))
}
{
#drop.Error               # Support for Function aov()
exists("drop.Error")
}
{
#drop.scope               # Support for drop1.lm
all(drop.scope( ~ a + b + c + a:b) == c("c","a:b"))
}
{
#drop1.lm
free.lm <- lm( freeny.y ~ freeny.x)
dd <- drop1.lm(free.lm)
any(names(dd)=="Cp")
}
{
#drop1.aov
gun.aov <- aov(formula = Rounds ~ Method + Physique/Team, data = gun)
dd <- drop1.aov(gun.aov)
any(names(dd)=="Df")
}
{
#dstab                 # Not applicable, just an error message
T
}
{
#dt
dt(.5,10)-0.3396951 < tol
}
{
#dump
x <- 1:5
assign("x",x,1)
kk <- dump("x")
kk=="dumpdata"
}
{
#dump.calls
exists("dump.calls")
}
{
#dump.frames
exists("dump.frames")
}
{
#dump.loaded
exists("dump.loaded")
}
{
#dunif
all(dunif(seq(0.1,.99,.1))==1)
}
{
#duplicated
any(duplicated(c(12,3,4,2,4)))
}
{
#dweibull
dweibull(5,.2) - 0.01388817 < tol
}
{
#dwilcox
dwilcox(15,4,6)-0.02857143 < tol
}
{
#dyn.load
exists("dyn.load")
}
{
#dyn.load2
exists("dyn.load2")
}
{
#ed
exists("ed")
}
{
#effects
#effects.default
names(effects.default(gun.aov))[[1]]=="(Intercept)"
}
{
#effects.lm
names(effects.lm(gun.aov))[[1]]=="(Intercept)"
}
{
#eigen
ozcov <- var(data.matrix(ozone.data))
all(eigen(ozcov)$values>0)
}
{
#end
all(end(ship)==c(1974,12))
}
{
#eval
eval(23 > 12)
}
{
#exists
exists("lynx")
}
{
#exists.default
exists.default("lynx")
}
{
#exp
as.logical(exp(0))
}
{
#expand.grid
dim(expand.grid(1:5,1:5))[[1]]==25
}
{
#expand.hat             # Support for Function terms()
T
}
{
#expression
junk <- expression(lsfit(x,y), l1fit(x,y))
mode(junk[[1]]) == "call" && deparse(junk[[1]]) == "lsfit(x, y)"
}
{
#exprgen                # Support for Function deriv.default()
T
}