@bavedikian@BestBuy@FedEx It’s really on fed ex to take responsibility for their drivers. Best Buy chose to use fed ex as the carrier. Yea that’s awful. @FedEx
Bought a $1,742.80 camera online from BestBuy.
The FedEx delivery driver stole it. FedEx admitted it.
But BestBuy won’t give a refund. They said we need to “work with local law enforcement.”
Thought everyone should know if you buy from @BestBuy and a @FedEx driver steals what you paid for, your money is gone. Neither company will make it right.
I’ve spent over $30K at BestBuy and will never spend another penny there.
A group of very sick elderly people received their last covid jab in Dec 2021.
On that Day.
54 Vaccinated.
25 Died.
Longest 'sequence' (consecutively jabbed who later died)....19
This group had a mortality rate that was HUGE. Approaching 50%.
HOWEVER....
The chances of seeing 19 people die in a vaccination time sequence like this in Monte Carlo Simulations (trying to randomly pick a sequence of 19):
ZERO.
Even after a Million simulations:
ZERO.
Try it yourself in R studio...
longest_run <- function(x) {
r <- rle(x)
max(r$lengths[r$values == 1], na.rm = TRUE)
}
N <- 54
D <- 25
obs_run <- 19
nsim <- 1000000
runs <- replicate(nsim, {
x <- c(rep(1, D), rep(0, N-D))
x <- sample(x)
longest_run(x)
})
p <- mean(runs >= obs_run)
cat("Observed run:", obs_run, "\n")
cat("Monte Carlo p-value:", p, "\n")
# Expected longest run under random arrangement
expected_run <- mean(runs)
# 95% simulation interval
ci <- quantile(runs, c(0.025, 0.975))
cat("Expected longest run:", round(expected_run, 2), "\n")
cat("95% simulation interval:", ci[1], "to", ci[2], "\n")
cat("Observed run:", obs_run, "\n")
cat("Monte Carlo p-value:", p, "\n")
RESULTS
> # Expected longest run under random arrangement
> expected_run <- mean(runs)
> # 95% simulation interval
> ci <- quantile(runs, c(0.025, 0.975))
> cat("Expected longest run:", round(expected_run, 2), "\n")
Expected longest run: 4.58
> cat("95% simulation interval:", ci[1], "to", ci[2], "\n")
95% simulation interval: 3 to 8
> cat("Observed run:", obs_run, "\n")
Observed run: 19
> cat("Monte Carlo p-value:", p, "\n")
Monte Carlo p-value: 0