addmargins

addmargins(UCBAdmissions, FUN = list(Total=sum))

works with no problems, but consider:

 > myFUN <- list(Total=sum)
 > addmargins(UCBAdmissions, FUN = myFUN)
Error in "names<-.default"(`*tmp*`, value = "") :
         names() applied to a non-vector

Is this a bug?


 > R.version
          _
platform i386-pc-mingw32
arch     i386
os       mingw32
system   i386, mingw32
status
major    2
minor    2.1
year     2005
month    12
day      20
svn rev  36812
language R


J. R. M. Hosking