Convert New Expression

Takes an expression and removes the for loop and adds cbind for arrays.

expression_vectorize(x)

Arguments

x

An expression

Value

An expression

Examples

expression_vectorize(rlang::expr(for(i in 1:nObs) {eCount[i] <- b0}))
#> eCount <- b0
expression_vectorize(
  rlang::expr(
    for(i in 1:length(LogLength)) {eWeightLength[i] <- b0 + bDayte * Dayte[i]}
  )
)
#> eWeightLength <- b0 + bDayte * Dayte
expression_vectorize(
  rlang::expr(
    for(i in 1:nObs) {eAnnual[i] <- bAnn[Ann[i]] + bSA[Site[i], Ann[i]]}
  )
)
#> eAnnual <- bAnn[Ann] + bSA[cbind(Site, Ann)]