anchor.diff:      {ok, Pid} = riakc_pb_socket:start_link(Riak_ip, Riak_port),
       io:format("Id ~p, T ~p, R ~p, S ~p, W ~p, T~p~n", [Id, Time, R, S, W, Temperature]),
       riakc_ts:put(Pid, "GeoCheckin", [{Id, Time, R, S, W, Temperature}]).
  +
  +r_table_internal(#state{riak_ip = Riak_ip, riak_port = Riak_port}, {TableName, #query_geocheckin{select = [Weather, Temperature], where = #geocheckin_pk{id = Id, time = {T1, T2}}}}) ->
  +    {ok, Pid} = riakc_pb_socket:start_link(Riak_ip, Riak_port),
  +    riakc_ts:query(Pid, lists:concat(["select ", Weather, ", ", Temperature, " from ", TableName, " where id = ", Id, " and time > ", T1, " and time < ", T2])).
  
positive.code: -record(state, {riak_ip, riak_port}).
  -record(store_new, {bucket, key, value}).
  -record(to_geocheckin, {id, time, region, state, weather, temperature}).
  
  %%%===================================================================
  %%% API
  
negative.code: 
  wro_geocheckin() ->
      gen_server:cast(?griakc, #to_geocheckin{id = 6, time = 1451606402, region = <<"Brazil">>, state = <<"Amazon">>, weather = <<"extremely hot">>, temperature = 33.4}).
  
  r_geocheckin() ->
      gen_server:call(?griakc, #query_geocheckin{select = [weather, temperature], where = #geocheckin_pk{id = 6, time = {1441606401, 1585606401}}}).
  
  %%%===================================================================
  %%% gen_server callbacks
  