####卡方(chisq)分布
# 1.卡方分布中抽样函数rchisq
Sys.setlocale(category = 'LC_ALL', locale = 'English_United States.1252')
# 加载所需的包
library(writexl)
# 定义概率和自由度的向量
probabilities <- seq(0.01, 1, by = 0.01)
degrees_of_freedom <- 1:30
# 创建所有可能的概率和自由度的组合
combinations <- expand.grid(probability = probabilities, df = degrees_of_freedom)
# 计算每一行的卡方分位数
combinations$chisq_quantile <- apply(combinations, 1, function(row) qchisq(row['probability'], row['df']))
# 将结果写入Excel文件
write_xlsx(combinations, "chisq_quantiles.xlsx")
加载所需的包
library(reshape2)
library(writexl)
# 创建交叉表
pivot_table <- dcast(combinations, probability ~ df, value.var = "chisq_quantile")
# 将交叉表写入Excel文件
write_xlsx(pivot_table, "pivot_chisq_quantiles.xlsx")
R语言生成卡方分布表
最新推荐文章于 2024-09-17 19:55:17 发布