Create peek.R