Tengo este error para mi código

Error in t.test.default(dat$Value, x[[i]][[2]]) : 
  not enough 'y' observations

Creo que la razón por la que recibí este error es porque estoy haciendo una prueba de prueba para datos que solo tienen un valor (por lo que no habría una media o una SD) vs datos que tienen 20 valores ... hay una manera en que puedo esquivar esto ... ¿hay alguna manera de ignorar los datos que no tienen suficientes observaciones? como un bucle if podría funcionar ... ayuda por favor

Así que mi código que hace la prueba es

t<- lapply(1:length(x), function(i) t.test(dat$Value,x[[i]][[2]]))

donde x es datos en forma de cortes similares a

cut: [3:8)
        Number   Value
3       15        8
4       16        7
5       17        6
6       19        2.3
this data goes on 
cut:[9:14)
      Number   Value
7     21        15
cut:[13:18) etc
      Number    Value
8     22        49
9     23        15
10    24        13

¿Cómo puedo ignorar los 'cortes' que tienen solo 1 valor como en el ejemplo anterior donde 'cut [9:14)' solo hay un valor ...