R语言K样本置换检验的结果和书上不一样

想要重现书上的结果

library(multcomp)

set.seed(1234) # make results reproducible
oneway_test(response~trt, data=cholesterol,
distribution=approximate(nresample=9999))

> oneway_test(response~trt, data=cholesterol,

•         distribution=approximate(nresample=9999))
  

Approximative K-Sample Fisher-Pitman Permutation Test

data: response by trt (1time, 2times, 4times, drugD, drugE)
chi-squared = 36.381, p-value < 1e-04

我的解答思路和尝试过的方法

我想要达到的结果