# efg2, 13 July 2013

> # Verify test image numbers are simply 1:1783
> stopifnot(all(d.test$ImageId == 1:nrow(d.test)))

> example.submission <- read.csv(paste0(data.dir, 'submissionFileFormat.csv'), as.is=TRUE)
> dim(example.submission)
[1] 27124     4

> feature.counts <- table(example.submission$ImageId)
> table(feature.counts)
feature.counts
   6    8   18   20   22   24   26   28   30
   2 1190    1    2    2    3    9   18  556

> TestImageId.Set1 <- which(feature.counts >  8)
> length(TestImageId.Set1)
[1] 591

> TestImageId.Set2 <- which(feature.counts <= 8)
> length(TestImageId.Set2)
[1] 1192

> example.submission[example.submission$ImageId == TestImageId.Set1[1],]
   RowId ImageId               FeatureName Location
1      1       1         left_eye_center_x       NA
2      2       1         left_eye_center_y       NA
3      3       1        right_eye_center_x       NA
4      4       1        right_eye_center_y       NA
5      5       1   left_eye_inner_corner_x       NA
6      6       1   left_eye_inner_corner_y       NA
7      7       1   left_eye_outer_corner_x       NA
8      8       1   left_eye_outer_corner_y       NA
9      9       1  right_eye_inner_corner_x       NA
10    10       1  right_eye_inner_corner_y       NA
11    11       1  right_eye_outer_corner_x       NA
12    12       1  right_eye_outer_corner_y       NA
13    13       1  left_eyebrow_inner_end_x       NA
14    14       1  left_eyebrow_inner_end_y       NA
15    15       1  left_eyebrow_outer_end_x       NA
16    16       1  left_eyebrow_outer_end_y       NA
17    17       1 right_eyebrow_inner_end_x       NA
18    18       1 right_eyebrow_inner_end_y       NA
19    19       1 right_eyebrow_outer_end_x       NA
20    20       1 right_eyebrow_outer_end_y       NA
21    21       1                nose_tip_x       NA
22    22       1                nose_tip_y       NA
23    23       1       mouth_left_corner_x       NA
24    24       1       mouth_left_corner_y       NA
25    25       1      mouth_right_corner_x       NA
26    26       1      mouth_right_corner_y       NA
27    27       1    mouth_center_top_lip_x       NA
28    28       1    mouth_center_top_lip_y       NA
29    29       1 mouth_center_bottom_lip_x       NA
30    30       1 mouth_center_bottom_lip_y       NA

> example.submission[example.submission$ImageId == TestImageId.Set2[1],]
      RowId ImageId               FeatureName Location
17593 17593     592         left_eye_center_x       NA
17594 17594     592         left_eye_center_y       NA
17595 17595     592        right_eye_center_x       NA
17596 17596     592        right_eye_center_y       NA
17597 17597     592                nose_tip_x       NA
17598 17598     592                nose_tip_y       NA
17599 17599     592 mouth_center_bottom_lip_x       NA
17600 17600     592 mouth_center_bottom_lip_y       NA