agh

entropy.df <- subset(
  tickets.df[
    1:nrow(
      tickets.df
    )
    %in% which(
      outer(
        subset(
          tickets.df, 
          period == "hadean"
        )$user,
        subset(
          tickets.df, 
          period == "prehadean"
        )$user,
        "=="
       ), 
       arr.ind=TRUE
    ),
  ], period == "hadean"
)

#Ookay, this isn't working. It should be pulling out all tickets with period "hadean" with a userID matching a userID from the tickets with period "prehadean". It returns a null. I can /see/ userIDs present in both. The fuck?