Wrong definition of dummy in chapter 13.3

[JueBi]

In chapter 13.3 is the definition of the dummy variable "race" not correct.

# generate subset with kindergarten data
STARK <- STAR %>% 
      transmute(gender,
                ethnicity,
                stark,
                readk,
                mathk,
                lunchk,
                experiencek,
                schoolidk) %>% 
      mutate(black = ifelse(ethnicity == "afam", 1, 0),
             race = ifelse(ethnicity == "afam" | ethnicity == "cauc", 1, 0),
             boy = ifelse(gender == "male", 1, 0))

In the ifelse() statement, the values 0 and 1 should be switched, according to the definition in the textbook.