Update teor1.Rmd