cards <- 1:13
S <- cards
S[1] <- 11
S[11:13] <- 10
plot(cards, S)