#
# All functions from pos =c (2,3,4) starting with a b and c
#
{
        tol <- 1e-6
T
}
{
#abbreviate
all(abbreviate(state.name[1:5],minlength=3,dot=T)==
c("Alb.","Als.","Arz.","Ark.", "Clf."))
}
{
#abs
abs(-1)==1
}
{
#ace
x <- lynx
y <- exp(sin(lynx))
exace <- ace(x,y)
all(names(exace)==c("tx","ty","rsq","iterations"))
}
{
#acf
all(acf(lynx,plot=F)$acf[c(1,3,7)]-c(1.0,0.21441145,-0.40034956) < tol)
}
{
#acm.ave
gm <- ar.gm(bicoal.tons, 3)
all(names(acm.ave(bicoal.tons, gm))==c("ar","chat","si","smo","st"))
}
{
#acm.filt
all(names(acm.filt(bicoal.tons, gm))==c("ar","chat","si","filt","st"))
}
{
#acm.smo
all(names(acm.smo(bicoal.tons,gm))==c("ar","chat","si","smo","st"))
}
{
#acos
acos(-1)==pi
}
{
2*asin(1)==pi
}
{
4*atan(-1,1)==-pi
}
{
#acosh
acosh(1)==0
}
{
asinh(0)==0
}
{
atanh(0)==0
}
{
#add.scope
all(add.scope( ~ a + b + c + a:b,  ~ (a + b + c)^3)==c("a:c","b:c"))
}
{
all(drop.scope( ~ a + b + c + a:b)==c("c","a:b"))
}
{
#add.traceid  # NO HELP FILE
exists("add.traceid")
T
}
#add1  # Tested after lm 
#add1.lm  # Tested after lm
T
{
#addlist      # NO HELP FILE
T
}
{
#again        # Hmmm!?
exists("again")
T
}
{
#aggregate
abs(mean(aggregate(ship, 4, sum) )-177821.9375) < tol
}
{
#agreg
xstart <- c(1,2,5,2,1,7,3,4,8,8)
xstop  <- c(2,3,6,7,8,9,9,9,14,17)
xevent <- c(rep(1,7),0,0,0)
xx <- c(1,0,0,1,0,1,1,1,0,0)
all(abs(agreg(xstart,xstop,xevent,xx)$loglik-c(-9.392662,-9.387015)) < tol)
}
{
#alias
bhh.aov <- aov(Yield ~ Conc * Cat * Temp, catalyst[c(2,3,5,8),])
all(names(alias(bhh.aov))==c("Model","Complete"))
}
{
exists("alias.aovlist")       # can't get it to work
}
{
exists("alias.default")
}
{
exists("alias.design")
exists("alias.formula")
exists("alias.lm")
exists("alias.mlm")
}
{
#all                 # Tested throughout 
T
}
{
#all.equal
all.equal.character("a",letters[1])
}
{
all.equal.complex(sqrt(as.complex(-1)),0+1i)
}
{
all.equal.default("a",letters[1])
}
{
exists("all.equal.factor")
}
{
exists("all.equal.formula")
}
{
exists("all.equal.list")
}
{
exists("all.equal.lm")
}
{
exists("all.equal.numeric")
}
{
#all.names
all.names(print)=="UseMethod"
}
{
#all.subset           # No HELP file
exists("all.subset")
}
{
#all.vars
all(all.vars(abs)==c(".Internal","x"))
}
{
#allocated
all(allocated()>0)
}
{
#amatch
all(names(amatch(get, expression(get("abc", w=2))))==c("name","where","..."))
}
{
#anova
#anova.gam                 #Tested after gam()
#anova.gamlist
#anova.glm                 #Tested after glm()
#anova.glmlist
#anova.lm                  #Tested after lm()
#anova.lmlist
#anova.loess               #Tested after loess()
T
}
{
#any
any(c(3,NA,9,-1,0)<0,na.rm=T)
}
{
#aov
pig.aov <- aov(Moisture~Batch*Sample+Error(Test),data=pigment)
abs(pig.aov$Test$residuals - 0.903696114115 ) < tol
}
{
#aov.genyates
aov.genyates(Yield ~ Temp * Conc * Cat, catalyst)$rank==8
}
{
#aperm
#aperm.default
all(dim(aperm(iris,c(1,3,2)))==c(50,3,4))
}
{
#aperm.data.frame
all(dim(aperm.data.frame(kyphosis,c(2,1)))==c(4,81))
}
{
#append
x <- 1:5
length(append(x,c(3.4,5.7),3))==7
}
{
#apply
x <- 1:5
y <- 6:10
max(apply(cbind(x,y),1,sum))==15
}
{
#approx
approx(lynx,xout=1900)$y==387
}
{
#ar
#ar.yw tested when using ar since it is default method
sun.ar <- ar(sunspots)
sun.ar$order == 27
}
{
#ar.burg
sun.ar <- ar.burg(sunspots)
sun.ar$order==32
}
{
#ar.gm
robar <- ar.gm(bicoal.tons,2)
all(robar$ar - c(0.8396730,-0.1176459)< tol)
}
{
#ar.mle                # No HELP file.  It is broken anyway.
exists("ar.mle")
}
{
# args
if (platform() != "DOS386") {
	args(abs)
}
T
}
{
# arima.diag and arima.mle
lynx.arma11 <- arima.mle(lynx, model=list(ar=0, ma=0))
abs(arima.diag(lynx.arma11,plot=F)$gof$statistic[1] - 3.935498238) < tol
}
{
#arima.filt
lynx.fore <- ts(c(lynx,rep(NA,12)),start=start(lynx))
abs(arima.filt(lynx.fore,model=lynx.arma11$model)$loglik-1879.9233991) < tol 
#arima.forecast
abs(arima.forecast(lynx,n=12,model=lynx.arma11$model)$mean[5] -  997.6511311) < tol
}
{
#arima.sim
x <- arima.sim(100,model=list(ar=.5,ma=-.6))
length(x)==100
}
{
#arima.td
td.ship <- arima.td(ship)
all(dim(td.ship)==c(96,7))
}
{
#array
array(1:24,dim=c(3,2,4))[2,2,3]==17
}
{
#as.anova
class(as.anova(guayule,"guay"))[1] == "anova"
}
{
#as.array
as.array(iris)[1,1,1]==5.1
}
{
#as.call
foo <- as.call(T)
is.call(foo)
}
{
#as.category
a.cat <- as.category(c("a","b","a","b"))
is.category(a.cat)
}
{
#as.character
as.character(1)=="1"
}
{
#as.complex
sqrt(as.complex(-1))-1i < tol
}
{
#as.data.frame
class(as.data.frame(longley.x))=="data.frame"
}
{
#as.double
as.double(1) == 1
}
{
#as.expression
T
}
{
#as.factor
x <- as.factor(rep(1:4,3))
class(x) == "factor"
}
{
#as.family
as.family(gaussian)$family["name"]=="Gaussian"
}
{
#as.formula
class(as.formula(a~b)) == "formula"
}
{
#as.function
y <- as.function(pi)
is.function(y)
}
{
#as.integer
as.integer(3.4) - 3 < tol
}
{
#as.list
length(as.list(1:3))-3 < tol
}
{
#as.logical
as.logical(1)
}
{
#as.matrix
y <- as.matrix(1:3)
all(dim(y) == c(3,1))
}
{
#as.matrix.data.frame
y <- as.matrix.data.frame(guayule)
is.character(y)
}
{
#as.matrix.default         # Tested with as.matrix
T
}
{
#as.name
guay <- as.name("guayule")
mode(guay)=="name"
}
{
#as.null
yn <- as.null(pi)
is.null(yn)
}
{
#as.numeric
ynum <- numeric(2)
ynum <- as.numeric(ynum)
is.numeric(ynum)
}
{
#as.qr
steam.qr <- as.qr(steam.x)
is.qr(steam.qr)
}
{
#as.single
sing.pi <- as.single(pi)
is.single(sing.pi)
}
{
#as.terms
ater <- as.terms(a~b)
is.expression(ater)
}
{
#as.ts
stack.ts <- as.ts(stack.loss)
is.ts(stack.ts)
}
{
#as.vector
steam.vec <- as.vector(steam.x)
length(steam.vec) == (25 * 9)
}
{
#as.vector.factor
xfac <- factor(c("dog","dog","cat","rat","cat"))
xfac <- as.vector.factor(xfac)
is.character(xfac)
}
{
#assign
#assign.default
assign("abc", 1:3)
length(abc)==3
}
{
#assign.sub                # Subset of Assign Component
T
}
{
#atan.data.frame
xdf <- data.frame(one=c(2.3,5.4,.8,0,2.3),two=1:5)
axdf <- atan.data.frame(xdf)
is.data.frame(axdf)
}
{
#attach
#attach.default
attach.default(kyphosis)
length(Age)==81
}
{
#attach.pframe
kkkk <- kyphosis
parameters(kkkk) <- list(yes=T)
pfat <- attach.pframe(kkkk)
yes
}
{
#attr.all.equal
foo <- attr.all.equal(lynx,ship)
attr(foo,"continue")
}
{
#attr.assign<-
attr.assign(ship)<-list(test=T)
attr(ship,"test")
}
{
#attr.xdim                  # Support for Functions proj.aovlist(), proj.lm()
T
}
{
#attr
#attr<-
attr(ship,"test") <- T
attr(ship,"test")
}
{
#attributes<-
attributes(ship) <- list(test=T)
#attributes
attributes(ship)$test
}
{
#audit.file
is.character(audit.file())
}
{
#avas
avfit <- avas(stack.x,stack.loss)
all(dim(avfit$tx)==dim(stack.x))
}