PESANDO MONEDAS

El problema que tenemos es saber cuántas monedas puedo meter en cada saco para estar seguro (muy seguro, quiero al menos un 99% de seguridad) de contarlas bien. Dada la balanza de la que dispongo quiero que entre el peso de un saco de n monedas y uno de n+1 monedas esté seguro que haya al menos 1 gr. de diferencia de peso. ¿Cuántas monedas puedo meter como máximo en un saco para tener esta seguridad?

En primer lugar calcularemos gracias a la herramienta de R la desviación típica y la mediana y a través de estos sacar el error. Los datos han sido obtenidos gracias al uso del siguiente script:

> mon =c(7.38, 7.46, 7.50, 7.37, 7.48, 7.52, 7.57, 7.48, 7.47, 7.41, 7.39, 7.61, 7.48, 7.49, 7.39, 7.46, 7.40, 7.50, 7.37,