{ tol <- 1e-6 ; T }
{
#loess.dfit               # Support for predict.loess()
#loess.dfitse             # Also Support for predict.loess()
#loess.ifit               # Support for predict.loess()
#loess.ise                # Same
T
}
{
#loess.matrix             # Support for loess() and predict.loess()
#loess.raw                # Support for loess()
#loess.smooth             # Support for panel.smooth and log(1)
T
}
{
#log
log(1)==0
}
{
#log10
log10(1)==0
}
{
#logical
false <- logical(length=1)
is.logical(false)
}
{
#lower.tri                   # Support for Functions nls(), and otherS
T
}
{
#lowess
smu <- lowess(corn.rain,corn.yield)
all(names(smu)==c("x","y"))
}
{
#ls
is.character(ls())
}
{
#lscollection                # No HELP file
platf <- platform()
if (platf == "DOS386" || platf == "WIN386") T else exists("lscollection")
}
{
#lsfit
corn.ls <- lsfit(corn.yield,corn.rain)
all(names(corn.ls)==c("coef","residuals","intercept","qr"))
}
{
#ls.diag
abs(ls.diag(corn.ls)$std.dev -  2.1022960819) < tol
}
{
#ls.print
exists("ls.print")
}
{
#ls.summary                 # Use ls.diag instead, deprecated?
T
}
{
#macro                      # Obsolete
T
}
{
#mad
abs(mad(corn.yield, constant=1) - 2.8)  < tol
}
{
#main.model                  # Support for Function model.frame.default()
#make.call                   # Support for Function D()
#make.family                 # Support fot Family functions
T
}
{
#make.fields
#make.fields <--------   Do?
T
}
{
#make.grid                   # Support for expand.grid()
T
}
{
#make.names
n1 <- make.names(state.abb)
is.character(n1)
}
{
#make.row.names              # Support for Function model.frame.default()
T
}
{
#mantelhaen.test
x <- c(1,2,1,2,2,2,1,1,1,2,2,2,1,2,1,2,1)
y <- c(2,1,2,1,2,1,2,1,2,2,2,1,1,2,1,1,2)
z <- c(2,1,2,1,2,1,2,1,2,1,2,2,2,1,2,1,2)
abs(mantelhaen.test(x,y,z)$statistic - 0.0496912672743) < tol
}
{
#masked, unix only
if (platform() == "DOS386") T else {
	ans <- is.character(masked())
	ans
}
}
{
#match
type <- c(3,5)
all(match(type,1:10)==c(3,5))
}
{
#match.arg
type <- "sp"
match.arg(type,c("spicy","mild")) == "spicy"
}
{
#match.call
one <- match.call(ls,expression(ls(2)))
is.call(one)
}
{
#match.factor
xf <- factor(c("dog","rat","cat","cat","dog","rat"))
all(match.factor(xf,xf) == c(1,2,3,3,1,2))
}
{
#matrix
all(matrix(1:10, 5)==matrix(1:10, ncol=2))
}
{
#max
abs(max(corn.rain)-16.5) < tol
}
{
#mcnemar.test
kmat <- matrix(c(15,30,20,18),2,2)
abs(mcnemar.test(kmat)$statistic - 1.62) < tol
}
{
#mean
abs(mean(rain.nyc1) - 42.3112359551) < tol
}
{
#meanvar.tree                # Test with tree()
T
}
{
#median
abs(median(rain.nyc1) - 40.8) < tol
}
{
#memory.size
is.integer(memory.size())
}
{
#menu                        # Interactive
exists("menu", mode="function")
}
{
#methods
any(methods("coef")=="coef.listof")
}
{
#min
abs(min(swiss.fertility) - 35) < tol
}
{
#min.cvg.msg                 # Support for Functions ms(), summary.ms()
T
}
{
#min.errno
min.errno[1] == 3
}
{
#min.init
any(names(min.init(1))=="flags")
}
{
#min.messages
is.character(min.messages)
}
{
#min.setpars                 # Support for Function ms()
T
}
{
#misclass.tree               # Tested after tree()
T
}
{
#missing
{ function(x) if (missing(x)) T else F }()
}
{
#mode
mode(liver.cells) == "numeric"
}
{
#mode<-
mode(liver.cells) <- "complex"
is.complex(liver.cells)
}
{
#model.extract                # Support for lm()
T
}
{
#model.frame.aovlist
#model.frame.aovlist(Rounds ~ Method + Physique/Team,data=gun)$method=="lm"
T
}