Download ejercicio 1.8

BacteriasRad.R
NumBac = c(355,211,197,166,142,106,104,60,56,38,36,32,21,19,15)
Intervalo = seq(1,15)
250
150
50
NumBac
350
plot(Intervalo,NumBac)
2
4
6
8
10
12
14
10
12
14
Intervalo
BacteriasRad.R
3.0
4.0
Y
5.0
Y = log(NumBac)
plot(Intervalo,Y)
2
4
6
8
Intervalo
Y = log(Num. Bacterias) = a + bx
siendo x el número de intervalo de 6 minutos.
BacteriasRad.R
zz = lm(Y~Intervalo)
print(zz)
Call:
lm(formula = Y ~ Intervalo)
Coefficients:
(Intercept) Intervalo
5.9732
-0.2184
Y = log(Num. Bacterias) = 5,9732 − 0,2184x
Número inicial de bacterias antes de radiar = e5,9732−0,2184·0 = e5,9732 = 392,76
1