实验设计与分析(第6版,Montgomery)第4章随机化区组,拉丁方, 及有关设计4.5节思考题4.1~4.4 R语言解题

本文是实验设计与分析(第6版,Montgomery著,傅珏生译) 第章随机化区组,拉丁方, 及有关设计4.5节思考题4.1~4.4 R语言解题。主要涉及方差分析,随机化区组。

chemical<-data.frame(

X=c(73,68,74,71,67,73,67,75,72,70,75,68,78,73,68,73,71,75,75,69),

A = gl(4,5,20), #注释1 主因子chemical types

B = gl(5,1,20)) #区组

chemical.aov<-aov(X~A+B, data= chemical)

summary(chemical.aov)

> summary(chemical.aov)

Df Sum Sq Mean Sq F value Pr(>F)

A 3 12.95 4.32 2.376 0.121

B 4 157.00 39.25 21.606 2.06e-05 ***

Residuals 12 21.80 1.82


Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

There is no difference among the chemical types at α = 0.05 level.

baterial<-data.frame(X=c(13,22,18,39,16,24,17,44,5,4,1,22),

A = gl(3,4,12), #注释1 主因子chemical types

B = gl(4,1,12)) #区组

baterial.aov<-aov(X~A+B, data= baterial)

summary(baterial.aov)

> summary(baterial.aov)

Df Sum Sq Mean Sq F value Pr(>F)

A 2 703.5 351.8 40.72 0.000323 ***

B 3 1106.9 369.0 42.71 0.000192 ***

Residuals 6 51.8 8.6


Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

There is a difference between the means of the three solutions. The Fisher LSD procedure indicates that solution 3 is significantly different than the other two.

相关推荐
魔力之心1 天前
R study notes[1]
r语言
Chef_Chen2 天前
从0开始学习R语言--Day57--SCAD模型
开发语言·学习·r语言
医工交叉实验工坊2 天前
R 语言绘制六种精美热图:转录组数据可视化实践(基于 pheatmap 包)
开发语言·信息可视化·r语言
AAIshangyanxiu2 天前
最新基于R语言结构方程模型分析与实践技术应用
开发语言·r语言·结构方程模型·生态统计学
biomooc3 天前
R拟合 | 一个分布能看到三个峰,怎么拟合出这三个正态分布的参数? | 高斯混合模型 与 EM算法
r语言
请你喝好果汁6413 天前
R中匹配函数
开发语言·r语言
Tiger Z3 天前
R 语言科研配色 --- 第 81 期 (附免费下载的配色绘图PPT)
r语言·科研·配色
恩喜玛生物6 天前
100个GEO基因表达芯片或转录组数据处理27 GSE83456
深度学习·r语言
Yolo566Q7 天前
基于现代R语言【Tidyverse、Tidymodel】的机器学习方法
开发语言·经验分享·机器学习·r语言
Tiger Z8 天前
《R for Data Science (2e)》免费中文翻译 (第0章) --- Introduction
r语言·数据科学·中文翻译