text: Title: The answer of statsmodels.sandbox.stats.runs is not the same with R.
  Body: My code of statsmodels:
  ```
  '''Step 1: Importing libraries'''
  from statsmodels.sandbox.stats.runs import runstest_1samp
  import numpy as np
  
  '''Step 2: Loading (Importing) the Data'''
  seq = np.array([1,0,1,1,0,1,1,0,1,0,0,1,1,0,0
                 ,0,1,0,1,0,1,0,0,0,0,1,1,1])
  
  '''Step 3: Runs Test'''
  res = runstest_1samp(seq)
  print('Z-statistic value:', np.round(res[0], 3))
  print('\nP-value:', np.round(res[1], 3))
  
  ```
  result:
  ```
  Z-statistic value: 0.578
  
  P-value: 0.563
  ```
  
  while using R:
  
  ```
  # Step 1: Load necessary libraries
  library(tseries)
  
  # Step 2: Load the data
  seq <- c(1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0,
           0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1)
  
  # Step 3: Runs Test
  res <- runs.test(as.factor(seq))
  cat("Z-statistic value:", round(res$statistic, 3), "\n")
  cat("P-value:", round(res$p.value, 3), "\n")
  
  ```
  
  result:
  ```
  Z-statistic value: 0.77 
  P-value: 0.441
  ```