From meyer@ci.tuwien.ac.at  Mon Feb 25 10:34:25 2002
From: meyer@ci.tuwien.ac.at (meyer@ci.tuwien.ac.at)
Date: Mon, 25 Feb 2002 11:34:25 +0100 (MET)
Subject: [Rd] delete.response() incorrectly handles terms-objects without response (PR#1325)
Message-ID: <200202251034.LAA08726@pubhealth.ku.dk>

if the terms-object contains no response, delete.response mutilates the 
predvars-attribute in the line:

attr(tt, "predvars") <- attr(termobj, "predvars")[-2]

which should probably changed to:

    if (length(f) == 3) 
	attr(tt, "predvars") <- attr(termobj, "predvars")[-2]

<<insert bug report here>>



--please do not edit the information below--

Version:
 platform = i686-pc-linux-gnu
 arch = i686
 os = linux-gnu
 system = i686, linux-gnu
 status = Under development (unstable)
 major = 1
 minor = 5.0
 year = 2002
 month = 02
 day = 24
 language = R

Search Path:
 .GlobalEnv, X, iris, package:e1071, package:ctest, Autoloads, package:base

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._


[Rd] delete.response() incorrectly handles terms-objects without response (PR#1325)
meyer@ci.tuwien.ac.at