The R Project SVN R

Rev

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

Rev 61168 Rev 62794
Line 1... Line 1...
1 
% File src/library/base/man/dimnames.Rd
 1 
% File src/library/base/man/dimnames.Rd
2 
% Part of the R package, http://www.R-project.org
 2 
% Part of the R package, http://www.R-project.org
3 
% Copyright 1995-2012 R Core Team
 3 
% Copyright 1995-2013 R Core Team
4 
% Distributed under GPL 2 or later
 4 
% Distributed under GPL 2 or later
5 
 
 5 
 
6 
\name{dimnames}
 6 
\name{dimnames}
7 
\title{Dimnames of an Object}
 7 
\title{Dimnames of an Object}
8 
\alias{dimnames}
 8 
\alias{dimnames}
Line 101... Line 101...
101 
(dn <- dimnames(A <- provideDimnames(N <- array(1:24, dim = 2:4))))
 101 
(dn <- dimnames(A <- provideDimnames(N <- array(1:24, dim = 2:4))))
102 
A0 <- A; dimnames(A)[2:3] <- list(NULL)
 102 
A0 <- A; dimnames(A)[2:3] <- list(NULL)
103 
stopifnot(identical(A0, provideDimnames(A)))
 103 
stopifnot(identical(A0, provideDimnames(A)))
104 
strd <- function(x) utils::str(dimnames(x))
 104 
strd <- function(x) utils::str(dimnames(x))
105 
strd(provideDimnames(A, base= list(letters[-(1:9)], tail(LETTERS))))
 105 
strd(provideDimnames(A, base= list(letters[-(1:9)], tail(LETTERS))))
106 
strd(provideDimnames(A, base= list(letters[-(1:9)], tail(LETTERS))))
 - 
 
107 
strd(provideDimnames(N, base= list(letters[-(1:9)], tail(LETTERS)))) # recycling
 106 
strd(provideDimnames(N, base= list(letters[-(1:9)], tail(LETTERS)))) # recycling
108 
strd(provideDimnames(A, base= list(c("AA","BB")))) # recycling on both levels
 107 
strd(provideDimnames(A, base= list(c("AA","BB")))) # recycling on both levels
109 
}
 108 
}
110 
\keyword{array}
 109 
\keyword{array}
111 
\keyword{manip}
 110 
\keyword{manip}