replacing ifelse(cd, A,B) by e.g. if(cd) A else B

git-svn-id: https://svn.r-project.org/R/trunk@88928 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: maechler

src/library/stats/R/ar.R

@@ -582,7 +582,7 @@ ar.burg.default <-
     res <- list(order = order, ar = ar, var.pred = var.pred, x.mean = x.mean,
                 aic = xaic, n.used = n.used, n.obs = n.used, order.max = order.max,
                 partialacf = partialacf, resid = resid,
-                method = ifelse(var.method==1L,"Burg","Burg2"),
+                method = if(var.method == 1L) "Burg" else "Burg2",
                 series = series, frequency = xfreq, call = match.call())
     if(order) {
         xacf <- acf(x, type = "covariance", lag.max = order, plot = FALSE)$acf
@@ -650,7 +650,7 @@ function (x, aic = TRUE, order.max = NULL, na.action = na.fail,
     res <- list(order = order, ar = ar, var.pred = var.pred, x.mean = x.mean,
                 aic = xaic, n.used = n.used, n.obs = n.used, order.max = order.max,
                 partialacf = partialacf, resid = resid,
-                method = ifelse(var.method == 1L, "Burg", "Burg2"),
+                method = if(var.method == 1L) "Burg" else "Burg2",
                 series = series, frequency = xfreq,
                 call = match.call())
     class(res) <- "ar"

src/library/stats/R/ts.R

@@ -826,8 +826,8 @@ arima.sim <- function(model, n, rand.gen = rnorm,
     }
     q <- length(model$ma)
     if(is.na(n.start)) n.start <- p + q +
-        ifelse(p > 0, ceiling(6/log(minroots)), 0)
-    if(n.start < p + q) stop("burn-in 'n.start' must be as long as 'ar + ma'")
+                           if(p > 0) ceiling(6/log(minroots)) else 0
+    else if(n.start < p + q) stop("burn-in 'n.start' must be as long as 'ar + ma'")
     d <- 0
     if(!is.null(ord <- model$order)) {
         if(length(ord) != 3L) stop("'model$order' must be of length 3")