الآثار القابلة للإعادة والنقل

artifact <- list(schema = 1L, ids = c("a", "b"), values = c(2, 4))
raw <- serialize(artifact, connection = NULL, version = 3)
restored <- unserialize(raw)
cat("same=", identical(artifact, restored), "\n", sep = "")
cat("schema=", restored$schema, "; rows=", length(restored$ids), "\n", sep = "")

same=TRUE
schema=1; rows=2

تعالج الدورة كائناً موثوقاً ذاتياً في الذاكرة دون ملف أو فحص إصدار R آخر.

computed <- 0.1 + 0.2
reference <- 0.3
cat("exact=", identical(computed, reference), "\n", sep = "")
cat("within tolerance=", isTRUE(all.equal(computed, reference, tolerance = 1e-12)), "\n", sep = "")
contract <- list(features = c("length", "width"), units = c("cm", "cm"))
cat("feature order=", paste(contract$features, collapse = ","), "\n", sep = "")

exact=FALSE
within tolerance=TRUE
feature order=length,width

لا يسمح التقارب العددي بتبديل معاني السمات؛ فالسماحية وهوية المخطط فحصان مختلفان.