R语言生成卡方分布表

####卡方(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")

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

卡卡_R-Python

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值