자신 만의 read.xts
함수를 작성할 수 있습니다. 우리는 래퍼 함수를 호출 것이며 그것은 function()
에
read.xts <- function(x, format = "%m/%d/%Y", header = TRUE, sep = ",") {
result <- as.xts(read.zoo(x, sep = sep, format = format, header = header))
return(result)
}
read.xts(file.choose()) # select your file
공지 인수의 라인을 따라 뭔가를 가야한다. 함수의 본문으로 전달됩니다 (중괄호 사이의 코드). function()
인수에 값이있는 경우 이는 이것이 기본값임을 의미합니다. 새 값 (예 : function(x = "my.file.csv", sep = "\t")
)을 할당하면 기본값을 덮어 씁니다. 마지막 줄은 새 기능을 사용하는 방법을 보여줍니다. 나머지는 read.zoo
인수와 함께이 함수를 자유롭게 확장하십시오. 어떻게해야하는지에 대해 구체적인 질문이 있으면 부끄러워하지 말고 물어보십시오. :)
저는 일상 업무에서 그러한 작은 보석 몇 개를 사용합니다. Workhorse.R이라는 파일을 만들었고 작은 기능이 필요할 때마다로드합니다 (예 : source("d:/workspace/workhorse.R")
).
그건 작동합니다! order.by 인수를 피할 수있는 방법이 확실치 않습니다. 어쨌든, 나는 당신이 효율성을 위해 그 선을 이길 수 있는지 확신하지 못합니다. Read.xts 함수가 존재하거나 작동하지 않는 것으로 보입니다. – Milktrader
이미'zoo' 객체 인 경우에는 색인이 있고'order.by'가 필요 없습니다. –
@Milktrader, 나는 당신이'xts'와'as.xts'를 혼란스럽게 생각한다고 생각합니다. 'args (xts ::: as.xts.zoo)'와'args (xts)'를 비교하십시오. –