Análise de regressão simples

Titulação da atividade da tripsina remanescente. Se realizou um análise de regressão simples entre os valores de absorbância em função do tempo. Avaliaram-se doses crescentes de inibidores de peptidase. Se realizarão 9 leituras em intervalos de 30 segundos.

library(readxl)
AtividadeIPs <- read_excel("C:/Users/alex/Google Drive/Tese Doutorado/Plant Molecular Biology/AtividadeIPs.xlsx")

datos<-AtividadeIPs

reg<-lm(datos$Branco ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##      1.4701400000      0.0001118889
plot (datos$Branco ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`0` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0161733333      0.0008778333
plot (datos$`0` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`0__1`~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0096600000      0.0008743889
plot (datos$`0__1` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`0__2` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0086555556      0.0008377778
plot (datos$`0__2` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$Branco__1~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -1.006667e-02      7.777778e-05
plot (datos$Branco__1 ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`1` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0198355556      0.0007120556
plot (datos$`1` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`1__1`~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0147088889      0.0006893333
plot (datos$`1__1` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`1__2`~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0347177778      0.0007856111
plot (datos$`1__2`~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$Branco__2 ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0386800000      0.0001626111
plot (datos$Branco__2 ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`5`~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0322422222      0.0006079444
plot (datos$`5`~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`5__1` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##      0.0634733333      0.0002246667
plot (datos$`5__1` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`5__2` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##       -0.02257778        0.00054750
plot (datos$`5__2`~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$Branco__3 ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0355577778      0.0001648333
plot (datos$Branco__3~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`10` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0017088889      0.0002718333
plot (datos$`10` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`10__1` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##      0.0193755556      0.0001603889
plot (datos$`10__1` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`10__2` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##       -0.02918444        0.00037700
plot (datos$`10__2` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$Branco__4~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0358422222      0.0001643333
plot (datos$Branco__4~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`15`~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0323133333      0.0002998333
plot (datos$`15` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`15__1` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0192466667      0.0002662222
plot (datos$`15__1` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`15__2`~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0277044444      0.0005666111
plot (datos$`15__2` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$Branco__5 ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0167466667      0.0001567778
plot (datos$Branco__5 ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`20` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0503511111      0.0002761667
plot (datos$`20` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`20__1` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0452711111      0.0002688333
plot (datos$`20__1` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`20__2` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0424222222      0.0002766667
plot (datos$`20__2` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$Branco__6 ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0617044444      0.0002241111
plot (datos$Branco__6~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`30` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0298733333      0.0003372778
plot (datos$`30` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`30__1` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0381155556      0.0002660556
plot (datos$`30__1` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`30__2` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0173133333      0.0002401111
plot (datos$`30__2` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$Branco__7 ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0475022222      0.0001995556
plot (datos$Branco__7~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`50` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##       -0.03515333        0.00023850
plot (datos$`50` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`50__1` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0379000000      0.0002452778
plot (datos$`50__1` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`50__2` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0315866667      0.0002440556
plot (datos$`50__2` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$Branco__8~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0316177778      0.0001722778
plot (datos$Branco__8 ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`80`~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0363844444      0.0002203333
plot (datos$`80` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`80__1` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0123977778      0.0002218333
plot (datos$`80__1`~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`80__2`~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0250022222      0.0002092778
plot (datos$`80__2` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$Branco__9 ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0381444444      0.0001616667
plot (datos$Branco__9 ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`100` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0453755556      0.0002107222
plot (datos$`100` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`100__1` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0442688889      0.0002203889
plot (datos$`100__1` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`100__2` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0404511111      0.0002481111
plot (datos$`100__2` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$Branco__10 ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##       -0.03455111        0.00018700
plot (datos$Branco__10 ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`120` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0704444444      0.0002411111
plot (datos$`120` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`120__1` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##       -0.07245111        0.00026950
plot (datos$`120__1` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$`120__2` ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##       -0.06654889        0.00024550
plot (datos$`120__2` ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)

reg<-lm(datos$Branco__11 ~ datos$`Tempo (s)`, data= datos)
reg$coefficients
##       (Intercept) datos$`Tempo (s)` 
##     -0.0536044444      0.0001846667
plot (datos$Branco__11 ~ datos$`Tempo (s)`,pch=16 ,data = datos)
abline(reg,col="blue", pch=17, lty = 2)