set.seed(1)
N=100
x = rnorm(N,10)
e = rnorm(N)
y = 2*sin(4*x) + 2*x + e

par(mfrow=c(2,1), mar=rep(2,4))
plot(x,y,cex=.5)
plot(x,y,cex=.5)
lines(smooth.spline(x,y),col=2)
lines(loess.smooth(x,y,span = .2),col=3)
legend(11.2,23,col = 2:3,lty=1,bty = "n",
      legend = c("Spline","Loess"))

 R commander (R cmdr )   

*حال که با فضای کلی رابط Rcmdrآشنا شدید می خواهیم روش استفاده از برنامه

را برای آزمون فرض و فاصله اطمینان به شما آموزش دهیم.

#مثال : برای بدست آوردن فاصله اطمینان و آزمون فرض:

11نمونه تصادفی از قد دانشجویان به صورت زیر مشاهده زیر مشاهده شده است. اگر

فرض کنیم قد دانشجویان دارای توزیع نرمال با میانگین µو واریانس ð2آنگاه یک

آزمون فرض به شکل زیر در سطح αانجام دهید (فرض کنیم . )

H_0 ∶ μ=160                    H_1 ∶  μ=170

نمونه ها :

155,160,170,150,185,175,170,165,150,160