gistfile1.txt

rm(list=ls())
options(digits=22)

g <- expand.grid(replicate(10, 0:1, simplify=F))
m <- rowMeans(g)
unique(m)


df = data.frame()
for (j in 1:1024) {
  for (i in 1:10) {
    df = rbind(df,c(g[j,i],j))
  }  
}
colnames(df) <- c("value","sample")
df

library(dplyr)

averages <- df %>% group_by(sample) %>% summarise(average_value = mean(value))

unique(averages$average_value)