Hello, I also have problems to get to run the following lines. If I run the block instead of every single line, it simply does not wait for the input. Can anybody help me?
------------------------ pos_name <- readline("Please type: ") r <- substr(pos_name, 1,1) c <- substr(pos_name, 2,nchar(pos_name)) ------------------------ Thank you! Antje Peter Dalgaard schrieb: > > Forest Floor wrote: >> >> Hi, >> >> >> >> I've seen various posts on this question, but still can't get the code >> >> right. >> >> >> >> If I run the following code one line at a time, it works fine. If I run >> >> it together as a block, however, it doesn't wait for the input and gives >> >> an error. >> >> >> >> There must be a way to have are pause/wait for an answer, but I can't >> >> seem to find it. Thanks! J >> >> >> >> Code: >> >> >> >> choosefunction <- function(){readline("1. linear, 2. linear with lag, 3. >> >> nonlinear ")} >> >> ans <- as.integer(choosefunction()) >> >> if (ans==1){K2=x1} >> >> if (ans==2){K2=x2 } >> >> if (ans==3){K2=x3 } >> >> ans >> >> >> >> Error text: >> >> > ans <- as.integer(choosefunction()) >> >> 1. linear, 2. linear with lag, 3. nonlinear if (ans==1) {K2=x1}]} >> >> Warning message: >> >> NAs introduced by coercion >> >> > if (ans==2){K2=x2) } >> >> Error in if (ans == 2) { : missing value where TRUE/FALSE needed >> >> > if (ans==3){K2=x3} >> >> Error in if (ans == 3) { : missing value where TRUE/FALSE needed >> >> > ans >> >> [1] NA >> >> > > As you may have realized already, the issue is that choosefunction() > > takes the next command as its input. Since "if (ans==1){K2=x1}" isn't an > > integer "ans" becomes NA, and it just goes downhill from there. > > > > An extra set of braces may help > > >> >> choosefunction <- function(){readline("1. linear, 2. linear with lag, 3. > > + nonlinear ")} >> >> {ans <- as.integer(choosefunction()) > > + if (ans==1){K2=x1} > > + if (ans==2){K2=x2 } > > + if (ans==3){K2=x3 } > > + ans} > > 1. linear, 2. linear with lag, 3. > > nonlinear 3 > > Error: object "x3" not found > > > > It still doesn't quite work, but the reason(s) for that should be plain > > to see. > > ______________________________________________ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code. ______________________________________________ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.