Extrair os 2 primeiros caracteres de uma sequência

Preciso extrair os 2 primeiros caracteres de uma string para criar mais tarde a distribuição de bin bin. vetor:

x <- c("75 to 79", "80 to 84", "85 to 89") 

Cheguei até aqui:

substrRight <- function(x, n){
  substr(x, nchar(x)-n, nchar(x))
}

invocar função

substrRight(x, 1)

Resposta

[1] "79" "84" "89"

Precisa imprimir os 2 últimos caracteres e não o primeiro.

[1] "75" "80" "85"

questionAnswers(3)

yourAnswerToTheQuestion