Неправильно если, еще заявление

Question

Я всегда получаю сообщение об ошибке: неожиданное 'else' в "else" в моем утверждении If, Else.

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

Isflorida <- function(data) {
  data <- filter(data,is.na(State)== FALSE)
  data$Isflorida <- vector(mode = "logical", length = nrow(data)) 
  for (i in 1:nrow(data)) { 
    if (data[i,]$State == "Florida") {
      data[i,]$Isflorida <- TRUE }
    else {data[i,]$Isflorida <- FALSE}}data}  

Answer 1

Разве этого не достаточно?

data$IsFlorida <- ifelse(data$State=="Florida", TRUE, FALSE)

Answer 2

Не добавляйте data сразу после }, если действительно хотите добавить точку с запятой.

Isflorida <- function(data) {
  data <- filter(data,is.na(State)== FALSE)
  data$Isflorida <- vector(mode = "logical", length = nrow(data)) 
  for (i in 1:nrow(data)) { 
    if (data[i,]$State == "Florida") {
      data[i,]$Isflorida <- TRUE } 
    else {data[i,]$Isflorida <- FALSE}}; data}

Я думаю, что большинство пользователей R будут использовать больше строк, например:

Isflorida <- function(data) {
  data <- filter(data,is.na(State)== FALSE)
  data$Isflorida <- vector(mode = "logical", length = nrow(data)) 
  for (i in 1:nrow(data)) { 
    if (data[i,]$State == "Florida") {
      data[i,]$Isflorida <- TRUE 
    } else {data[i,]$Isflorida <- FALSE}
  }
  data
}