如何在R中使用apply family创建一个简单的脚本

I need to make Anomaly Detection using R but i think my code is really long. I need to get "Find Anomaly" and "Total Anomaly". Can someone make it simple using apply family?. Here the codeI need to make Anomaly Detection using R but i