From amurta@ipimar.pt  Fri Feb  1 15:49:08 2002
From: amurta@ipimar.pt (amurta@ipimar.pt)
Date: Fri, 1 Feb 2002 16:49:08 +0100 (MET)
Subject: [Rd] Different behaviour in Linux and Windows (PR#1293)
Message-ID: <200202011549.QAA21060@pubhealth.ku.dk>

Hi

I have written a small function to calculate distances between pairs of
landmarks ('my.dist' bellow). I gave it to a colleague that works with
MSWindows and the function doesn't give the right answer:

R 1.4.1 for Linux: 

> my.dist()
[1]  22 561  

R 1.4.1 for Windows:

> my.dist()
[1]  22 560
Warning message:
Replacement length not a multiple of the elements to replace in
matrix(...)


FYI: S+ 2000 pro. rel.2 for Windows and S+ 6.0 for Linux both give the
same (wrong) answer as R 1.4.1 for Windows.


----------------------------------------------

xy3 <- matrix(round(100*runif(22*68)),22,68)

my.dist <- function(x = xy3){

 landmarks.x <- as.matrix(x[, 1:34])
 landmarks.y <- as.matrix(x[, 35:68])

 x1 <- c()
 x2 <- c()
 y1 <- c()
 y2 <- c()

 for(i in 1:(ncol(landmarks.x) - 1)) {
  x1 <- c(x1, rep(landmarks.x[, i], ncol(landmarks.x) - i))
  x2 <- c(x2, c(landmarks.x[,  - (1:i)]))
  y1 <- c(y1, rep(landmarks.y[, i], ncol(landmarks.x) - i))
  y2 <- c(y2, c(landmarks.y[,  - (1:i)]))
 }

 distan <- sqrt((x1 - x2)^2 + (y1 - y2)^2)
 comb <- prod(ncol(landmarks.x):1)/(2 * prod((ncol(landmarks.x) - 2):1))

 dist.out <- matrix(distan, nrow(x), comb)
 dim(dist.out)
}


-- 
                           Alberto G. Murta                      
           IPIMAR - Institute of Fisheries and Sea Research
            Avenida de Brasilia, 1449-006 Lisboa, Portugal       
Tel:+351 213027062; Fax:+351 213015849; http://www.ipimar.pt/pelagicos/

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
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] Different behaviour in Linux and Windows (PR#1293)
amurta@ipimar.pt