المتجهات والأنواع والتحويل وإعادة التدوير

x <- c(2L, 4L, 6L)
combined <- c(x, "8")
cat("x type=", typeof(x), "; combined type=", typeof(combined), "\n", sep = "")
cat("sum=", sum(x), "; count=", length(x), "\n", sep = "")
cat("converted=", paste(as.numeric(combined), collapse = ","), "\n", sep = "")

x type=integer; combined type=character
sum=12; count=3
converted=2,4,6,8

للمتجه الذري نوع مشترك؛ ولا يبرر التحويل هنا إلا معرفة أن جميع النصوص رموز عددية صالحة.

x <- c(10, 20, 30, 40)
offset <- c(1, 2)
cat("recycled=", paste(x + offset, collapse = ","), "\n", sep = "")
add_same_length <- function(a, b) {
  stopifnot(is.numeric(a), is.numeric(b), length(a) == length(b))
  a + b
}
cat("paired=", paste(add_same_length(c(10, 20), c(1, 2)), collapse = ","), "\n", sep = "")

recycled=11,22,31,42
paired=11,22

تعيد الحسابات الأساسية تدوير المتجه الأقصر؛ ويمنع عقد تساوي الأطوال ذلك للقياسات المزدوجة.