[Rd] typo in browse.pkgs

[G. Sawitzki]

See below.

  gs.

Error in browse.pkgs("CRAN", "binary") : couldn't find function 
"avaliable.packages"

Your version of R is up to date
>  browse.pkgs
function (repos = getOption("repos"), contriburl = contrib.url(repos,
 type), type = getOption("pkgType"))
{
 if (.Platform$GUI != "AQUA")
 stop("this function is intended to work with the Aqua GUI")
 x <- installed.packages()
 i.pkgs <- as.character(x[, 1])
 i.vers <- as.character(x[, 3])
 label <- paste("(", type, ") @", contriburl)
 y <- avaliable.packages(contriburl = contriburl)
 c.pkgs <- as.character(y[, 1])
 c.vers <- as.character(y[, 2])
 idx <- match(i.pkgs, c.pkgs)
 vers2 <- character(length(c.pkgs))
 xx <- idx[which(!is.na(idx))]
 vers2[xx] <- i.vers[which(!is.na(idx))]
 i.vers <- vers2
 want.update <- rep(FALSE, length(i.vers))
 .Internal(pkgbrowser(c.pkgs, c.vers, i.vers, label, want.update))
}

>

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

Re: [Rd] typo in browse.pkgs

[G. Sawitzki]

At 15:44 + 03.11.2005, Prof Brian Ripley wrote:
>I believe you will find this is already fixed in R-patched and 
>R-devel as the logs say  (2005-10-07)
>
>r35790 Fixed a typo in aqua R code
>
>and it seems to be that line.

... but possibly it did not find its way into the version "R for Mac 
OS X 2.2.0 released on 2005/10/18" 

  g.

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

[Rd] colour palettes in biplot

[G. Sawitzki]

biplot could benefit from allowing colour palettes,

eg. allowing col=list(xcol= xxpal, ycol= yypal) where xxpal and yypal
are palettes.

For an example, see the robust pricipal components in the principal
componetent section of
<http://www.statlab.uni-heidelberg.de/data/olive/olive10.pdf>


The required change is to replace
col[1L] resp. col[2L] by col[1L]] reep. col[[2L]] for example in

 plot(x, type = "n", xlim = xlim, ylim = ylim, col = col[[1L]], ## <<
 xlab = xlab, ylab = ylab, sub = sub, main = main, ...)


Existing code should not be broken by this change.

Yours,
  gs.


>From valentin.todo...@chello.at:
> library(rrcov)
> 
> pc <- PcaProj(iris[,1:4], 3, scale=TRUE)
> windows(8,5)
> par(mfrow=c(1,2))
> biplot(pc)
> 
> col <- list(xcol=as.numeric(iris[,5])+2, ycol="red")
> biplot(pc, col=col)
> 

-- 
G. Sawitzki
StatLab Heidelberg
Im Neuenheimer Feld 294
D 69120 Heidelberg
Tel. (+49) 62 21 - 54 89 79   Fax (+49) 62 21 - 54 53 31
<http://www.statlab.uni-heidelberg.de/users/gs/>
GPG Fingerprint: FEA4 3F2A 88B2 2629 6CE2 0429 CC3C E49E D159 99AE

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