That is weird; from what I understand (not an R expert), set.seed takes an integer, so I assume that number gets truncated / approximated to an integer. That means that all nearby seeds give the same result: for instance changing 7998976 to 7998977 or 7998975 makes no difference, up to the next multiple of 5271. This makes the result look a lot less random. Was Anne cheating?