Создание функции для вычисления наклона m = (y2-y1) / (x2-x1) в R

Question

Я новичок в программировании любого рода, и у меня возникли проблемы с созданием функции для вычисления наклона в 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 "}"

Answer 1

Я подозреваю, что ваш текстовый редактор пишет неверные кавычки.В коде у вас есть кавычки «и» (выглядят как 66 и 99), но R может интерпретировать только «(выглядит как ||). Если вы замените« и »на«, то код не выдаст никаких ошибок дляme.

Использование простого текстового редактора, такого как Notepad (Windows), Gedit (Linux) или TextEdit (MacOS) или IDE, такого как RStudio, для написания вашего кода должно предотвратить это в будущем.