in chapter 4,Error in get.vertex.attribute

[mooneyonly]

CHUNK 41

faction <- get.vertex.attribute(karate, "Faction")
Error in get.vertex.attribute(karate, "Faction") :
get.vertex.attribute requires an argument of class network.

f.colors <- as.character(length(faction))
Error: object 'faction' not found
f.colors[faction == 1] <- "red"
Error in f.colors[faction == 1] <- "red" : object 'f.colors' not found
f.colors[faction == 2] <- "cyan"
Error in f.colors[faction == 2] <- "cyan" : object 'f.colors' not found
plot(f.vec, pch=16, xlab="Actor Number",

• ylab="Fiedler Vector Entry", col=f.colors)
  Error in plot.xy(xy, type, ...) : object 'f.colors' not found

abline(0, 0, lwd=2, col="lightgray")