3-cs-fraudulent-transactions

3-cs-fraudulent-transactions

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: smen v431 v54 v426 v1679 v1085 v1183 v614 v39 v44 v152 10159 6017 3902 3016 3001 2642 2478 2412 1982 1900 v1149 v43 v45 v131 v1675 v1678 v1172 v472 1729 1604 1572 1558 1544 1490 1487 1459 > tail(sort(totS, decreasing=T), 20) # Bottom 20 salesmen v333 v4577 1875 1749 v6030 v6035 v6036 v6039 v6040 v6042 v6044 v6048 v6050 v6051 v6054 v6055 1 1 1 1 1 1 1 1 1 1 1 1 v6058 v6059 v6061 v6063 v6064 v6065 v6068 v6069 1 1 1 1 1 1 1 1 > length(totS[totS==1]) # Salesmen with only one record [1] 173 Statistics 503, Spring 2013, ISU 7 > totS <- table(sales$ID) > length(totS) [1] 6016 > head(totS) <"-$# v1 v2 v3 v4 v5 v6 96 50 26 549 33 61 > head(sort(totS, decreasing=T), 20) # Top 20 salesmen Salesman who entered a lot of records! v431 v54 v426 v1679 v1085 v1183 v614 v39 v44 v152 10159 6017 3902 3016 3001 2642 2478 2412 1982 1900 v1149 v43 v45 v131 v1675 v1678 v1172 v472 1729 1604 1572 1558 1544 1490 1487 1459 > tail(sort(totS, decreasing=T), 20) # Bottom 20 salesmen v333 v4577 1875 1749 v6030 v6035 v6036 v6039 v6040 v6042 v6044 v6048 v6050 v6051 v6054 v6055 1 1 1 1 1 1 1 1 1 1 1 1 v6058 v6059 v6061 v6063 v6064 v6065 v6068 v6069 1 1 1 1 1 1 1 1 > length(totS[totS==1]) # Salesmen with only one record [1] 173 Statistics 503, Spring 2013, ISU 7 > totS <- table(sales$ID) > length(totS) [1] 6016 > head(totS) <"-$# v1 v2 v3 v4 v5 v6 96 50 26 549 33 61 > head(sort(totS, decreasing=T), 20) # Top 20 salesmen Salesman who entered a lot of records! v431 v54 v426 v1679 v1085 v1183 v614 v39 v44 v152 10159 6017 3902 3016 3001 2642 2478 2412 1982 1900 v1149 v43 v45 v131 v1675 v1678 v1172 v472 1729 1604 1572 1558 1544 1490 1487 1459 > tail(sort(totS, decreasing=T), 20) # Bottom 20 salesmen v333 v4577 1875 1749 v6030 v6035 v6036 v6039 v6040 v6042 v6044 v6048 v6050 v6051 v6054 v6055 1 1 1 1 1 1 1 1 1 1 1 1 v6058 v6059 v6061 v6063 v6064 v6065 v6068 v6069 1 1 1 1 1 1 1 1 > length(totS[totS==1]) # Salesmen with only one record [1] 173 Lots of salesmen with only 1 record! Statistics 503, Spring 2013, ISU 7 > totP <- table(sales$Prod) > length(totP) [1] 4548 > head(totP) =,2('0&# p1 p2 p3 p4 p5 p6 210 81 35 114 161 63 > head(sort(totP, decreasing=T), 20) # Top 20 products p1125 p3774 p1437 p1917 p4089 p2742 p2273 p2957 p1918 p1938 p1215 p4094 3923 1824 1720 1702 1598 1519 1402 1381 1326 1325 1317 1148 p1914 p1910 p1706 p2170 p3197 p1214 p3338 p1583 1133 1123 1105 1074 996 991 977 971 > tail(sort(totP,...
View Full Document

This note was uploaded on 02/06/2014 for the course STAT 503 taught by Professor Staff during the Fall '08 term at Iowa State.

Ask a homework question - tutors are online