[Rd] delete.response() incorrectly handles terms-objects without response (PR#1325)

[meyer@ci.tuwien.ac.at]

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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._