Não foi possível enviar o arquivo. Será algum problema com as permissões?
Diferenças
Aqui você vê as diferenças entre duas revisões dessa página.
| Ambos lados da revisão anterior Revisão anterior | Próxima revisão Ambos lados da revisão seguinte | ||
|
cursos:mct:exemplo5 [2011/05/09 10:54] paulojus |
cursos:mct:exemplo5 [2011/05/09 10:58] paulojus |
||
|---|---|---|---|
| Linha 1: | Linha 1: | ||
| ====== Miscelânia de tópicos ====== | ====== Miscelânia de tópicos ====== | ||
| - | <fs medium>Representação e Manipulação de datas</fs> | ||
| - | <code R> | ||
| - | ## transformando caracteres em datas | ||
| - | dt1 <- as.Date("4/02/2011 03:24:13", "%d/%m/%Y %H:%M:%S") | ||
| - | dt1 | ||
| - | ## exibindo a data de otras formas | ||
| - | format(dt1, "%j") # dia do ano | ||
| - | format(dt1, "%A") # dia da semana | ||
| - | format(dt1, "%c") # referencia completa (de acordo com o locale do sistema) | ||
| - | format(dt1, "%m") # número do mes | ||
| - | |||
| - | ## opcoes disponíveis para exibição: | ||
| - | # a A b B c d H I j m M p S U w W x X y Y z Z | ||
| - | |||
| - | Sys.time() | ||
| - | format(as.Date(Sys.time(), "%d/%m/%Y %H:%M:%S"), "%j") | ||
| - | |||
| - | ## as datas podem ser fornecidas de outras maneiras... | ||
| - | x <- c("25set1967", "28set1969", "30jan2003", "05jul2004") | ||
| - | z <- strptime(x, "%d%b%Y") | ||
| - | z | ||
| - | |||
| - | ## | ||
| - | ## Ver detalhes aqui!!! | ||
| - | ## | ||
| - | ## e note a confusão com a omisão do século !!! | ||
| - | x <- c("1jan90", "2jan90", "31mar90", "30jul90") | ||
| - | z <- strptime(x, "%d%b%y") | ||
| - | z | ||
| - | x <- c("25set67", "28set69", "30jan03", "05jul04") | ||
| - | z <- strptime(x, "%d%b%y") | ||
| - | z | ||
| - | |||
| - | ## concatenando datas e horarios para formar registros únicos | ||
| - | dates <- c("02/27/92", "02/27/92", "01/14/92", "02/28/92", "02/01/92") | ||
| - | times <- c("23:03:20", "22:29:56", "01:03:30", "18:21:03", "16:56:26") | ||
| - | x <- paste(dates, times) | ||
| - | strptime(x, "%m/%d/%y %H:%M:%S") | ||
| - | |||
| - | dt2 <- strptime(x, "%m/%d/%y %H:%M:%S") | ||
| - | format(dt2, "%c") | ||
| - | |||
| - | dt2 <- sort(dt2) | ||
| - | dt2 | ||
| - | |||
| - | diff(dt2) | ||
| - | |||
| - | ## frações de segundos | ||
| - | z <- strptime("20/2/06 11:16:16.683", "%d/%m/%y %H:%M:%OS") | ||
| - | z | ||
| - | op <- options(digits.secs=3) | ||
| - | z | ||
| - | </code> | ||
| <fs medium>Lendo dados de teclado e da área de transferência</fs> | <fs medium>Lendo dados de teclado e da área de transferência</fs> | ||
