Abaixo código.
pdf("histograma.pdf")
hist(duracao$dias, breaks = 20, main = "Histograma do Tempo", ylab = "Quantidade", xlab = "Tempo", ylim = c(0,2000), col = "blue")
dev.off()
Segue mensagem de erro.
> pdf("histograma.pdf")
> hist(duracao$dias, breaks = 20, main = "Histograma do Tempo", ylab = "Quantidade", xlab = "Tempo", ylim = c(0,2000), col = "blue")
> dev.off()
null device
1