我正在做一个需要两个输入变量并计算值的家庭作业。
input.c.x <-as.numeric(readline("input a variable x: "))
input.c.a<- as.numeric(readline("input a variable a: "))
output <- sin((input.c.a)*(input.c.x))
对于变量a
,我需要输入类似"pi/180"的东西。但它不会作为 will be 字符工作,也不会转换为像 3.14 这样的数字
因为readline
返回类型为"字符"的输出。我们可以使用eval/parse
来转换数据
input.c.x <- readline("input a variable x: ")
input.c.a <- readline("input a variable a: ")
x <- eval(parse(text = input.c.x))
y <- eval(parse(text = input.c.a))
然后这些数字可用于进一步计算。
input.c.x <- readline("input a variable x: ")
#input a variable x: pi/180
x <- eval(parse(text = input.c.x))
x
#[1] 0.01745329