The R Project SVN R

Rev

Rev 3475 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed 

euro <- c(ATS = 13.7603, BEF = 40.3399, DEM = 1.95583, ESP = 166.386,
      FIM = 5.94573, FRF = 6.55957, IEP = .787564, ITL = 1936.27,
      LUF = 40.3399, NLG = 2.20371, PTE = 200.482)

euro.cross <- outer(1/euro, euro)
dimnames(euro.cross) <- list(names(euro),names(euro))