R语言求解答，谢谢。

请用R语言 来解答，谢谢。
一种经食物传播的疾病之所以在好几个州大规模发生，其原因被归咎于肠炎沙门氏菌。流行病学专家认为疾病的根源在于冰激淋。他们从生产冰激淋的公司抽取9条生产线检测冰激淋中沙门氏菌的水平。水平数据如下（单位：MPN/g）。
0.593，0.142， 0.329，0.691，0.231，0.793， 0.519，0.392，0.418
利用这些数据确定冰激淋中沙门氏菌的平均水平是否大于0.3MPN/g，而这一水平被认为是很危险的。令α=0.01。

原假设：沙门氏菌的平均水平mu<=0.3MPN/g

对立假设：沙门氏菌的平均水平mu>0.3MPN/g
设向量
>vec<-c(0.593,0.142,0.329,0.691,0.231,0.793,0.519,0.392,0.418)
用t检验
>t.test(vec,mu=0.3,alternative="greater",conf.level=0.01)
t.test 是t检验
括号里第一个参数vec是检验的数据
mu=0.3 是检验均值
alternative="greater" 对立假设是大于号
conf.level=0.01 置信水平α=0.01

结果是

One Sample t-test

data: vec
t = 2.2051, df = 8, p-value = 0.02927
alternative hypothesis: true mean is greater than 0.3
1 percent confidence interval:
0.6619424 Inf
sample estimates:
mean of x
0.4564444

p-value = 0.02927>0.01 不能否定原假设 在置信水平α=0.01的情况下。
但是在α=0.05的情况下，就可以否定原假设，认为冰激凌中的沙门氏菌超出警戒水平0.3MPN/g

> summary(d0) > sd(d0)summary可以给出 mean,median,min,max, sd就是standard deviation