2019-05-28 Statistica exercise.r

n1 <- 2/mean(c(0.26,0.49,0.32,0.31,0.02,2.33,0.19,1.68,1.38,0.90))
n2 <- 1/mean(c(0.12,0.06,0.25,0.01,0.11,0.13,0.01,0.04,0.00,0.01)+8)

print(n1)
print(n2)