sinimona, R - rextester

sinimona

#Schreiben Sie eine Funktion, die einer Zahl n den Vektor mit den ersten n Fibonacci- Zahlen zuordnet bzw. ausgibt.
#Berechnen Sie die Summe der ersten 10 sowie der ersten 20 Fibonacci-Zahlen.

N <- 20

fib <- vector("numeric", N);
fib[1] <- 1
fib[2] <- 1
for (i in 3:N) fib[i] <- fib[i - 2] + fib[i - 1]

print(fib)
print(sum(fib))

#Schreiben Sie eine Funktion janein, die nach Eingabe eines Vektors x und eines zweiten Argumentes a 
#(für absolut) oder r (relativ), eine Grafik erstellt, die die absolute Anzahl bzw. den relativen Anteil der 
#„Nein“- (0) und „Ja“-Antworten (1) darstellt. Ein zusätzliches Argument soll zudem steuern, ob die Grafik 
#ausgegeben wird oder als PDF-Datei im lokalen Verzeichnis speichert.

janein <- function() {
  
  print("Insert Nein(0) or Ja(1)")
  vec <- scan()
  mode <- readline("Enter mode: absolut(a) or relativ(r)")
  
  a <- table(c(vec))
  ja <- a[names(x)==1]
  nein <- a[names(x)==0]
  
  r <- mean(c(vec))
  
  #---------------------
  ANSWER <- readline("Enter plot or pdf: ")

if (substr(ANSWER, 1, 4) == "plot"){
    cat("Plotting\n")
    
    if (substr(mode, 1, 1) == "a"){
      barplot(height=a, names=c("Nein", "Ja"), main="Absolute")
    }
    else {
      barplot(c(r,1-r), horiz=TRUE, names=c("Nein", "Ja"), main="In %")
    }
  }
  else if (substr(ANSWER, 1, 3) == "pdf"){
    cat("Creating pdf\n")

pdf(file="saving_plot.pdf")
    if (substr(mode, 1, 1) == "a"){
      barplot(height=a, names=c("Nein", "Ja"), main="Absolute")
    }
    else{
      barplot(c(r,1-r), horiz=TRUE, names=c("Nein", "Ja"), main="In %")
    }
    
    dev.off()
  }
  else
    cat("Nothing to do\n")
}
if(interactive()) janein()


run \| edit \| history \| help	0