hw1.pdf - STAT 359 Assignment#1 YI TANG V00826204 Q1 I spent around 15 hours to read chapter 1,2,3 and 4#Q2#a two

# hw1.pdf - STAT 359 Assignment#1 YI TANG V00826204 Q1 I...

• 5

This preview shows page 1 - 4 out of 5 pages.

STAT 359Assignment #1YI TANG V00826204Q1.I spent around 15 hours to read chapter 1,2,3 and 4.#Q2#atwo =read.csv("/Users/ty/Desktop/stat359/hw/hw1/questionone.csv",header=T,row.names=1)attach(two)two##growth treatment Plot Pot## 114.6111## 215.2111## 313.2112## 412.9112## 516.4113## 612.2113## 77.1221## 87.7221## 96.8222## 106.0222## 1110.0223## 128.3223## 1318.5131## 1416.7131## 1522.2132## 1618.8132## 1724.7133## 1820.3133## 199.7241## 208.8241## 216.8242## 229.2242## 2310.4243## 2410.5243#btwo_sort = two[order(growth),]two_sort##growth treatment Plot Pot## 106.0222## 96.8222## 216.8242## 77.1221## 87.7221## 128.3223## 208.82411
## 229.2242## 199.7241## 1110.0223## 2310.4243## 2410.5243## 612.2113## 412.9112## 313.2112## 114.6111## 215.2111## 516.4113## 1416.7131## 1318.5131## 1618.8132## 1820.3133## 1522.2132## 1724.7133#cmean(growth)## [1] 12.79167var(growth)## [1] 28.12428#dhist(growth,xlab="Growth(mm)",ylab ="Frequency",main ="Histogram of Growth",breaks =seq(0,30,2))Histogram of GrowthGrowth(mm)Frequency0510152025300123452
#eplot(treatment,growth,xlab="Treatment",ylab="Growth",pch =c(1,3,7,16),