Operátorok

Az R operátorainak döntő többsége vektorizált; ez azt jelenti, hogy amennyiben az operátor két oldalán többelemű vektorok vannak, az operátor által meghatározott műveletet az R elemenként elvégzi.

Példa: adjuk össze az 1:6 és 2:7 sorozatokat elemenként:

x <- 1:6
y <- 2:7
x + y

## [1]  3  5  7  9 11 13

Általános operátorok

• azonosan egyenlő (DE ld. ?all.equal): ==
• nagyobb/kisebb: > <
• nagyobb/kisebb vagy egyenlő: >= <=
• negáció: ! (pl. nem egyenlő: !=)
• és: & (lásd még: &&)
• vagy: | (ld még: ||)
• kizárólagos vagy: xor(cond1, cond2)
• feltétel: if (cond==TRUE) { do this } else { do that }

Speciális operátorok

• %*% = mátrix-szorzás
• %in% = illeszkedő elemek (ld még: ?match):

# az `%in%` nem különbözteti meg a numeric és integer típust 
( vec.target <- c(6, 2, 10) )

## [1]  6  2 10

( vec.reference <- 1:10 )

##  [1]  1  2  3  4  5  6  7  8  9 10

vec.target %in% vec.reference

## [1] TRUE TRUE TRUE

• %o% = outer product (see ?outer)
• %% = modulo, %/% = egészrész
• : = sorozat létrehozása, lásd ?seq
• :: = egy csomag fv-ének meghívása a csomag betöltése nélkül
• ::: = egy csomag nem exportált fv-ének elérése

print.anova  # ez hibát eredményez, mivel a függvény "rejtett" (nem exportált)

## Error in eval(expr, envir, enclos): object 'print.anova' not found

#getAnywhere(print.anova) ## -> a print.anova fv-t a stats csomag tartalmazza
stats:::print.anova # így már elérhetjük

## function (x, digits = max(getOption("digits") - 2L, 3L), signif.stars = getOption("show.signif.stars"), 
##     ...) 
## {
##     if (!is.null(heading <- attr(x, "heading"))) 
##         cat(heading, sep = "\n")
##     nc <- dim(x)[2L]
##     if (is.null(cn <- colnames(x))) 
##         stop("'anova' object must have colnames")
##     has.P <- grepl("^(P|Pr)\\(", cn[nc])
##     zap.i <- 1L:(if (has.P) 
##         nc - 1
##     else nc)
##     i <- which(substr(cn, 2, 7) == " value")
##     i <- c(i, which(!is.na(match(cn, c("F", "Cp", "Chisq")))))
##     if (length(i)) 
##         zap.i <- zap.i[!(zap.i %in% i)]
##     tst.i <- i
##     if (length(i <- grep("Df$", cn))) 
##         zap.i <- zap.i[!(zap.i %in% i)]
##     printCoefmat(x, digits = digits, signif.stars = signif.stars, 
##         has.Pvalue = has.P, P.values = has.P, cs.ind = NULL, 
##         zap.ind = zap.i, tst.ind = tst.i, na.print = "", ...)
##     invisible(x)
## }
## <bytecode: 0xcc103a0>
## <environment: namespace:stats>

Matematikai operátorok

• összeadás: +
• kivonás: -
• szorzás: *
• osztás: /
• hatvány: ^