Получение «неожиданной» ошибки} при написании функции и не могу сказать, почему

Question

Я пишу функцию, которой раньше никогда не делал.Я хочу взять таблицу, сгенерированную с помощью prop.table () и добавить первые две ячейки вместе.Я думаю, что мой сценарий имеет смысл, но я продолжаю получать ошибку «неожиданно»} в «}».

likert <- c('a', 'a', 'a', 'b', 'c', 'c', 'd', 'd', 'd', 'd', 'd', 'e', 'e', 'f')

percSat <- function(likert) {
  propTable <- prop.table(table(women$qualitySchools))
  percSatisfied <- sum(propTable[1:2])
  return(percSatisfied)
}

#OR

percSat <- function(likert) {
  percSatisfied <- sum(prop.table(table(likert))[1:2])
  return(percSatisfied)
}

Я пытался запустить его в сценарии и на консоли в RStudio.По какой-то причине я не получаю ошибку в обычном R. Я определенно могу поверить, что я сделал что-то не так, но я не вижу ошибок в брекетинге, поэтому я очень запутался.

Answer 1

Должно быть, в другой части скрипта была некоторая плавающая пунктуация;Когда я начал новую, PercSat (likert) работал отлично.Извините всех!