The R Project SVN R

Rev

Rev 84772 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 84772 Rev 85145
Line 2468... Line 2468...
2468 
> ### Aliases: iris iris3
 2468 
> ### Aliases: iris iris3
2469 
> ### Keywords: datasets
 2469 
> ### Keywords: datasets
2470 
>
2470 
>
2471 
> ### ** Examples
 2471 
> ### ** Examples
2472 
>
2472 
>
- 
 
 2473 
> summary(iris)
- 
 
 2474 
  Sepal.Length    Sepal.Width     Petal.Length    Petal.Width
- 
 
 2475 
 Min.   :4.300   Min.   :2.000   Min.   :1.000   Min.   :0.100
- 
 
 2476 
 1st Qu.:5.100   1st Qu.:2.800   1st Qu.:1.600   1st Qu.:0.300
- 
 
 2477 
 Median :5.800   Median :3.000   Median :4.350   Median :1.300
- 
 
 2478 
 Mean   :5.843   Mean   :3.057   Mean   :3.758   Mean   :1.199
- 
 
 2479 
 3rd Qu.:6.400   3rd Qu.:3.300   3rd Qu.:5.100   3rd Qu.:1.800
- 
 
 2480 
 Max.   :7.900   Max.   :4.400   Max.   :6.900   Max.   :2.500
- 
 
 2481 
       Species
- 
 
 2482 
 setosa    :50
- 
 
 2483 
 versicolor:50
- 
 
 2484 
 virginica :50
- 
 
 2485
- 
 
 2486
- 
 
 2487
- 
 
 2488 
>
- 
 
 2489 
> ## Fisher's (1936) research question: whether (compound measurements of)
- 
 
 2490 
> ## Iris versicolor "differs twice as much from I. setosa as from I. virginica"
- 
 
 2491 
> pairs(iris[1:4], col = iris$Species)
- 
 
 2492 
> legend(0.5, 1, levels(iris$Species), fill = 1:3, bty = "n",
- 
 
 2493 
+        horiz = TRUE, xjust = 0.5, yjust = 0, xpd = TRUE)
- 
 
 2494 
>
- 
 
 2495 
> ## equivalence of legacy array (iris3) and data.frame (iris) representation
2473 
> dni3 <- dimnames(iris3)
 2496 
> dni3 <- dimnames(iris3)
2474 
> ii <- data.frame(matrix(aperm(iris3, c(1,3,2)), ncol = 4,
 2497 
> ii <- data.frame(matrix(aperm(iris3, c(1,3,2)), ncol = 4,
2475 
+                         dimnames = list(NULL, sub(" L.",".Length",
 2498 
+                         dimnames = list(NULL, sub(" L.",".Length",
2476 
+                                         sub(" W.",".Width", dni3[[2]])))),
 2499 
+                                         sub(" W.",".Width", dni3[[2]])))),
2477 
+     Species = gl(3, 50, labels = sub("S", "s", sub("V", "v", dni3[[3]]))))
 2500 
+     Species = gl(3, 50, labels = sub("S", "s", sub("V", "v", dni3[[3]]))))
2478 
> all.equal(ii, iris) # TRUE
 2501 
> stopifnot(all.equal(ii, iris))
2479 
[1] TRUE
 - 
 
2480 
>
2502 
>
2481 
>
2503 
>
2482 
>
2504 
>
2483 
> cleanEx()
 2505 
> cleanEx()
2484 
> nameEx("islands")
 2506 
> nameEx("islands")