$\mathrm{with}\left(\mathrm{CodeGeneration}\right)\:$

$R\left(\sqrt{a^2\+b^2\+c^2}\right)$

cg <- sqrt(a ^ 2 + b ^ 2 + c ^ 2)

$R\left(m\to \mathrm{add}\left(i\&comma;i\&equals;1..m\right)\right)$

cg0 <- function(m)
{
  r <- 0
  for(i in 1 : m)

    r <- r + i
  return(r)
}

$R\left(\left[\begin{array}{rr}1& 2\\ 3& 4\end{array}\right]\right)$

cg1 <- matrix(c(1,3,2,4),nrow=2,ncol=2)

$R\&lpar;\&lcub;\begin{array}{cc}-v^3\&plus;3v\&plus;1& v<1\\ 2v^3-9v^2\&plus;12v-2& v<2\\ -v^3\&plus;9v^2-24v\&plus;22& \mathrm{otherwise}\end{array}\&rpar;$

cg2 <- ifelse(v < 1, -v ^ 3 + 3 * v + 1, ifelse(v < 2, 2 * v ^ 3 - 9 * v ^ 2 + 12 * v - 2, -v ^ 3 + 9 * v ^ 2 - 24 * v + 22))

$R\left(\left(M\&comma;n\right)\to M - x \mathrm{LinearAlgebra}:-\mathrm{IdentityMatrix}\left(n\right)\right)$

cg3 <- function(M,n) M - x * diag(n)

$R\left(\mathrm{\_C1}\mathrm{BesselJ}\left(\mathrm{\nu }\&comma;x\right)\&plus;\mathrm{\_C2}\mathrm{BesselY}\left(\mathrm{\nu }\&comma;x\right)\right)$

cg4 <- _C1 * besselJ(x, nu) + _C2 * besselY(x, nu)

$R\left(\&apos;\mathrm{Statistics}:-\mathrm{Mean}\left(\left[5\&comma;2\&comma;1\&comma;4\&comma;3\right]\right)\&apos;\right)$

cg5 <- mean(c(5,2,1,4,3))

$R\left(\&apos;\mathrm{Statistics}:-\mathrm{Median}\left(\left[5\&comma;2\&comma;1\&comma;4\&comma;3\right]\right)\&apos;\right)$

cg6 <- median(c(5,2,1,4,3))

$R\left(\&apos;\mathrm{Statistics}:-\mathrm{StandardDeviation}\left(\left[5\&comma;2\&comma;1\&comma;4\&comma;3\right]\right)\&apos;\right)$

cg7 <- sd(c(5,2,1,4,3))

$R\left(\&apos;\mathrm{Statistics}:-\mathrm{FivePointSummary}\left(\left[5\&comma;2\&comma;1\&comma;4\&comma;3\right]\right)\&apos;\right)$

cg8 <- fivenum(c(5,2,1,4,3))

$R\left( \&apos;\mathrm{Statistics}:-\mathrm{Scale}\left( \left[5\&comma;2\&comma;1\&comma;4\&comma;3\right]\&comma; \mathrm{center} \&equals; 2\&comma; \mathrm{scale} \&equals; 1 \right)\&apos; \right)\&semi;$

cg9 <- scale(c(5,2,1,4,3), center = 2, scale = 1)

$R\left(\&apos;\mathrm{Statistics}:-\mathrm{Histogram}\left(\left[1\&comma;3\&comma;5\&comma;7\&comma;8\&comma;4\&comma;4\right]\&comma; \mathrm{color}\&equals;''Red''\&comma; \mathrm{title} \&equals; ''Histogram''\&comma; \mathrm{frequencyscale} \&equals; \mathrm{absolute}\&comma; \mathrm{axes}\&equals;\mathrm{none}\right)\&apos;\right)$

cg10 <- hist(c(1,3,5,7,8,4,4), axes = FALSE, col = "Red", freq = TRUE, main = "Histogram")

$R\left(\&apos;\mathrm{Statistics}:-\mathrm{BoxPlot}\left(\left[4\&comma;8\&comma;15\&comma;16\&comma;23\&comma;42\right]\&comma;\mathrm{color}\&equals;''Orange''\&comma;\mathrm{title}\&equals;''BoxPlot''\&comma;\mathrm{notched}\&equals;\mathrm{true}\&comma;\mathrm{orientation}\&equals;\mathrm{horizontal}\right)\&apos;\right)$

cg11 <- boxplot(c(4,8,15,16,23,42), col = "Orange", notch = TRUE, horizontal = TRUE, main = "BoxPlot")

$R\left(\mathrm{Statistics}:-\mathrm{PDF}\left(\mathrm{LogNormal}\left(0\&comma;1\right)\&comma;x\right)\right)$

cg12 <- ifelse(x < 0, 0, 0.1e1 / x * sqrt(0.2e1) * pi ^ (-0.1e1 / 0.2e1) * exp(-log(x) ^ 2 / 0.2e1) / 0.2e1)

$R\left(\&apos;\mathrm{Statistics}:-\mathrm{PDF}\left(\mathrm{LogNormal}\left(0\&comma;1\right)\&comma;1\right)\&apos;\right)$

Warning, the function names {LogNormal} are not recognized in the target language

cg13 <- dlnorm(1, meanlog = 0, sdlog = 1)

$R\left(\&apos;\mathrm{Statistics}:-\mathrm{ProbabilityFunction}\left(\mathrm{Poisson}\left(2\right)\&comma;1\right)\&apos;\right)$

Warning, the function names {Poisson} are not recognized in the target language

cg14 <- dpois(1,2)

$R\left(\&apos;\mathrm{Statistics}:-\mathrm{CDF}\left(\mathrm{ChiSquare}\left(1\right)\&comma;1\right)\&apos;\right)$

Warning, the function names {ChiSquare} are not recognized in the target language

cg15 <- pchisq(1,1)

$R\left(\&apos;\mathrm{Statistics}:-\mathrm{Sample}\left(\mathrm{Uniform}\left(1\&comma;10\right)\&comma;10\right)\&apos;\right)\&semi;$

Warning, the function names {Uniform} are not recognized in the target language

cg16 <- runif(0.10e2, min = 1, max = 10)

$R\left(\&apos;\mathrm{Statistics}:-\mathrm{Quantile}\left(\mathrm{Weibull}\left(3\&comma;5\right)\&comma;0.5\right)\&apos;\right)\&semi;$

Warning, the function names {Weibull} are not recognized in the target language

cg17 <- qweibull(0.5e0,5, scale = 3)

$R\left(\&apos;\mathrm{TimeSeriesAnalysis}:-\mathrm{TimeSeries}\left(\left[10\&comma;25\&comma;30\&comma;55\right]\right)\&apos;\right)$

cg18 <- ts(c(10,25,30,55))

$R\left(\&apos;\mathrm{TimeSeriesAnalysis}:-\mathrm{TimeSeriesPlot}\left( \mathrm{TimeSeriesAnalysis}:-\mathrm{TimeSeries}\left(\left[10\&comma;25\&comma;30\&comma;55\right]\right) \right)\&apos;\right)$

cg19 <- plot.ts(ts(c(10,25,30,55)))

$\mathrm{with}\left(\mathrm{CodeGeneration}\right)\&colon;$

$\mathrm{JavaScript}\left(\sqrt{a^2\&plus;b^2\&plus;c^2}\right)$

cg0 = Math.sqrt(a * a + b * b + c * c);

$\mathrm{JavaScript}\left(m\to \mathrm{add}\left(i\&comma;i\&equals;1..m\right)\right)$

function cg1(m) {
  var r;
  r = 0;

  for (i in 1...m)
  {
    r = r + i;
  }
  return(r);
}