Displaying 1 result from an estimated 1 matches for "summarymap".
Did you mean:
summarymat
2000 Apr 04
0
Obscure bug....?
...mids=mi),
class="histogram"))
}
summaryidmaps <- function(path, files, quiet=F, ...)
{
filearr <- list.files(path, files, full.names=T)
if(! quiet)
{
print(noquote("Files found:"))
print(noquote(filearr))
}
tmp <- summarymap(filearr[1], ...)
h <- tmp$histogram
sm <- tmp$mapmean
sv <- tmp$mapvar
mmin <- tmp$mapmin
mmax <- tmp$mapmax
seed <- tmp$mapseed
nfiles <- length(filearr)
for (i in 2:nfiles) # Supposedly, reduced efficiency by using a for
{ # loop is neglibl...