Example 1

\[ y = \ln(x^2) \]

ln_sq <- function(z){
  y <- log(z^2)
  return(y)
}
ln_sq(34)
[1] 7.052721

Example 2

\[ f(x) = \left\{\begin{array}{cc} x^3 & x<0\ \\ x^2 + 5 & \mathrm{otherwise} \end{array} \right. \]

secondfunction <- function(x){
  if(x<0){
    y = x^3
  } else{
    y = x^2 +5
  }
  return(y)
}
secondfunction(-1)
[1] -1
secondfunction(1)
[1] 6

Example 3

\[ f(x,y) = \left\{\begin{array}{cc} x^3 e^y & x<0\ \\ x^2 + 5 + \ln(y) & \mathrm{otherwise} \end{array} \right. \]

this <- function(x, y) {
  if(y < 0) {
    stop("it is negative")
  }
  if(x < 0) {
    z <- x^3 * exp(y)
  } else {
    z <- x^2 + 5 + log(y)
  }
  return(z)
}
this(2,1)
[1] 9
this(-2,1)
[1] -21.74625
this(2,-1)
Error in this(2, -1) : it is negative

Example 4

\[ z = \frac{x-\bar y}{\sqrt{s^2_{y}/n_y}} \]

zscore <- function(x,y){
  (x-mean(y))/(sqrt(var(y)/length(y)))
}
zscore(5,1:5)
[1] 2.828427
LS0tCnRpdGxlOiAiQ2xhc3MgNiIKYXV0aG9yOiAiSXNhYWMgUXVpbnRhbmlsbGEgU2FsaW5hcyIKZGF0ZTogImByIGZvcm1hdChTeXMudGltZSgpLCclbS0lZC0lWScpYCIKb3V0cHV0OiAKICBodG1sX25vdGVib29rOgogICAgdG9jOiB0cnVlCiAgICB0b2NfZmxvYXQ6IHRydWUKICAgIGNvZGVfZm9sZGluZzogaGlkZQoKLS0tCgojIyBFeGFtcGxlIDEKCiQkCnkgPSBcbG4oeF4yKQokJAoKYGBge3J9CmxuX3NxIDwtIGZ1bmN0aW9uKHopewogIHkgPC0gbG9nKHpeMikKICByZXR1cm4oeSkKfQpsbl9zcSgzNCkKYGBgCgojIyBFeGFtcGxlIDIKCiQkCmYoeCkgPSBcbGVmdFx7XGJlZ2lue2FycmF5fXtjY30KeF4zICYgIHg8MFwgXFwKeF4yICsgNSAmIFxtYXRocm17b3RoZXJ3aXNlfQpcZW5ke2FycmF5fSBccmlnaHQuCiQkCgpgYGB7cn0Kc2Vjb25kZnVuY3Rpb24gPC0gZnVuY3Rpb24oeCl7CiAgaWYoeDwwKXsKICAgIHkgPSB4XjMKICB9IGVsc2V7CiAgICB5ID0geF4yICs1CiAgfQogIHJldHVybih5KQp9CnNlY29uZGZ1bmN0aW9uKC0xKQpzZWNvbmRmdW5jdGlvbigxKQpgYGAKCiMjIEV4YW1wbGUgMwoKJCQKZih4LHkpID0gXGxlZnRce1xiZWdpbnthcnJheX17Y2N9CnheMyBlXnkgJiAgeDwwXCBcXAp4XjIgKyA1ICsgXGxuKHkpICYgXG1hdGhybXtvdGhlcndpc2V9ClxlbmR7YXJyYXl9IFxyaWdodC4KJCQKCmBgYHtyLCBlcnJvcj1UUlVFfQp0aGlzIDwtIGZ1bmN0aW9uKHgsIHkpIHsKICBpZih5IDwgMCkgewogICAgc3RvcCgiaXQgaXMgbmVnYXRpdmUiKQogIH0KICBpZih4IDwgMCkgewogICAgeiA8LSB4XjMgKiBleHAoeSkKICB9IGVsc2UgewogICAgeiA8LSB4XjIgKyA1ICsgbG9nKHkpCiAgfQogIHJldHVybih6KQp9CnRoaXMoMiwxKQp0aGlzKC0yLDEpCnRoaXMoMiwtMSkKYGBgCgojIyBFeGFtcGxlIDQKCiQkCnogPSAgXGZyYWN7eC1cYmFyIHl9e1xzcXJ0e3NeMl97eX0vbl95fX0KJCQKCmBgYHtyfQp6c2NvcmUgPC0gZnVuY3Rpb24oeCx5KXsKICAoeC1tZWFuKHkpKS8oc3FydCh2YXIoeSkvbGVuZ3RoKHkpKSkKfQp6c2NvcmUoNSwxOjUpCmBgYAo=