R 从中获取TS的频率，为X12获取XTS的频率

我正在尝试使用

x12

软件包自动进行一些季节性调整。为此，我需要一个

ts

对象。但是，我不需要一个简单的

ts

对象，而是一个已经设置了开始日期和频率的对象。对于任何给定的系列，我都可以输入这些数据，但我将在中输入每月或每周的混合数据。我可以通过

xta

对象从

quantmod

获取数据，但似乎不知道如何从

xts

提取频率。 下面是一些在整个过程中都有效的示例代码，但我想从

xts

中提取频率信息，而不是显式地设置它：

getSymbols("WILACR3URN",src="FRED", from="2000-01-01") # get data as an XTS
lax <- WILACR3URN #shorten name
laxts <- ts(lax$WILACR3URN, start=c(2000,1), frequency=12) #explicitly it works
plot.ts(laxts)
x12out <- x12(laxts,x12path="c:\\x12arima\\x12a.exe",transform="auto", automdl=TRUE)
laxadj  <- as.ts(x12out$d11) # extract seasonally adjusted series

getSymbols（“WILACR3URN”，src=“FRED”，from=“2000-01-01”）#以XTS的形式获取数据
lax对于这种特定情况，这是未经测试的，但请尝试对频率使用
xts:：periodicy
：

freq <- switch(periodicity(lax)$scale,
  daily=365,
  weekly=52,
  monthly=12,
  quarterly=4,
  yearly=1)

周期性建议对我很有帮助。我还发现以下使用xts:：convertIndex的方法对于月度和季度数据都很有效。每周数据未经测试

require("quantmod")
require("dplyr")
getSymbols("WILACR3URN",src="FRED", from="2000-01-01") # get data as an XTS
lax <- WILACR3URN #shorten name
laxts <- lax %>%
  convertIndex("yearmon") %>% # change index of xts object
  as.ts(start = start(.), end = end(.)) # convert to ts
plot.ts(laxts)

require（“quantmod”）
要求（“dplyr”）
getSymbols（“WILACR3URN”，src=“FRED”，from=“2000-01-01”）#以XTS的形式获取数据
lax%#xts对象的更改索引
as.ts（开始=开始（.），结束=结束（）#转换为ts
plot.ts（laxts）
非常好。像冠军一样工作。我一直在
XTS
中寻找一个直接给出周期的属性，我应该知道有一个函数可以从数据中提取它。也谢谢你，因为我想我还学到了其他6件事：解包你的代码。干杯
require("quantmod")
require("dplyr")
getSymbols("WILACR3URN",src="FRED", from="2000-01-01") # get data as an XTS
lax <- WILACR3URN #shorten name
laxts <- lax %>%
  convertIndex("yearmon") %>% # change index of xts object
  as.ts(start = start(.), end = end(.)) # convert to ts
plot.ts(laxts)