function a

demo ggplot function

Datei1.txt

@@ -23,6 +23,14 @@ g <- if(b == a) {
 
 print("issues")
 
+a <- function() {
+  #this function is a demo function
+  ggplot() +
+    ggbar() +
+    scale_discrete() +
+    theme()
+}
+
 plot(letters[1:5], seq(1:5))
 lines(1:5, rep(1,5), col="red")
 lines(rep(2,5), 1:5, col="green")