diff --git a/Untitled.R b/Untitled.R
index 9421473cd3fad2c0284646752af95ef47844590e..313f07b639a598963209896c45a5f962296220c8 100644
--- a/Untitled.R
+++ b/Untitled.R
@@ -1,2 +1,19 @@
 x <- 5
 5+x
+install.packages("AER")
+library(AER)
+data("Journals", package = "AER")
+dim(Journals)
+name(Journals)
+summary(Journals)
+mean(Journals$price)
+Journals$logpricecitations <- log(Journals$price/Journals$citations)
+plot(Journals$logpricecitations)
+data("CASchools", package = "AER")
+dim(CASchools)
+summary(CASchools)
+plot(CASchools$income)
+matrix(CASchools) <- data.matrix(CASchools)
+matrix(CASchools)
+head.matrix(CASchools)
+plot(CASchools$income,CASchools$read, xlab = "durchschnittliches Einkommen der Schulbezirke", ylab = "Lesekenntnisse der SchülerInnen", main = "Zusammenhang zwischen Lesekenntnissen und Einkommen")