1、pr2<-ts(pr2,start=c(2000,2),freq=52)
     玩笑，我想你可能已经试过了，那么试试用数据库吧。

2、数据库的例子见下贴：
       利用RODBC包从PostgreSQL数据库中查询股价日数据和周数据
        http://www.pinggu.org/bbs/thread-514824-1-1.html

我和你碰到的问题比较类似，不过我是要把x轴到天，在r里不知道怎么解决
但是有个办法可以挠过去，你在数据库里建议个表4个字段日期字段，周字段，序号字段，数值
在r里建时间序列的时候就用这里的序号字段，预测后写回数据库即可得到对应的周字段

就是建立变量ts(pr2,start=c(1991,1),fre=52)就可以建立周度的时间变量序列，哎，其实不难的！呵呵

In base package, you could do as following:
        wk <- seq(as.Date("2000/1/1"), as.Date("2010/1/1"), "weeks")
Then you can get the weekly date stamp.

There are some packages to do with time series data, such as xts, timeSeries, etc.
In the timeSeries packages,
      timeSeries(rnorm(length(wk), wk))