Tutorial 1

Q3

x = c( 4.125, 8.8, 5.675, 6.1, 3.2, 8.15,3.75,6.675,2.1, 3.35, 2.35,3.25)
s = c( 0.695,1.608,1.567, 1.128,0.753,3.363,0.569,2.71,0.216,0.465,0.129,0.265)

r05 = s/x^(0.5)
r10 = s/x
r20 = s/x^2
r30 = s/x^3

L05 = max(r05)/min(r05) 
L10 = max(r10)/min(r10) 
L20 = max(r20)/min(r20) 
L30 = max(r30)/min(r30) 

c(L05, L10,L20, L30)

Q4
(i)

x1=c(0.2, 0.3,  0.4,  1.1 , 2.0,  2.1 , 3.3,  3.8 , 4.5 , 4.8 , 4.9 ,  5.0 , 5.3,  7.5,  9.8, 
     10.4 , 10.9 ,11.3, 12.4 ,16.2, 17.6 , 18.9 , 20.7, 24.0 ,25.4, 40.0 ,42.2,
     50.0 ,60.0)
x2=c( 0.2,  0.3,  0.4 , 0.7 , 1.2,  1.5, 1.5, 1.9 , 2.0 , 2.4,  2.5,  2.8 , 3.6 , 4.8 , 4.8 , 5.4,
      5.7 , 5.8 , 7.5 , 8.7,  8.8 , 9.1, 10.3, 15.6,  16.1, 16.5, 16.7, 20.0, 20.7, 33.0)  

test1 = t.test(x1, x2, alternative = "two.sided", var.equal=T,conf.level = 0.95)

y1 = log(x1)
y2 = log(x2)

test2 = t.test(y1,y2, alternative = "two.sided", var.equal=T,conf.level = 0.95)


(ii)

wilcox.test(x1, x2, alternative = "two.sided", conf.level = 0.95)