Ejemplo efecto de la temperatura

# Script del ejemplo de la Desaparicion del aldehido, Química de Raymond Chang en R-Studio

# Se han realizado experimentos previos para calcular las leyes de velocidad de la desaparición del aldehido a diferentes temperaturas: 700,730,760,790,810 C, de las cuales se determinaron los siguientes valores para k: 0.011,0.035,0.105,0.343,0.789 M-1s-1. Hallar la Energía de activación (Ea) y el factor de frecuencia de colisión (A), aplicando la Ecuación de Arrhenius. 

k=c(0.011,0.035,0.105,0.343,0.789)  # introduce los valores de las leyes de velocidad (k)

T=c(700,730,760,790,810)  # introduce los valores de la temperatura (T)

lnk=log(k) # calcula el logaritmo natural de "k"

iT=1/T # calcula el inverso de "T"

plot(iT,lnk)  # grafica el inverso de la temperatura "iT" vs logaritmo natural de las constantes de velocidad "lnk"

lm(lnk~iT) # calcula la regresión linear de el inverso de la temperatura "iT" vs logaritmo natural de las constantes de velocidad "lnk" de la forma: lm(y~x)

R=8.714 #  introduce el valor de la constante de los gases ideales en j/k*mol 

m=-21880.87 # asigna a "m" copia el valor de la pendiente de la  regresión lm(lnk~iT)

Ea=-(m*R) # calcula la energía de activación del despeje da la fórmula : m=-Ea/R

Ea # imprime el valor de la Energía de activación 

 b=26.66  # copia el valor de la intersección de la regresión lm(lnk~iT)

A=exp(b) # calcula el valor del factor de colisión "A"

 A # imprime el valor del factor de colisión 

Fin del script