错误的 If, Else 语句

Question

I always get the the Error: unexpected 'else' in " else" in my If, Else Statement.

Pls help I've been sitting with this Error since two days and need to finish my paper till tomorrow.

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

Do not add data right after } , if really want to, add a semi-colon.

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}

I would think that most R users will use more lines, like so:

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
}