小编Mik*_*ike的帖子

我正在尝试获取我在 R 中运行的回归的 Durban Watson 统计数据。但是，当我运行代码时dw.test(x~y)，R 一直告诉我Error: could not find function "dw.test"。我已经检查过，dw.test 函数是 bstats 包的一部分，它是一个基本包。

有谁知道为什么 R 无法识别 dw.test 函数？

谢谢！

麦克风

我有以下数据帧:

AllDays  
2012-01-01  
2012-01-02  
2012-01-03  
...  
2015-08-18  

Leases 
StartDate  EndDate
2012-01-01 2013-01-01  
2012-05-07 2013-05-06  
2013-09-05 2013-12-01   

我想要做的是,对于allDays数据帧中的每个日期,计算有效的租约数量.例如,如果有4个租约的开始日期<= 2015-01-01和结束日期> = 2015-01-01,那么我想在该数据帧中放置一个4.

我有以下代码

  for (i in 1:nrow(leases))
  {
    occupied = seq(leases$StartDate[i],leases$EndDate[i],by="days")
    occupied = occupied[occupied < dateOfInt]
    matching = match(occupied,allDays$Date)
    allDays$Occupancy[matching] = allDays$Occupancy[matching] + 1
  }

这是有效的,但由于我有大约5000个租约,它需要大约1.1秒.有没有人有更有效的方法需要更少的计算时间？利息日仅为当前日期,仅用于确保未计入未来的租赁日期.

我正在努力理解R中的Sys.Date()函数.当我在consol中键入Sys.Date()时,它返回今天的日期,这是完美的.但是,当我把它放入一个数字矩阵时,它会返回16001,当转换回使用日期时,它as.Date(16001,origin = "1900-01-01")会给我1943-10-24.

它只是Sys.Date()的起源是1970-01-01的情况？这么简单吗？

谢谢

麦克风

我正在寻找交换数组中每一行的第二个。我事先不知道数组的长度。不过，我确实知道它可以被 2 整除。

举个例子：

101 102 147 148

会成为

102 101 148 147

任何帮助将不胜感激。

谢谢

麦克风