Muestra para control de la dieta

Una persona está interesada en saber si come correctamente o no. Para ello decide anotar los alimentos que ha ingerido a lo largo de cada uno de los días de una muestra de n días del año, empezando un día cualquiera y terminando un año después. Se trata, por tanto, de elegir n días al azar pero, lógicamente, no se debe saber si el día entra o no en la muestra hasta que no se ha contabilizado lo que se ha ingerido. El siguiente script puede servir para este propósito.

#INICIO -------------------------

rm(list=ls(all=TRUE))

#Este script se ejecutará cada día a última hora de la noche cuando ya no haya
#más ingesta de alimentos, empezando un día cualquiera y acabando un año después

#Tamaño muestral de días que se van a contabilizar el alimento ingerido: n

n<-50

x<-1:365

díasmuestra<-sample(x,n)

hoy <- Sys.Date()

numhoy <- strftime(hoy, format = "%j")

HOY<-as.numeric(numhoy)

#LA FECHA DE HOY ES:
hoy

#HOY ES EL DÍA DEL AÑO:
HOY

HOY %in% díasmuestra

#Si el resultado es TRUE se contabilizará lo ingerido el día de hoy

#Si el resultado es FALSE no se contabilizará lo ingerido el día de hoy

#FIN -------------------------