verify.R 166 B

12345678910111213
  1. library(rtape);
  2. rtapeAsList('stress.tape')->Q;
  3. print(u<-table(sapply(Q,'[[','e')))
  4. if(all(u==u[1])){
  5. message("Test passed!");
  6. }else{
  7. message("Test failed!");
  8. }