>>14008067 (pb)
re"How to Check Timestamps for 'Statistically Impossible' Digits?"
Do '17' and other potentially meaningful timestamp sums appear more frequently in certain Twitter accounts than others? It's easy to fall victim to casual biases, so it would be helpful to have a real statistical tally.
Just to take a first shot at answering my own question:
Below, an Excel macro to tally '17' sums of tweet HH:MM digits. Plus screenshots give the Excel formulas. Pretty simple, but it works.
(Anon doesn't upload macro spreadsheets, because who would click that? Not anon.)
Tweet data is downloaded to temp spreadsheet, up to 3200 tweets at a time from:
www.vicinitas.io/free-tools/download-user-tweets
-
First result:
Comparing thousands of tweets from POTUS* (Biden), Dan Scavino, and humorist Jon Gabriel, we see that Gabriel has the highest count of '17' sums. Scavino and Biden have fewer. So nothing is obviously tagged in the timestamp for these political figures (using only a simple digit sum test).
Maybe another data set, or another summation combination, will produce more interesting results. If you post something, include thered text title, above, in your post, and that will simplify search on qresear.ch .
-
Macro VBA text:
Sub Count_Seventeens()
'
' Title: Count_Seventeens Macro
' Purpose: count instances of '17' totals in tweet hh:mm digits
' Download tweets to spreadsheet from: https://www.vicinitas.io/free-tools/download-user-tweets
' Max 3200 tweets can be downloaded per Twitter account.
' In your own workbook, create one worksheet per Twitter account.
' For each account, paste downloaded tweet UTC timestamps (column E) to your own worksheet column A.
' See screenshots for worksheet formulas.
' Macro runtime note: set focus on the worksheet you want to calculate before running macro.
Dim counter As Integer
Dim rowcounter As Integer
Dim rowcounterstring As String
Dim mystring As String
Dim mytimechar As String
Dim mytimedigit As Integer
Dim mysumdigits As Integer
Dim myreadrange As String
Dim mywriterange As String
For rowcounter = 2 To 3202 'calculate a time digit sum for each row, max 3200 rows returned by ExtendOffice.com / vincinitas.io
mysumdigits = 0
rowcounterstring = CStr(rowcounter)
myreadrange = "C" & rowcounterstring
mywriterange = "D" & rowcounterstring
mystring = Range(myreadrange).Value
For counter = 1 To Len(mystring) 'count from 1 to length of string
mytimechar = Mid(mystring, counter, 1)
mytimedigit = CInt(mytimechar)
mysumdigits = mysumdigits + mytimedigit
Next counter
If mysumdigits = 17 Then 'score a match
Range(mywriterange).Value = 1
End If
Next rowcounter
'
End Sub