STATISTIK-FORUM.de

[Travis]

Ich möchte die wöchentlichen Einnahmen in ein Barplot aufgelistet bekommen. Problem ist, dass er vier verschiedene Barplots erstellt mit einem wert.
Ich weiß nicht mehr weiter wie ich während der while Schleife ein Vektor erstellen kann, der mir dann die Ergebnisse am Ende in ein Barplot packt.
Hier mein Code. Danke jetzt schon
gewinn<-function(){

x=as.numeric(readline("Für welche Wochen wollen sie die Einnahmen sehen"))
y=as.numeric(readline("Bis zu welcher Woche wollen sie das haben"))

while (x < y){
i = (sum(subset(Mai$duration,Mai$cw==x & Mai$duration<3600 & Mai$provider=="C")))*1/60

j = length(subset(Mai$duration,Mai$cw==x & Mai$duration<3600 & Mai$provider=="C"))

f = round(i/j,digits=2)

k = round((i*0.29)/1200,digits=2)
print(k)

week<-matrix(cbind(c(k)),ncol=4)
week<-as.table(week)
barplot(week,ylim=c(0,240))
print(week)
x<-x+1}}

[DHA3000]

Warum steht denn der barplot-Befehl in der Schleife?