Displaying 1 result from an estimated 1 matches for "mapmean".
Did you mean:
ampmean
2000 Apr 04
0
Obscure bug....?
...;))
}
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 neglible compared to file access time.
print(c(test=9,hb=length(h$...