> s_complete$Dotcounting_SNB[s_complete$Dotcounting_SNB == "missing"] <- NA > table(s_complete$Dotcounting_SNB) A-B-C-D A-C-B-D A-D-B-C B-A-C-D B-A-D-C B-C B-C-D-A D-C-B-A missing 2711 80 80 159 80 80 80 159 0

> dotcounting_a <- table(s_complete$Dotcounting_SNB)
> dotcounting_a

A-B-C-D A-C-B-D A-D-B-C B-A-C-D B-A-D-C     B-C B-C-D-A D-C-B-A 
   2711      80      80     159      80      80      80     159

> dotcounting_a <- dotcounting_a[!is.na(dotcounting_a)]
> dotcounting_a

A-B-C-D A-C-B-D A-D-B-C B-A-C-D B-A-D-C     B-C B-C-D-A D-C-B-A 
   2711      80      80     159      80      80      80     159

> dotcounting_a <- as.numeric(dotcounting_a)
> dotcounting_a

[1] 2711   80