[R-gregmisc-users] SF.net SVN: r-gregmisc:[1405] trunk/gdata/tests
Brought to you by:
warnes
Menu
▾
▴
[R-gregmisc-users] SF.net SVN: r-gregmisc:[1405] trunk/gdata/tests
|
From: <wa...@us...> - 2010-01-24 19:12:20
|
Revision: 1405
http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1405&view=rev
Author: warnes
Date: 2010-01-24 19:12:07 +0000 (Sun, 24 Jan 2010)
Log Message:
-----------
Add tests for read.xls, sheetCount, and sheetNames
Added Paths:
-----------
trunk/gdata/tests/test.read.xls.R
trunk/gdata/tests/test.read.xls.Rout.save
Added: trunk/gdata/tests/test.read.xls.R
===================================================================
--- trunk/gdata/tests/test.read.xls.R (rev 0)
+++ trunk/gdata/tests/test.read.xls.R 2010-01-24 19:12:07 UTC (rev 1405)
@@ -0,0 +1,61 @@
+library(gdata)
+
+
+# iris.xls is included in the gregmisc package for use as an example
+xlsfile <- file.path(.path.package('gdata'),'xls','iris.xls')
+
+iris.1 <- read.xls(xlsfile) # defaults to csv format
+iris.1
+
+iris.2 <- read.xls(xlsfile,method="csv") # specify csv format
+iris.2
+
+iris.3 <- read.xls(xlsfile,method="tab") # specify tab format
+iris.3
+
+stopifnot(all.equal(iris.1, iris.2))
+stopifnot(all.equal(iris.1, iris.3))
+
+exampleFile <- file.path(.path.package('gdata'),'xls',
+ 'ExampleExcelFile.xls')
+
+exampleFile2007 <- file.path(.path.package('gdata'),'xls',
+ 'ExampleExcelFile.xlsx')
+
+# see the number and names of sheets:
+sheetCount(exampleFile)
+sheetCount(exampleFile2007)
+
+sheetNames(exampleFile)
+sheetNames(exampleFile2007)
+
+example.1 <- read.xls(exampleFile, sheet=1) # default is first worksheet
+example.1
+
+example.2 <- read.xls(exampleFile, sheet=2) # second worksheet by number
+example.2
+
+example.3 <- read.xls(exampleFile, sheet=3) # second worksheet by number
+example.3
+
+example.4 <- read.xls(exampleFile, sheet=3) # second worksheet by number
+example.4
+
+example.x.1 <- read.xls(exampleFile2007, sheet=1) # default is first worksheet
+example.x.1
+
+example.x.2 <- read.xls(exampleFile2007, sheet=2) # second worksheet by number
+example.x.2
+
+example.x.3 <- read.xls(exampleFile2007, sheet=3) # second worksheet by number
+example.x.3
+
+example.x.4 <- read.xls(exampleFile2007, sheet=3) # second worksheet by number
+example.x.4
+
+data <- read.xls(exampleFile2007, sheet="Sheet Second") # and by name
+data
+
+# load the third worksheet, skipping the first two non-data lines...
+data <- read.xls(exampleFile2007, sheet="Sheet with initial text", skip=2)
+data
Added: trunk/gdata/tests/test.read.xls.Rout.save
===================================================================
--- trunk/gdata/tests/test.read.xls.Rout.save (rev 0)
+++ trunk/gdata/tests/test.read.xls.Rout.save 2010-01-24 19:12:07 UTC (rev 1405)
@@ -0,0 +1,627 @@
+
+R version 2.10.1 (2009-12-14)
+Copyright (C) 2009 The R Foundation for Statistical Computing
+ISBN 3-900051-07-0
+
+R is free software and comes with ABSOLUTELY NO WARRANTY.
+You are welcome to redistribute it under certain conditions.
+Type 'license()' or 'licence()' for distribution details.
+
+ Natural language support but running in an English locale
+
+R is a collaborative project with many contributors.
+Type 'contributors()' for more information and
+'citation()' on how to cite R or R packages in publications.
+
+Type 'demo()' for some demos, 'help()' for on-line help, or
+'help.start()' for an HTML browser interface to help.
+Type 'q()' to quit R.
+
+> library(gdata)
+
+Attaching package: 'gdata'
+
+
+ The following object(s) are masked from package:utils :
+
+ object.size
+
+>
+>
+> # iris.xls is included in the gregmisc package for use as an example
+> xlsfile <- file.path(.path.package('gdata'),'xls','iris.xls')
+>
+> iris.1 <- read.xls(xlsfile) # defaults to csv format
+> iris.1
+ Sepal.Length Sepal.Width Petal.Length Petal.Width Species
+1 5.1 3.5 1.4 0.2 setosa
+2 4.9 3.0 1.4 0.2 setosa
+3 4.7 3.2 1.3 0.2 setosa
+4 4.6 3.1 1.5 0.2 setosa
+5 5.0 3.6 1.4 0.2 setosa
+6 5.4 3.9 1.7 0.4 setosa
+7 4.6 3.4 1.4 0.3 setosa
+8 5.0 3.4 1.5 0.2 setosa
+9 4.4 2.9 1.4 0.2 setosa
+10 4.9 3.1 1.5 0.1 setosa
+11 5.4 3.7 1.5 0.2 setosa
+12 4.8 3.4 1.6 0.2 setosa
+13 4.8 3.0 1.4 0.1 setosa
+14 4.3 3.0 1.1 0.1 setosa
+15 5.8 4.0 1.2 0.2 setosa
+16 5.7 4.4 1.5 0.4 setosa
+17 5.4 3.9 1.3 0.4 setosa
+18 5.1 3.5 1.4 0.3 setosa
+19 5.7 3.8 1.7 0.3 setosa
+20 5.1 3.8 1.5 0.3 setosa
+21 5.4 3.4 1.7 0.2 setosa
+22 5.1 3.7 1.5 0.4 setosa
+23 4.6 3.6 1.0 0.2 setosa
+24 5.1 3.3 1.7 0.5 setosa
+25 4.8 3.4 1.9 0.2 setosa
+26 5.0 3.0 1.6 0.2 setosa
+27 5.0 3.4 1.6 0.4 setosa
+28 5.2 3.5 1.5 0.2 setosa
+29 5.2 3.4 1.4 0.2 setosa
+30 4.7 3.2 1.6 0.2 setosa
+31 4.8 3.1 1.6 0.2 setosa
+32 5.4 3.4 1.5 0.4 setosa
+33 5.2 4.1 1.5 0.1 setosa
+34 5.5 4.2 1.4 0.2 setosa
+35 4.9 3.1 1.5 0.2 setosa
+36 5.0 3.2 1.2 0.2 setosa
+37 5.5 3.5 1.3 0.2 setosa
+38 4.9 3.6 1.4 0.1 setosa
+39 4.4 3.0 1.3 0.2 setosa
+40 5.1 3.4 1.5 0.2 setosa
+41 5.0 3.5 1.3 0.3 setosa
+42 4.5 2.3 1.3 0.3 setosa
+43 4.4 3.2 1.3 0.2 setosa
+44 5.0 3.5 1.6 0.6 setosa
+45 5.1 3.8 1.9 0.4 setosa
+46 4.8 3.0 1.4 0.3 setosa
+47 5.1 3.8 1.6 0.2 setosa
+48 4.6 3.2 1.4 0.2 setosa
+49 5.3 3.7 1.5 0.2 setosa
+50 5.0 3.3 1.4 0.2 setosa
+51 7.0 3.2 4.7 1.4 versicolor
+52 6.4 3.2 4.5 1.5 versicolor
+53 6.9 3.1 4.9 1.5 versicolor
+54 5.5 2.3 4.0 1.3 versicolor
+55 6.5 2.8 4.6 1.5 versicolor
+56 5.7 2.8 4.5 1.3 versicolor
+57 6.3 3.3 4.7 1.6 versicolor
+58 4.9 2.4 3.3 1.0 versicolor
+59 6.6 2.9 4.6 1.3 versicolor
+60 5.2 2.7 3.9 1.4 versicolor
+61 5.0 2.0 3.5 1.0 versicolor
+62 5.9 3.0 4.2 1.5 versicolor
+63 6.0 2.2 4.0 1.0 versicolor
+64 6.1 2.9 4.7 1.4 versicolor
+65 5.6 2.9 3.6 1.3 versicolor
+66 6.7 3.1 4.4 1.4 versicolor
+67 5.6 3.0 4.5 1.5 versicolor
+68 5.8 2.7 4.1 1.0 versicolor
+69 6.2 2.2 4.5 1.5 versicolor
+70 5.6 2.5 3.9 1.1 versicolor
+71 5.9 3.2 4.8 1.8 versicolor
+72 6.1 2.8 4.0 1.3 versicolor
+73 6.3 2.5 4.9 1.5 versicolor
+74 6.1 2.8 4.7 1.2 versicolor
+75 6.4 2.9 4.3 1.3 versicolor
+76 6.6 3.0 4.4 1.4 versicolor
+77 6.8 2.8 4.8 1.4 versicolor
+78 6.7 3.0 5.0 1.7 versicolor
+79 6.0 2.9 4.5 1.5 versicolor
+80 5.7 2.6 3.5 1.0 versicolor
+81 5.5 2.4 3.8 1.1 versicolor
+82 5.5 2.4 3.7 1.0 versicolor
+83 5.8 2.7 3.9 1.2 versicolor
+84 6.0 2.7 5.1 1.6 versicolor
+85 5.4 3.0 4.5 1.5 versicolor
+86 6.0 3.4 4.5 1.6 versicolor
+87 6.7 3.1 4.7 1.5 versicolor
+88 6.3 2.3 4.4 1.3 versicolor
+89 5.6 3.0 4.1 1.3 versicolor
+90 5.5 2.5 4.0 1.3 versicolor
+91 5.5 2.6 4.4 1.2 versicolor
+92 6.1 3.0 4.6 1.4 versicolor
+93 5.8 2.6 4.0 1.2 versicolor
+94 5.0 2.3 3.3 1.0 versicolor
+95 5.6 2.7 4.2 1.3 versicolor
+96 5.7 3.0 4.2 1.2 versicolor
+97 5.7 2.9 4.2 1.3 versicolor
+98 6.2 2.9 4.3 1.3 versicolor
+99 5.1 2.5 3.0 1.1 versicolor
+100 5.7 2.8 4.1 1.3 versicolor
+101 6.3 3.3 6.0 2.5 virginica
+102 5.8 2.7 5.1 1.9 virginica
+103 7.1 3.0 5.9 2.1 virginica
+104 6.3 2.9 5.6 1.8 virginica
+105 6.5 3.0 5.8 2.2 virginica
+106 7.6 3.0 6.6 2.1 virginica
+107 4.9 2.5 4.5 1.7 virginica
+108 7.3 2.9 6.3 1.8 virginica
+109 6.7 2.5 5.8 1.8 virginica
+110 7.2 3.6 6.1 2.5 virginica
+111 6.5 3.2 5.1 2.0 virginica
+112 6.4 2.7 5.3 1.9 virginica
+113 6.8 3.0 5.5 2.1 virginica
+114 5.7 2.5 5.0 2.0 virginica
+115 5.8 2.8 5.1 2.4 virginica
+116 6.4 3.2 5.3 2.3 virginica
+117 6.5 3.0 5.5 1.8 virginica
+118 7.7 3.8 6.7 2.2 virginica
+119 7.7 2.6 6.9 2.3 virginica
+120 6.0 2.2 5.0 1.5 virginica
+121 6.9 3.2 5.7 2.3 virginica
+122 5.6 2.8 4.9 2.0 virginica
+123 7.7 2.8 6.7 2.0 virginica
+124 6.3 2.7 4.9 1.8 virginica
+125 6.7 3.3 5.7 2.1 virginica
+126 7.2 3.2 6.0 1.8 virginica
+127 6.2 2.8 4.8 1.8 virginica
+128 6.1 3.0 4.9 1.8 virginica
+129 6.4 2.8 5.6 2.1 virginica
+130 7.2 3.0 5.8 1.6 virginica
+131 7.4 2.8 6.1 1.9 virginica
+132 7.9 3.8 6.4 2.0 virginica
+133 6.4 2.8 5.6 2.2 virginica
+134 6.3 2.8 5.1 1.5 virginica
+135 6.1 2.6 5.6 1.4 virginica
+136 7.7 3.0 6.1 2.3 virginica
+137 6.3 3.4 5.6 2.4 virginica
+138 6.4 3.1 5.5 1.8 virginica
+139 6.0 3.0 4.8 1.8 virginica
+140 6.9 3.1 5.4 2.1 virginica
+141 6.7 3.1 5.6 2.4 virginica
+142 6.9 3.1 5.1 2.3 virginica
+143 5.8 2.7 5.1 1.9 virginica
+144 6.8 3.2 5.9 2.3 virginica
+145 6.7 3.3 5.7 2.5 virginica
+146 6.7 3.0 5.2 2.3 virginica
+147 6.3 2.5 5.0 1.9 virginica
+148 6.5 3.0 5.2 2.0 virginica
+149 6.2 3.4 5.4 2.3 virginica
+150 5.9 3.0 5.1 1.8 virginica
+>
+> iris.2 <- read.xls(xlsfile,method="csv") # specify csv format
+> iris.2
+ Sepal.Length Sepal.Width Petal.Length Petal.Width Species
+1 5.1 3.5 1.4 0.2 setosa
+2 4.9 3.0 1.4 0.2 setosa
+3 4.7 3.2 1.3 0.2 setosa
+4 4.6 3.1 1.5 0.2 setosa
+5 5.0 3.6 1.4 0.2 setosa
+6 5.4 3.9 1.7 0.4 setosa
+7 4.6 3.4 1.4 0.3 setosa
+8 5.0 3.4 1.5 0.2 setosa
+9 4.4 2.9 1.4 0.2 setosa
+10 4.9 3.1 1.5 0.1 setosa
+11 5.4 3.7 1.5 0.2 setosa
+12 4.8 3.4 1.6 0.2 setosa
+13 4.8 3.0 1.4 0.1 setosa
+14 4.3 3.0 1.1 0.1 setosa
+15 5.8 4.0 1.2 0.2 setosa
+16 5.7 4.4 1.5 0.4 setosa
+17 5.4 3.9 1.3 0.4 setosa
+18 5.1 3.5 1.4 0.3 setosa
+19 5.7 3.8 1.7 0.3 setosa
+20 5.1 3.8 1.5 0.3 setosa
+21 5.4 3.4 1.7 0.2 setosa
+22 5.1 3.7 1.5 0.4 setosa
+23 4.6 3.6 1.0 0.2 setosa
+24 5.1 3.3 1.7 0.5 setosa
+25 4.8 3.4 1.9 0.2 setosa
+26 5.0 3.0 1.6 0.2 setosa
+27 5.0 3.4 1.6 0.4 setosa
+28 5.2 3.5 1.5 0.2 setosa
+29 5.2 3.4 1.4 0.2 setosa
+30 4.7 3.2 1.6 0.2 setosa
+31 4.8 3.1 1.6 0.2 setosa
+32 5.4 3.4 1.5 0.4 setosa
+33 5.2 4.1 1.5 0.1 setosa
+34 5.5 4.2 1.4 0.2 setosa
+35 4.9 3.1 1.5 0.2 setosa
+36 5.0 3.2 1.2 0.2 setosa
+37 5.5 3.5 1.3 0.2 setosa
+38 4.9 3.6 1.4 0.1 setosa
+39 4.4 3.0 1.3 0.2 setosa
+40 5.1 3.4 1.5 0.2 setosa
+41 5.0 3.5 1.3 0.3 setosa
+42 4.5 2.3 1.3 0.3 setosa
+43 4.4 3.2 1.3 0.2 setosa
+44 5.0 3.5 1.6 0.6 setosa
+45 5.1 3.8 1.9 0.4 setosa
+46 4.8 3.0 1.4 0.3 setosa
+47 5.1 3.8 1.6 0.2 setosa
+48 4.6 3.2 1.4 0.2 setosa
+49 5.3 3.7 1.5 0.2 setosa
+50 5.0 3.3 1.4 0.2 setosa
+51 7.0 3.2 4.7 1.4 versicolor
+52 6.4 3.2 4.5 1.5 versicolor
+53 6.9 3.1 4.9 1.5 versicolor
+54 5.5 2.3 4.0 1.3 versicolor
+55 6.5 2.8 4.6 1.5 versicolor
+56 5.7 2.8 4.5 1.3 versicolor
+57 6.3 3.3 4.7 1.6 versicolor
+58 4.9 2.4 3.3 1.0 versicolor
+59 6.6 2.9 4.6 1.3 versicolor
+60 5.2 2.7 3.9 1.4 versicolor
+61 5.0 2.0 3.5 1.0 versicolor
+62 5.9 3.0 4.2 1.5 versicolor
+63 6.0 2.2 4.0 1.0 versicolor
+64 6.1 2.9 4.7 1.4 versicolor
+65 5.6 2.9 3.6 1.3 versicolor
+66 6.7 3.1 4.4 1.4 versicolor
+67 5.6 3.0 4.5 1.5 versicolor
+68 5.8 2.7 4.1 1.0 versicolor
+69 6.2 2.2 4.5 1.5 versicolor
+70 5.6 2.5 3.9 1.1 versicolor
+71 5.9 3.2 4.8 1.8 versicolor
+72 6.1 2.8 4.0 1.3 versicolor
+73 6.3 2.5 4.9 1.5 versicolor
+74 6.1 2.8 4.7 1.2 versicolor
+75 6.4 2.9 4.3 1.3 versicolor
+76 6.6 3.0 4.4 1.4 versicolor
+77 6.8 2.8 4.8 1.4 versicolor
+78 6.7 3.0 5.0 1.7 versicolor
+79 6.0 2.9 4.5 1.5 versicolor
+80 5.7 2.6 3.5 1.0 versicolor
+81 5.5 2.4 3.8 1.1 versicolor
+82 5.5 2.4 3.7 1.0 versicolor
+83 5.8 2.7 3.9 1.2 versicolor
+84 6.0 2.7 5.1 1.6 versicolor
+85 5.4 3.0 4.5 1.5 versicolor
+86 6.0 3.4 4.5 1.6 versicolor
+87 6.7 3.1 4.7 1.5 versicolor
+88 6.3 2.3 4.4 1.3 versicolor
+89 5.6 3.0 4.1 1.3 versicolor
+90 5.5 2.5 4.0 1.3 versicolor
+91 5.5 2.6 4.4 1.2 versicolor
+92 6.1 3.0 4.6 1.4 versicolor
+93 5.8 2.6 4.0 1.2 versicolor
+94 5.0 2.3 3.3 1.0 versicolor
+95 5.6 2.7 4.2 1.3 versicolor
+96 5.7 3.0 4.2 1.2 versicolor
+97 5.7 2.9 4.2 1.3 versicolor
+98 6.2 2.9 4.3 1.3 versicolor
+99 5.1 2.5 3.0 1.1 versicolor
+100 5.7 2.8 4.1 1.3 versicolor
+101 6.3 3.3 6.0 2.5 virginica
+102 5.8 2.7 5.1 1.9 virginica
+103 7.1 3.0 5.9 2.1 virginica
+104 6.3 2.9 5.6 1.8 virginica
+105 6.5 3.0 5.8 2.2 virginica
+106 7.6 3.0 6.6 2.1 virginica
+107 4.9 2.5 4.5 1.7 virginica
+108 7.3 2.9 6.3 1.8 virginica
+109 6.7 2.5 5.8 1.8 virginica
+110 7.2 3.6 6.1 2.5 virginica
+111 6.5 3.2 5.1 2.0 virginica
+112 6.4 2.7 5.3 1.9 virginica
+113 6.8 3.0 5.5 2.1 virginica
+114 5.7 2.5 5.0 2.0 virginica
+115 5.8 2.8 5.1 2.4 virginica
+116 6.4 3.2 5.3 2.3 virginica
+117 6.5 3.0 5.5 1.8 virginica
+118 7.7 3.8 6.7 2.2 virginica
+119 7.7 2.6 6.9 2.3 virginica
+120 6.0 2.2 5.0 1.5 virginica
+121 6.9 3.2 5.7 2.3 virginica
+122 5.6 2.8 4.9 2.0 virginica
+123 7.7 2.8 6.7 2.0 virginica
+124 6.3 2.7 4.9 1.8 virginica
+125 6.7 3.3 5.7 2.1 virginica
+126 7.2 3.2 6.0 1.8 virginica
+127 6.2 2.8 4.8 1.8 virginica
+128 6.1 3.0 4.9 1.8 virginica
+129 6.4 2.8 5.6 2.1 virginica
+130 7.2 3.0 5.8 1.6 virginica
+131 7.4 2.8 6.1 1.9 virginica
+132 7.9 3.8 6.4 2.0 virginica
+133 6.4 2.8 5.6 2.2 virginica
+134 6.3 2.8 5.1 1.5 virginica
+135 6.1 2.6 5.6 1.4 virginica
+136 7.7 3.0 6.1 2.3 virginica
+137 6.3 3.4 5.6 2.4 virginica
+138 6.4 3.1 5.5 1.8 virginica
+139 6.0 3.0 4.8 1.8 virginica
+140 6.9 3.1 5.4 2.1 virginica
+141 6.7 3.1 5.6 2.4 virginica
+142 6.9 3.1 5.1 2.3 virginica
+143 5.8 2.7 5.1 1.9 virginica
+144 6.8 3.2 5.9 2.3 virginica
+145 6.7 3.3 5.7 2.5 virginica
+146 6.7 3.0 5.2 2.3 virginica
+147 6.3 2.5 5.0 1.9 virginica
+148 6.5 3.0 5.2 2.0 virginica
+149 6.2 3.4 5.4 2.3 virginica
+150 5.9 3.0 5.1 1.8 virginica
+>
+> iris.3 <- read.xls(xlsfile,method="tab") # specify tab format
+> iris.3
+ Sepal.Length Sepal.Width Petal.Length Petal.Width Species
+1 5.1 3.5 1.4 0.2 setosa
+2 4.9 3.0 1.4 0.2 setosa
+3 4.7 3.2 1.3 0.2 setosa
+4 4.6 3.1 1.5 0.2 setosa
+5 5.0 3.6 1.4 0.2 setosa
+6 5.4 3.9 1.7 0.4 setosa
+7 4.6 3.4 1.4 0.3 setosa
+8 5.0 3.4 1.5 0.2 setosa
+9 4.4 2.9 1.4 0.2 setosa
+10 4.9 3.1 1.5 0.1 setosa
+11 5.4 3.7 1.5 0.2 setosa
+12 4.8 3.4 1.6 0.2 setosa
+13 4.8 3.0 1.4 0.1 setosa
+14 4.3 3.0 1.1 0.1 setosa
+15 5.8 4.0 1.2 0.2 setosa
+16 5.7 4.4 1.5 0.4 setosa
+17 5.4 3.9 1.3 0.4 setosa
+18 5.1 3.5 1.4 0.3 setosa
+19 5.7 3.8 1.7 0.3 setosa
+20 5.1 3.8 1.5 0.3 setosa
+21 5.4 3.4 1.7 0.2 setosa
+22 5.1 3.7 1.5 0.4 setosa
+23 4.6 3.6 1.0 0.2 setosa
+24 5.1 3.3 1.7 0.5 setosa
+25 4.8 3.4 1.9 0.2 setosa
+26 5.0 3.0 1.6 0.2 setosa
+27 5.0 3.4 1.6 0.4 setosa
+28 5.2 3.5 1.5 0.2 setosa
+29 5.2 3.4 1.4 0.2 setosa
+30 4.7 3.2 1.6 0.2 setosa
+31 4.8 3.1 1.6 0.2 setosa
+32 5.4 3.4 1.5 0.4 setosa
+33 5.2 4.1 1.5 0.1 setosa
+34 5.5 4.2 1.4 0.2 setosa
+35 4.9 3.1 1.5 0.2 setosa
+36 5.0 3.2 1.2 0.2 setosa
+37 5.5 3.5 1.3 0.2 setosa
+38 4.9 3.6 1.4 0.1 setosa
+39 4.4 3.0 1.3 0.2 setosa
+40 5.1 3.4 1.5 0.2 setosa
+41 5.0 3.5 1.3 0.3 setosa
+42 4.5 2.3 1.3 0.3 setosa
+43 4.4 3.2 1.3 0.2 setosa
+44 5.0 3.5 1.6 0.6 setosa
+45 5.1 3.8 1.9 0.4 setosa
+46 4.8 3.0 1.4 0.3 setosa
+47 5.1 3.8 1.6 0.2 setosa
+48 4.6 3.2 1.4 0.2 setosa
+49 5.3 3.7 1.5 0.2 setosa
+50 5.0 3.3 1.4 0.2 setosa
+51 7.0 3.2 4.7 1.4 versicolor
+52 6.4 3.2 4.5 1.5 versicolor
+53 6.9 3.1 4.9 1.5 versicolor
+54 5.5 2.3 4.0 1.3 versicolor
+55 6.5 2.8 4.6 1.5 versicolor
+56 5.7 2.8 4.5 1.3 versicolor
+57 6.3 3.3 4.7 1.6 versicolor
+58 4.9 2.4 3.3 1.0 versicolor
+59 6.6 2.9 4.6 1.3 versicolor
+60 5.2 2.7 3.9 1.4 versicolor
+61 5.0 2.0 3.5 1.0 versicolor
+62 5.9 3.0 4.2 1.5 versicolor
+63 6.0 2.2 4.0 1.0 versicolor
+64 6.1 2.9 4.7 1.4 versicolor
+65 5.6 2.9 3.6 1.3 versicolor
+66 6.7 3.1 4.4 1.4 versicolor
+67 5.6 3.0 4.5 1.5 versicolor
+68 5.8 2.7 4.1 1.0 versicolor
+69 6.2 2.2 4.5 1.5 versicolor
+70 5.6 2.5 3.9 1.1 versicolor
+71 5.9 3.2 4.8 1.8 versicolor
+72 6.1 2.8 4.0 1.3 versicolor
+73 6.3 2.5 4.9 1.5 versicolor
+74 6.1 2.8 4.7 1.2 versicolor
+75 6.4 2.9 4.3 1.3 versicolor
+76 6.6 3.0 4.4 1.4 versicolor
+77 6.8 2.8 4.8 1.4 versicolor
+78 6.7 3.0 5.0 1.7 versicolor
+79 6.0 2.9 4.5 1.5 versicolor
+80 5.7 2.6 3.5 1.0 versicolor
+81 5.5 2.4 3.8 1.1 versicolor
+82 5.5 2.4 3.7 1.0 versicolor
+83 5.8 2.7 3.9 1.2 versicolor
+84 6.0 2.7 5.1 1.6 versicolor
+85 5.4 3.0 4.5 1.5 versicolor
+86 6.0 3.4 4.5 1.6 versicolor
+87 6.7 3.1 4.7 1.5 versicolor
+88 6.3 2.3 4.4 1.3 versicolor
+89 5.6 3.0 4.1 1.3 versicolor
+90 5.5 2.5 4.0 1.3 versicolor
+91 5.5 2.6 4.4 1.2 versicolor
+92 6.1 3.0 4.6 1.4 versicolor
+93 5.8 2.6 4.0 1.2 versicolor
+94 5.0 2.3 3.3 1.0 versicolor
+95 5.6 2.7 4.2 1.3 versicolor
+96 5.7 3.0 4.2 1.2 versicolor
+97 5.7 2.9 4.2 1.3 versicolor
+98 6.2 2.9 4.3 1.3 versicolor
+99 5.1 2.5 3.0 1.1 versicolor
+100 5.7 2.8 4.1 1.3 versicolor
+101 6.3 3.3 6.0 2.5 virginica
+102 5.8 2.7 5.1 1.9 virginica
+103 7.1 3.0 5.9 2.1 virginica
+104 6.3 2.9 5.6 1.8 virginica
+105 6.5 3.0 5.8 2.2 virginica
+106 7.6 3.0 6.6 2.1 virginica
+107 4.9 2.5 4.5 1.7 virginica
+108 7.3 2.9 6.3 1.8 virginica
+109 6.7 2.5 5.8 1.8 virginica
+110 7.2 3.6 6.1 2.5 virginica
+111 6.5 3.2 5.1 2.0 virginica
+112 6.4 2.7 5.3 1.9 virginica
+113 6.8 3.0 5.5 2.1 virginica
+114 5.7 2.5 5.0 2.0 virginica
+115 5.8 2.8 5.1 2.4 virginica
+116 6.4 3.2 5.3 2.3 virginica
+117 6.5 3.0 5.5 1.8 virginica
+118 7.7 3.8 6.7 2.2 virginica
+119 7.7 2.6 6.9 2.3 virginica
+120 6.0 2.2 5.0 1.5 virginica
+121 6.9 3.2 5.7 2.3 virginica
+122 5.6 2.8 4.9 2.0 virginica
+123 7.7 2.8 6.7 2.0 virginica
+124 6.3 2.7 4.9 1.8 virginica
+125 6.7 3.3 5.7 2.1 virginica
+126 7.2 3.2 6.0 1.8 virginica
+127 6.2 2.8 4.8 1.8 virginica
+128 6.1 3.0 4.9 1.8 virginica
+129 6.4 2.8 5.6 2.1 virginica
+130 7.2 3.0 5.8 1.6 virginica
+131 7.4 2.8 6.1 1.9 virginica
+132 7.9 3.8 6.4 2.0 virginica
+133 6.4 2.8 5.6 2.2 virginica
+134 6.3 2.8 5.1 1.5 virginica
+135 6.1 2.6 5.6 1.4 virginica
+136 7.7 3.0 6.1 2.3 virginica
+137 6.3 3.4 5.6 2.4 virginica
+138 6.4 3.1 5.5 1.8 virginica
+139 6.0 3.0 4.8 1.8 virginica
+140 6.9 3.1 5.4 2.1 virginica
+141 6.7 3.1 5.6 2.4 virginica
+142 6.9 3.1 5.1 2.3 virginica
+143 5.8 2.7 5.1 1.9 virginica
+144 6.8 3.2 5.9 2.3 virginica
+145 6.7 3.3 5.7 2.5 virginica
+146 6.7 3.0 5.2 2.3 virginica
+147 6.3 2.5 5.0 1.9 virginica
+148 6.5 3.0 5.2 2.0 virginica
+149 6.2 3.4 5.4 2.3 virginica
+150 5.9 3.0 5.1 1.8 virginica
+>
+> stopifnot(all.equal(iris.1, iris.2))
+> stopifnot(all.equal(iris.1, iris.3))
+>
+> exampleFile <- file.path(.path.package('gdata'),'xls',
++ 'ExampleExcelFile.xls')
+>
+> exampleFile2007 <- file.path(.path.package('gdata'),'xls',
++ 'ExampleExcelFile.xlsx')
+>
+> # see the number and names of sheets:
+> sheetCount(exampleFile)
+[1] 4
+> sheetCount(exampleFile2007)
+[1] 4
+>
+> sheetNames(exampleFile)
+[1] "Sheet First" "Sheet Second"
+[3] "Sheet with a very long name!" "Sheet with initial text"
+> sheetNames(exampleFile2007)
+[1] "Sheet First" "Sheet Second"
+[3] "Sheet with a very long name!" "Sheet with initial text"
+>
+> example.1 <- read.xls(exampleFile, sheet=1) # default is first worksheet
+> example.1
+ A B C
+1 1 1 1
+2 2 4 8
+3 3 9 27
+4 4 16 64
+5 5 25 125
+6 6 36 216
+7 7 49 343
+>
+> example.2 <- read.xls(exampleFile, sheet=2) # second worksheet by number
+> example.2
+ X D E F G Factor
+1 FirstRow 1 NA NA NA Red
+2 SecondRow 2 1 NA NA Green
+3 ThirdRow 3 2 1 NA Red
+4 FourthRow 4 3 2 1 Black
+>
+> example.3 <- read.xls(exampleFile, sheet=3) # second worksheet by number
+> example.3
+ X1 X2001.01.01 X1.01 X0.205818150587141 X.DIV.0. A
+1 2 2002-02-02 2:02 0.2910708 NA B
+2 3 2003-03-03 3:03 0.3564875 -0.8414710 C
+3 4 2004-04-04 4:04 0.4116363 0.7080734
+4 5 2005-05-05 5:05 0.4602234 0.5013680 A
+5 6 2006-06-06 6:06 NA 0.2513698 B
+6 7 2007-07-07 7:07 0.5445436 0.0631868 B
+7 8 2008-08-08 8:08 0.5821416 NA C
+8 9 2009-09-09 9:09 0.6174545 0.0000000 A
+9 10 2010-10-10 10:10 0.6508541 0.0000000 A
+>
+> example.4 <- read.xls(exampleFile, sheet=3) # second worksheet by number
+> example.4
+ X1 X2001.01.01 X1.01 X0.205818150587141 X.DIV.0. A
+1 2 2002-02-02 2:02 0.2910708 NA B
+2 3 2003-03-03 3:03 0.3564875 -0.8414710 C
+3 4 2004-04-04 4:04 0.4116363 0.7080734
+4 5 2005-05-05 5:05 0.4602234 0.5013680 A
+5 6 2006-06-06 6:06 NA 0.2513698 B
+6 7 2007-07-07 7:07 0.5445436 0.0631868 B
+7 8 2008-08-08 8:08 0.5821416 NA C
+8 9 2009-09-09 9:09 0.6174545 0.0000000 A
+9 10 2010-10-10 10:10 0.6508541 0.0000000 A
+>
+> example.x.1 <- read.xls(exampleFile2007, sheet=1) # default is first worksheet
+> example.x.1
+ A B C
+1 1 1 1
+2 2 4 8
+3 3 9 27
+4 4 16 64
+5 5 25 125
+6 6 36 216
+7 7 49 343
+>
+> example.x.2 <- read.xls(exampleFile2007, sheet=2) # second worksheet by number
+> example.x.2
+ X D E F G Factor
+1 FirstRow 1 NA NA NA Red
+2 SecondRow 2 1 NA NA Green
+3 ThirdRow 3 2 1 NA Red
+4 FourthRow 4 3 2 1 Black
+>
+> example.x.3 <- read.xls(exampleFile2007, sheet=3) # second worksheet by number
+> example.x.3
+ X1 X2001.01.01 X1.01 X0.205818150587141 X.DIV.0. A
+1 2 2002-02-02 2:02 0.2910708 NA B
+2 3 2003-03-03 3:03 0.3564875 -0.8414710 C
+3 4 2004-04-04 4:04 0.4116363 0.7080734
+4 5 2005-05-05 5:05 0.4602234 0.5013680 A
+5 6 2006-06-06 6:06 NA 0.2513698 B
+6 7 2007-07-07 7:07 0.5445436 0.0631868 B
+7 8 2008-08-08 8:08 0.5821416 NA C
+8 9 2009-09-09 9:09 0.6174545 0.0000000 A
+9 10 2010-10-10 10:10 0.6508541 0.0000000 A
+>
+> example.x.4 <- read.xls(exampleFile2007, sheet=3) # second worksheet by number
+> example.x.4
+ X1 X2001.01.01 X1.01 X0.205818150587141 X.DIV.0. A
+1 2 2002-02-02 2:02 0.2910708 NA B
+2 3 2003-03-03 3:03 0.3564875 -0.8414710 C
+3 4 2004-04-04 4:04 0.4116363 0.7080734
+4 5 2005-05-05 5:05 0.4602234 0.5013680 A
+5 6 2006-06-06 6:06 NA 0.2513698 B
+6 7 2007-07-07 7:07 0.5445436 0.0631868 B
+7 8 2008-08-08 8:08 0.5821416 NA C
+8 9 2009-09-09 9:09 0.6174545 0.0000000 A
+9 10 2010-10-10 10:10 0.6508541 0.0000000 A
+>
+> data <- read.xls(exampleFile2007, sheet="Sheet Second") # and by name
+> data
+ X D E F G Factor
+1 FirstRow 1 NA NA NA Red
+2 SecondRow 2 1 NA NA Green
+3 ThirdRow 3 2 1 NA Red
+4 FourthRow 4 3 2 1 Black
+>
+> # load the third worksheet, skipping the first two non-data lines...
+> data <- read.xls(exampleFile2007, sheet="Sheet with initial text", skip=2)
+> data
+ X X.1 D E F G Factor
+1 NA FirstRow 1 NA NA NA Red
+2 NA SecondRow 2 1 NA NA Green
+3 NA ThirdRow 3 2 1 NA Red
+4 NA FourthRow 4 3 2 1 Black
+>
+> proc.time()
+ user system elapsed
+ 2.787 2.477 3.347
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
