Há várias coisas erradas com o seu código.
Em primeiro lugar, as seguintes duas instruções são equivalentes, uma vez que o argumento format
é "%Y-%m-%d"
por defeito:
as.Date(base$DATE_END, "%Y-%m-%d")
as.Date(base$DATE_END)
Em segundo lugar, é melhor transformar toda a coluna DATE_END
em classe Date
uma única vez, logo no início do código, e depois usá-la já como uma data. Esta base é só um exemplo.
base <- data.frame(DATE_END = c("2013-02-25", "2013-05-14", "2013-09-16"))
base$DATE_END <- as.Date(base$DATE_END)
Em terceiro lugar, se o objeto é de classe Date
o método seq.Date
é automaticamente chamado quando se chama seq(uma_data, etc)
. Não é necessário, mas também não é errado, chamar seq.Date
explicitamente.
Além disso, faltam argumentos em seq.Date
. O R precisa de saber o início da sequência e informação quanto à sequência, tal como:
- O fim e o incremento, argumentos
to
e by
;
- O comprimento total, argumento
length.out
;
- O comprimento total igual ao comprimento de outra variável, argumento
along.with
.
Finalmente o código. Como diz que precisa de criar uma outra coluna com datas aleatórias e posteriores à coluna de datas que tem, começo por saber qual é a última data e depois crio uma sequência de datas daí até hoje. E é escolher aleatoriamente com sample
. Neste caso estou a amostrar sem reposição. Veja help("sample")
.
ult <- max(base$DATE_END)
set.seed(9447) # Torna os resultados reprodutíveis
sqDt <- seq(ult + 1, Sys.Date(), by = "day")
base$DATE_ALEA <- sample(sqDt, nrow(base))
base
# DATE_END DATE_ALEA
#1 2013-02-25 2015-11-27
#2 2013-05-14 2017-10-24
#3 2013-09-16 2014-11-01