R/CheckLengthSampleSize.R

In DanOvando/DLSA: Library Data Limited Stock Assessment Modules

CheckLengthSampleSize<- function(Data)
{
#     Data<- LengthData
  Data<- subset(Data,is.na(Length)==F)
  
  SampleSize<- Data %>%
    group_by(Year) %>%
    summarize(SampleSize=length(Length))
  
  SufficientSamples<- SampleSize$SampleSize>MinSampleSize
  
  if (sum(SufficientSamples)>0)
  {
    AvailableYears<- SampleSize$Year[SufficientSamples]
    
    Data<- Data[Data$Year %in% AvailableYears,]
  }
  
  return(list(YearsWithEnoughData=sum(SufficientSamples),ParedData=Data))
}