r语言解决统计学问题

一条产品生产线平均每天的产量为3700件,标准差为50件,如果某一天的产量低于或高于平均产量,并落在加减两个标准差范围之外,就认为该生产线失去控制。下面是一周各天的产量,问生产线哪几天失去控制?
周一3850
周二3670
周三3690
周四3729
周五3619
周六3590
周日3700