Interactive Tester

Automated Tests

Passed: , Failed:

  1. doPlot <- function()
    
  2. doPlot <- function() {
    
  3.   doPlot <- function() {
    
  4. doPlot <- function()
    {
    
  5. plot(
    
  6. plot(x,
    
  7. plot(x,
         y,
    
  8. plot(x,
         c(foo,
    
  9. plot(x,
         c(foo,
           bar),
    
  10. plot(
      x,
      c(foo,
        bar),
    
  11. plot(x, c(foo, bar))
    
  12. plot(
      x, c(foo, bar))
    
  13. plot(x,
         c(foo, bar))
    
  14.   plot(x,
           c(foo, bar))
    
  15.   if (foo())
    
  16.   if (foo())
        bar
      else
    
  17.   if (foo())
        bar
      else
    # annoyingly placed comment
    
  18. if (foo())
      bar
    else NULL
    
  19.   for (i = 0;
           i < (20 * intervals);
           i += 1)
                      # annoyingly placed comment
    
  20. function() {
      for (i = 0;
           i < (20 * intervals);
           i += 1)
    
  21. function() {
      for (i = 0;
           i < (20 * intervals);
           i += 1) NULL
    
  22. function() {
      for (i = 0;
           i < (20 * intervals);
           i += 1) ()
    
  23. function() {
      for (i = 0;
           i < (20 * intervals);
           i += 1)
      {
    
  24. function() {
      for (i = 0;
           i < (20 * intervals);
           i += 1) {
    
  25.   if (x) {
    
  26.   if (foo(
    
  27.   if (foo(
            bar),
    
  28.   while (foo())
        NULL
    
  29.   while (foo())
      {
    
  30.   # Invalid parse tree
      while (foo())
      {
        foo (()
      }
    
  31.   repeat
        foo()
    
  32. function() {
      repeat
    
  33. function() {
      repeat {
    
  34. 5 *
    
  35. # One expression continued over more than two lines
    5 ~
      5 +
    
  36. else
      5 +
    
  37. if (foo())
      5 +
    
  38. xyplot(ysim ~ xsim) +
      layer(panel.ablineq(lm(y ~ x), r.sq = TRUE, rot = TRUE,
                          at = 0.8, pos = 3), style = 1) +