Speichern von Benutzereingabewerten in einem Array

Question

Im Wesentlichen möchte ich alle Benutzereingaben in einem Array speichern und hinzufügen, wenn der Benutzer eine 0 eingibt. Ich weiß nicht, wie das geht. In meinem Skript wird der x-Wert jedes Mal unweigerlich geändert.

Hier ist mein Skript so weit:

print("This program will sum a series of numbers.") 
x <- 1:100  
num <- c(x) 
while (num[x] != 0) { 
    print("Enter the next number (enter 0 when finished)") 
    num[x] <- as.numeric(readLines(con=stdin(),1)) 
} 
sum <- sum(num) 
print(paste("The sum of your numbers is", sum)) 

ich diesen Fehler:

In while (num[x] != 0) { : the condition has length > 1 and only the first element will be used

Kann jemand mir bitte helfen?

Answer 1

Hier ist eine mögliche Lösung:

print("This program will sum a series of numbers.") 
next_entry <- 1 
entries <- vector() 
while (next_entry != 0) { 
print("Enter the next number (enter 0 when finished)") 
next_entry <- as.numeric(readLines(con=stdin(),1)) 
entries <- c(entries, next_entry) 
} 
sum <- sum(entries) 
print(paste("The sum of your numbers is", sum)) 

Das Problem mit dem Skript ist, dass „num“ bereits definiert ist, da Sie es auf 1 gesetzt: 100 auf der dritten Zeile.