在R中创建警告

Question

我想编写一个脚本,使R在这个特殊的分析主题中可用于"所有人".是否有可能制作警告？

time,value
2012-01-01,5
2012-01-02,0
2012-01-03,0
2012-01-04,0
2012-01-05,3

例如,如果该值至少为0乘以0(之后 - 在settet时间段内更好 - 3天)发出警告 - 并命名日期.如果我结合条件,也许创建类似报告的东西.

通常:通过read.csv读取测量数据,然后将as设置为as.POSIXct - xts/zoo.如果值正在改变等,我希望"用户"得到一个明确的消息.如果它们长时间为0等等.第二步是发送电子邮件 - 可能稍后在服务器上运行.

其他问题:我现在在xts中有一个df - 是否可以检查该值是否大于阈值？它不起作用,因为它不是原子矢量.

谢谢

Answer 1

试试这个.

x <- read.table(text = "time,value
2012-01-01,5
2012-01-02,0
2012-01-03,0
2012-01-04,0
2012-01-05,3", header = TRUE, sep = ",")

if(any(rle(x$value)$lengths >= 3)) warning("I noticed some dates have value 0 at least three times.")

Warning message:
I noticed some dates have value 0 at least three times. 

我会把它留给你作为训练练习,paste给你一个警告信息,它也会给你一个日期.