求高手帮忙用R语言解决一道题

现在知道有2个T检验统计（t-test statistic）的样本。
当方差被认为相等时，其中一个T检验统计样本被起用。 当方差被认为不相等时，另一个T检验样本统计值为1个近似值（approximation）。
Example 1:


Example 2:


我们开始检验这些统计在不同情况下执行的怎么样。我们开始执行假设检验：

a) 取2个样品，规模（size）为18,分布为N(μ=30,δ^2=100)， N(μ=40,δ^2=100). 计算2个检验统计（test statistics）并测定他们的P-values。 做这个检验10000次。确定一部分次数的P-values is greater than α=0.05 for each approach。最后能得出什么结论？（What conclusion can you make?）

b) Get one sample of size 15 from the N(µ=50, σ2=16) distribution, and another sample of size 18 from the N(µ=45, σ2=25) distribution .  
Calculate the two test statistics and determine their p-values.  Do this test 10000 times.  Determine the fraction of times the p-value is greater than α = .05 for each approach.  What conclusion can you make?

请高手用R语言解决这题，小弟在这里感激不尽。

第一类错误和第二类错误的问题。

第一题mu1不等于mu2，所以零假设错了。但是你一部分p-value大于0.05，保留了零假设，就是犯了第二类错误。这里的fraction就是犯第二类错误的概率。

第二题同理不多说了。

算法就是弄个循环，你每次循环generate两个vector做t-test然后把每次求的p-value用另一个vector或者list存起来就行了。这程序很简单，自己写吧。

       

能不能详细点呢，才学R语言，不懂的地方太多了。

two sample t-test
u1=u2
Run the code
>pt(t value,df)
to get the -value
where t={(mean of X1- mean of X2)-u estimated 这里=0  because u1-u2=0}/SE(X1-X2)
SE(X1-X2)用Sp算  公式书上该有  用two sample t-test pooled sd  算SE