infamous example: identical(0., -0.) # TRUE, i.e. not differentiated identical(0., -0., num.eq = FALSE) ## similar: identical(NaN, -NaN) # TRUE identical

infamous example: identical(0., -0.) # TRUE, i.e. not differentiated identical(0., -0., num.eq = FALSE) ## similar: identical(NaN, -NaN) # TRUE identical

matrix() ## NB: The methods for 'data.frame' and 'array' are identical to the

matrix() ## NB: The methods for 'data.frame' and 'array' are identical to the

preserve attributes of *first* argument D <- diag(x = (3:1)/4) ; n0 <- numeric() stopifnot(identical(D, cut01(D) ), identical

coerced or tested. ... further arguments passed to or from other methods. Details numeric is identical to double

zN) # the "NA" and the 3 different non-NA NaN's stopifnot(identical(unique(zN), zN[c

preserve attributes of *first* argument D <- diag(x = (3:1)/4) ; n0 <- numeric() stopifnot(identical(D, cut01(D) ), identical

to file saveRDS(women, fil) ## restore it under a different name women2 <- readRDS(fil) identical(women, women2) ## or examine

zN) # the "NA" and the 3 different non-NA NaN's stopifnot(identical(unique(zN), zN[c

See Also getNamespace , asNamespace , topenv , .onLoad (etc); further environment . Examples (lns <- loadedNamespaces()) statL <- isNamespaceLoaded("stats") stopifnot( identical(statL, "stats" %in

to file saveRDS(women, fil) ## restore it under a different name women2 <- readRDS(fil) identical(women, women2) ## or examine

data2)) # Flatten directly (more efficient): data3 <- fromJSON("https://api.github.com/users/hadley/repos", flatten = TRUE) identical(data3, flatten(data2)) ## End

true, except when a length does not fit in 32 bits stopifnot(identical(lengths(l), vapply(l

is.na does not work). Under those circumstances missing values are currently printed as <NA> , i.e., identical to entries

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

the default code. (Before R 4.0.0, an applicable method found was used only if identical to any

is.na does not work). Under those circumstances missing values are currently printed as <NA> , i.e., identical to entries

include row names. By default, row names are included if rownames(x) is neither NULL nor identical to 1

the default code. (Before R 4.0.0, an applicable method found was used only if identical to any

check' is working on some platforms: if(exists("I'm brave") && `I'm brave` && identical(.Platform$OS.type, "unix

out= ) The first form generates the sequence from, from+/-1, ..., to (identical to from

weakness’, and already scrambled the seeds. Otherwise, the algorithm is identical to Knuth

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

See Also getNamespace , asNamespace , topenv , .onLoad (etc); further environment . Examples (lns <- loadedNamespaces()) statL <- isNamespaceLoaded("stats") stopifnot( identical(statL, "stats" %in

z) # scalar x <- 1:4; names(x) <- letters[1:4]; x tcrossprod(as.matrix(x)) # is identical(tcrossprod(as.matrix(x

rawShift(z, -3)) # shifted off entirely packBits(as.raw(0:31)) i <- -2:3 stopifnot(exprs = { identical(i, packBits(intToBits(i

Unless you are absolutely sure that nothing unusual can happen, you should use the identical function instead. For

considered from the last, i.e., the last (or rightmost) of identical elements will be kept

1:3, "z"] # a matrix A[, "y"] # a matrix stopifnot(identical(colnames(A), c

2; cat("x=",x,"\n"); y <- x^2 }) ## x and y now exist: stopifnot(identical(x, 1:2), identical

surname", by.y = "name")) m2 <- merge(books, authors, by.x = "name", by.y = "surname") stopifnot(exprs = { identical(m0, m2[, names(m0

x, dim = c(dim(x),3), dimnames = c(dimnames(x), list(C = paste0("cop.",1:3)))) identical(x, apply( x, 2

TRUE) # 5 6 NA 1 15 nchar(x, keepNA=FALSE) # 5 6 2 1 15 stopifnot(identical(nchar(x ), nchar(x

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

out= ) The first form generates the sequence from, from+/-1, ..., to (identical to from

of the elements of attributes() does not matter. This is also reflected by identical() 's behaviour with the

2.2.3"; x x <- c(x, package_version("0.0")) is.na(x)[4] <- TRUE stopifnot(identical(is.na(x), c

1:5)) stopifnot(dim(a2) == c(3,5,4), all.equal(a2, a.2), identical(dimnames(a2), list(NULL

3.29") message("you need to update 'MASS'") pu <- packageDate("utils") str(pu) stopifnot(identical(pu, packageDate(desc = packageDescription

letters, expression(1+x)) utils::str(ll) for(x in ll) stopifnot(identical(x, unlist(x))) base

shell")) system.time(x2 <- sort(x, method = "quick")) system.time(x3 <- sort(x, method = "radix")) stopifnot(identical(x1, x2)) stopifnot(identical

2; cat("x=",x,"\n"); y <- x^2 }) ## x and y now exist: stopifnot(identical(x, 1:2), identical

x, dim = c(dim(x),3), dimnames = c(dimnames(x), list(C = paste0("cop.",1:3)))) identical(x, apply( x, 2

not use all.equal directly in if expressions—either use isTRUE(all.equal(....)) or identical if appropriate. Usage all

Unless you are absolutely sure that nothing unusual can happen, you should use the identical function instead. For

if any, bound to that name). as.name and as.symbol are identical: they attempt to

not use all.equal directly in if expressions—either use isTRUE(all.equal(....)) or identical if appropriate. Usage all

weakness’, and already scrambled the seeds. Otherwise, the algorithm is identical to Knuth

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

for a document-feature matrix dfm_compress: Recombine a dfm or fcm by combining identical dimension... dfm_group: Combine documents

15 ] ) } else { # sys=1 is useless as the final (after equilibration) carbonate chemistry is identical to the

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

TRUE) # 5 6 NA 1 15 nchar(x, keepNA=FALSE) # 5 6 2 1 15 stopifnot(identical(nchar(x ), nchar(x

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

check' is working on some platforms: if(exists("I'm brave") && `I'm brave` && identical(.Platform$OS.type, "unix

3.29") message("you need to update 'MASS'") pu <- packageDate("utils") str(pu) stopifnot(identical(pu, packageDate(desc = packageDescription

you can send this off ## now ``decrypt'' : rot(crypw, 54 - 13) # -> the original: stopifnot(identical(pw, rot(crypw, 54

Usage sessionInfo(package = NULL) ## S3 method for class 'sessionInfo' print(x, locale = TRUE, RNG = !identical(x$RNGkind, .RNGdefaults), ...) ## S3

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

you can send this off ## now ``decrypt'' : rot(crypw, 54 - 13) # -> the original: stopifnot(identical(pw, rot(crypw, 54

POSIXlt(x)$mday != 29] <- NA ## which gives the same as ifelse()+class() hack: stopifnot(identical(y2, y)) ## example of

or -Inf depending on the sign of zero x . Another place is identical(0, -0, num.eq

surname", by.y = "name")) m2 <- merge(books, authors, by.x = "name", by.y = "surname") stopifnot(exprs = { identical(m0, m2[, names(m0

Dls; length(l2) <- 5 + length(Dls) stopifnot(exprs = { ## length(.) <- * is compatible to subsetting/indexing: identical(ls, Dls[seq_along(ls

if any, bound to that name). as.name and as.symbol are identical: they attempt to

in its first argument. Duplicates in the original names.arg will be given identical abbreviations. If any non

our temp file parse(file = fil, n = 3) unlink(fil) ## str2lang(<string>) || str2expression(<character>) : stopifnot(exprs = { identical( str2lang("x[3] <- 1

is being added g <- airquality$Month l <- split(airquality, g) ## Alternative using a formula identical(l, split(airquality, ~ Month

or -Inf depending on the sign of zero x . Another place is identical(0, -0, num.eq

of the elements of attributes() does not matter. This is also reflected by identical() 's behaviour with the

shell")) system.time(x2 <- sort(x, method = "quick")) system.time(x3 <- sort(x, method = "radix")) stopifnot(identical(x1, x2)) stopifnot(identical

our temp file parse(file = fil, n = 3) unlink(fil) ## str2lang(<string>) || str2expression(<character>) : stopifnot(exprs = { identical( str2lang("x[3] <- 1

is being added g <- airquality$Month l <- split(airquality, g) ## Alternative using a formula identical(l, split(airquality, ~ Month

cond) because of NA s. In earlier R versions, isTRUE <- function(x) identical(x, TRUE) , had the

mapdata::worldLores"). Note that the worldHires database from the mapdata package has identical map naming than the

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

Numbers 1949-1960 airquality : New York Air Quality Measurements anscombe : Anscombe's Quartet of 'Identical' Simple Linear Regressions attenu

Numbers 1949-1960 airquality : New York Air Quality Measurements anscombe : Anscombe's Quartet of 'Identical' Simple Linear Regressions attenu

chosen in order to check that the carbonate chemistry is identical for all

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

homogeneous = TRUE was for years documented as ‘Are all the hosts running identical setups?’, but this was

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

PDF versions of vignettes. If several vignettes have PDF/HTML versions with base name identical to topic

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for

in Hexadecimal Hyperbolic : Hyperbolic Functions iconv : Convert Character Vector between Encodings icuSetCollate : Setup Collation by ICU identical : Test Objects for