Last chance! 50% off unlimited learning
Sale ends in
data(cities)
data(cities)
cities$have <- factor((cities$REGION=="ON")|(cities$REGION=="WEST"))
plot(POP1996~POP1992, data=cities, col=as.integer(cities$have))
Run the code above in your browser using DataLab