[Rd] Bug in qr.R ? (PR#9655)

[Dietrich . Trenkler]

Ladies and Gentlemen,

using

 > A <- structure(c(1, 0, 0, 3, 2, 1, 4, 5, -3, -2, 1, 0), .Dim = 
as.integer(c(3,4)))

I get

 > dim(A)
[1] 3 4

 >  qr.R(qr(A),complete=TRUE)
 [,1]  [,2]  [,3]   [,4]
[1,]   -1 -3.00 -4.00  2.000
[2,]0 -2.236068 -3.130495 -0.8944272
[3,]0  0.00 -4.919350 -0.4472136
 >  qr.R(qr(A),complete=FALSE)
 [,1]  [,2]  [,3]   [,4]
[1,]   -1 -3.00 -4.00  2.000
[2,]0 -2.236068 -3.130495 -0.8944272
[3,]0  0.00 -4.919350 -0.4472136

In ?qr.R I find

/qr.R returns R. The number of rows of R is nrow(X) or ncol(X), 
depending on whether complete is TRUE or FALSE./

As you can see, the number of rows stays the same...
 
Thank you.

D. Trenkler

--please do not edit the information below--

Version:
 platform = i386-pc-mingw32
 arch = i386
 os = mingw32
 system = i386, mingw32
 status =
 major = 2
 minor = 5.0
 year = 2007
 month = 04
 day = 23
 svn rev = 41293
 language = R
 version.string = R version 2.5.0 (2007-04-23)

Windows XP (build 2600) Service Pack 2.0

Locale:
LC_COLLATE=English_United States.1252;LC_CTYPE=English_United 
States.1252;LC_MONETARY=English_United 
States.1252;LC_NUMERIC=C;LC_TIME=English_United States.1252

Search Path:
 .GlobalEnv, package:stats, package:graphics, package:grDevices, 
package:utils, package:datasets, package:methods, Autoloads, package:base

-- 
Dietrich Trenkler c/o Universitaet Osnabrueck 
Rolandstr. 8; D-49069 Osnabrueck, Germany
email: [EMAIL PROTECTED]

__
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel

[Rd] Bug in dev.print ? (PR#9801)

[Dietrich . Trenkler]

arare", 
"Helsinki  ",
+ "HeraklionKreta", "Hongkong  ", 
"Honolulu  ",
+ "Houston   ", "Irkutsk   ", 
"Istanbul  ",
+ "JakutskNordostsibirien", "Johannesburg  ", 
"Kairo ",
+ "Kapstadt  ", "Kathmandu ", 
"LarnakaZypern ",
+ "Las Palmas", "Las Vegas ", 
"Lhasa ",
+ "Lima  ", "Lissabon  ", "Los 
Angeles   ",
+ "Madeira   ", "Madrid", 
"Malaga",
+ "Mallorca  ", "Marrakesch", "Mexico 
City   ",
+ "Moskau", "Neu Delhi ", "New 
York  ",
+ "Palermo   ", "PekingBeijing ", 
"PerthAustralien   ",
+ "Reykjavik ", "RioDeJaneiro  ", 
"Rom   ",
+ "SanFrancisco  ", "SantiagoDeChile   ", 
"SantoDomingoKaribik   ",
+ "Shanghai  ", "Singapur  ", 
"SydneyAustralien  ",
+ "Teneriffa ", "Tunis ", 
"Windhoek  "),
+ class = "data.frame")
 >
 > attach(aa)
 > par(mfrow=c(4,3))
 > m 
<-c("Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember")
 > for(i in 1:12)
+ 
plot(BG,aa[,i+2],main=m[i],xlab="Breitengrad",ylab="Temperatur",ylim=c(-35,35))
 > dev.print(device = postscript, 
width=4,height=5,horizontal=TRUE,file="c://test.ps")
windows
  2
 > # That's fine
 > # Here comes the error
 > dev.print(device = postscript, width=5 
,height=4,horizontal=TRUE,file="c://test.ps")
Error in dev.copy(device = function (file = ifelse(onefile, "Rplots.ps",  :
invalid graphics state
 > # From now on plotting is impossible:
 > plot(1:2)
Error in plot.new() : figure margins too large
 > # As a "remedy" I restart R



--please do not edit the information below--

Version:
 platform = i386-pc-mingw32
 arch = i386
 os = mingw32
 system = i386, mingw32
 status =
 major = 2
 minor = 5.0
 year = 2007
 month = 04
 day = 23
 svn rev = 41293
 language = R
 version.string = R version 2.5.0 (2007-04-23)

Windows XP (build 2600) Service Pack 2.0

Locale:
LC_COLLATE=English_United States.1252;LC_CTYPE=English_United 
States.1252;LC_MONETARY=English_United 
States.1252;LC_NUMERIC=C;LC_TIME=English_United States.1252

Search Path:
 .GlobalEnv, aa, package:stats, package:graphics, package:grDevices, 
package:utils, package:datasets, package:methods, Autoloads, package:base


-- 
Dietrich Trenkler c/o Universitaet Osnabrueck 
Rolandstr. 8; D-49069 Osnabrueck, Germany
email: [EMAIL PROTECTED]

__
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel