ShvedAction

centered <- function(centreted_data_frame, var_names){
  centreted_data_frame[var_names] = lapply(var_names, function(name_var){
    centreted_data_frame[name_var]-mean(centreted_data_frame[[name_var]])
  })
  return(centreted_data_frame)
}

ShvedAction

/// <summary>
/// Create SqlException for unit test(Reflection). 
/// taken from: http://blog.gauffin.org/2014/08/how-to-create-a-sqlexception/
/// </summary>
/// <param name="number">This number will be at exception.number</param>
/// <param name="error_message">message</param>
/// <returns>new SqlException</returns>
private SqlException CreateSqlException(int number, string error_message = "the mock error message")
{
    var collectionConstructor = typeof(SqlErrorCollection)

ShvedAction

object getProp(object source, string name)
{
    var type = source.GetType();
    var prop = type.GetProperty(name);
    return prop.GetValue(source);
}

ShvedAction

<script type="text/javascript">
  function iteration(max, callback){
  	var ins = [];
  	var n = 0;
  	var r = 0;
  	do{
  		while(n <= max){
  			ins[r] = n;
  			callback(ins);
  			n++;