From rmh at surfer.sbm.temple.edu  Wed Mar 26 03:47:42 2003
From: rmh at surfer.sbm.temple.edu (rmh@surfer.sbm.temple.edu)
Date: Wed Mar 26 03:47:59 2003
Subject: [Rd] summary.manova (PR#2688)
Message-ID: <200303260247.h2Q2lgn9025383@pubhealth.ku.dk>

# Your mailer is set to "none" (default on Windows),
# hence we cannot send the bug report directly from R.
# Please copy the bug report (after finishing it) to
# your favorite email program and send it to
#
#       r-bugs@r-project.org
#
######################################################


summary.manova is missing a line that labels the "$SS$Residuals"

Here is the first few lines of output to show the problem

##  > print.default(summary(hatco.manova))
##  $row.names
##  [1] "x13"       "x14"       "x13:x14"   "Residuals"
##  
##  $SS
##  $SS$x13
##          x9    x10
##  x9  51.840 4.5360
##  x10  4.536 0.3969
##  
##  $SS$x14
##             x9       x10
##  x9  5563.7143 457.62825
##  x10  457.6283  39.46373
##  
##  $SS$"x13:x14"
##             x9        x10
##  x9  21.681796 -1.8034175
##  x10 -1.803417  0.1701310
##  
##  $SS[[4]]
##              x9      x10
##  x9  2361.76389 80.72917
##  x10   80.72917 32.43514
##  

Note that it shows the label "$SS[[4]]" instead of the more useful
"$SS$Residuals".

The fix looks to me like the lines in summary.manova that currently read
    if (rdf > 0) {
        nt <- nterms + 1
        df[nt] <- rdf
        ss[[nt]] <- crossprod(resid)
        nmrows[nt] <- "Residuals"
need one more line
        names(ss)[nt] <- "Residuals"




--please do not edit the information below--

Version:
 platform = i386-pc-mingw32
 arch = i386
 os = mingw32
 system = i386, mingw32
 status = 
 major = 1
 minor = 6.2
 year = 2003
 month = 01
 day = 10
 language = R

Windows XP Home Edition (build 2600) Service Pack 1.0

Search Path:
 .GlobalEnv, package:foreign, file:c:/HOME/rmh/hh/splus.library/.RData, package:lattice, package:grid, package:ctest, Autoloads, package:base


[Rd] summary.manova (PR#2688)
rmh@surfer.sbm.temple.edu