Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/73.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
单击“运行”和“源”时,R中的输出不同(Rstudio中的“运行”和“源”选项卡的区别是什么))_R_Rstudio - Fatal编程技术网

单击“运行”和“源”时,R中的输出不同(Rstudio中的“运行”和“源”选项卡的区别是什么))

单击“运行”和“源”时,R中的输出不同(Rstudio中的“运行”和“源”选项卡的区别是什么)),r,rstudio,R,Rstudio,我刚开始学习R。我正在用条件语句计算二次方程的根。这是我的密码 a <- readline(prompt= "Enter value of a:") b <- readline(prompt= "Enter value of b:") c <- readline(prompt= "Enter value of c:") a <- as.numeric(a) b <- as.numeric(b) c <- as.numeric(c) D <-(b^2-4*

我刚开始学习R。我正在用条件语句计算二次方程的根。这是我的密码

a <- readline(prompt= "Enter value of a:")
b <- readline(prompt= "Enter value of b:")
c <- readline(prompt= "Enter value of c:")
a <- as.numeric(a)
b <- as.numeric(b)
c <- as.numeric(c)
D <-(b^2-4*a*c)
if (D>0) {
x_1 <- (-b+sqrt(D))/(2*a)  
x_2 <- (-b-sqrt(D))/(2*a)        
result <- (c(x_1 ,x_2 )) 
result
}else if(D==0){  
x <- rep((-b)/(2*a),2)  
}else if(D<0){
  x_1 <- (-b)/(2*a)+(sqrt(abs(D)))/(2*a)*(1i)  
  x_2 <- (-b)/(2*a)-(sqrt(abs(D)))/(2*a)*(1i)   
  result <- (c(x_1 ,x_2 )) 
  result
}

a
  • run
    类似于将所选行复制粘贴到控制台,或将所有所选文本(包括换行符等)键入控制台
  • source
    将所选文本保存到文件中,然后对该文件运行
    source
    命令。要确切了解
    源代码
    的内容,请参阅其文档(
    ?source
运行命令通常比较容易,但也有一些缺点:当出现错误或请求输入时,命令不会停止。在这种情况下,第一个
读线
请求输入。它接收该输入,即文件中的下一行

小例子:

a <- readline(prompt = "a: ")
print(a)
print(a)
a打印(a)
[1] “打印(a)”

如您所见,第二行
print(a)
用作输入。因此,
a
具有值
print(a)

非常感谢你。你能帮我输入密码吗?为什么它不显示刚才的答案?它在输出屏幕中显示所有if块。是吗?@Damandeep是和否。R Studio中的源按钮有一个下拉菜单。当您选择带有Echo的
Source
时,您将看到所看到的内容。它会回显正在运行的命令,当命令太长时会截断命令。常规的
source
(也在菜单中;或者使用命令
source(“您的\r\u script.r”)
)不会显示任何内容。您应该使用
print(results)
获得输出(或者使用
format
cat
获得格式化输出)。
a <- readline(prompt = "a: ")
print(a)
print(a)
> a <- readline(prompt = "a: ")
a: print(a)
> print(a)
[1] "print(a)"