创建一个函数来计算R中的斜率m =(y2-y1)/(x2-x1)

时间:2019-06-19 21:09:16

标签: r function package

我是任何编程的新学员,在创建用于计算R中的斜率的函数时遇到了麻烦。这些错误意味着什么导致函数无法正常工作?

slope <- function(x1,y1,x2,y2) {

missingvars=c(missing(x1),missing(y1),missing(x2),missing(y2))

if(sum(missingvars)>0){
stop(paste(“Values were not provided (denoted by TRUE): x1 -”,missingvars[1],“, y1 -”,missingvars[2],“, x2 -”,missingvars[3],“, 
Y2 -”,missingvars[4],sep=“”))
}

if(x2-x1==0) {
stop(“Both X values are the same, slope cannot be calculated when X are the same.”)
}

m = (y2-y1)/(x2-x1)
return(m)

}
Error: unexpected '}' in "}"
> slope <- function(x1,y1,x2,y2) {
+ 
+ missingvars=c(missing(x1),missing(y1),missing(x2),missing(y2))
+ 
+ if(sum(missingvars)>0){
+ stop(paste(“Values were not provided (denoted by TRUE): x1 -“,missingvars[1],”, y1 -“,missingvars[2],”, x2 -“,missingvars[3],”, 
Error: unexpected input in:
"if(sum(missingvars)>0){
stop(paste(�"
> Y2 -“,missingvars[4],sep=“”))
Error: unexpected input in "Y2 -�"
> }
Error: unexpected '}' in "}"

1 个答案:

答案 0 :(得分:1)

我怀疑您的文本编辑器写错了引号。在代码中,您用双引号“和”(看起来像66和99),但是R只能解释“(看起来像||)。如果用”替换“和”,那么代码不会为我。

使用记事本(Windows),Gedit(Linux)或TextEdit(MacOS)之类的纯文本编辑器或RStudio之类的IDE来编写代码,应该可以防止这种情况在将来发生。