inst/doc/datastepping.R

In datastepr: An Implementation of a SAS-Style Data Step

## ---- message=FALSE------------------------------------------------------
library(datastepr)

## ------------------------------------------------------------------------
step = dataStepClass$new()

## ------------------------------------------------------------------------
?dataStepClass()

## ------------------------------------------------------------------------
xFrame = data.frame(x = 0:9)

## ------------------------------------------------------------------------
y_initial = data.frame(y = 1)

## ------------------------------------------------------------------------
stairs = function(...) {
  step$begin(environment())

  if (step$i == 1) step$set(y_initial)

  if (step$i > 1) lagx = x

  step$set(xFrame)
  
  if (step$i > 1) y = y + dydx*(x - lagx)
 
  dydx = x*y
  
  step$output()
  
  step$end(stairs)
}

stairs()

## ------------------------------------------------------------------------
knitr::kable(step$results)