From 15842e2252579a271b0f966f6eb75156ddba00c7 Mon Sep 17 00:00:00 2001 From: James-Thorson Date: Wed, 17 Dec 2014 15:59:10 -0800 Subject: [PATCH] added new error message... ... for misspecifying SigOpt or BiasOpt --- R/RunFn.R | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/R/RunFn.R b/R/RunFn.R index 67fefd2..721fb42 100644 --- a/R/RunFn.R +++ b/R/RunFn.R @@ -11,6 +11,11 @@ function(Data, SigOpt, KnotAges, BiasOpt, NDataSets, MinAge, MaxAge, RefAge, Min if( (SigOpt[ReaderI]==5 | SigOpt[ReaderI]==6) & is.na(KnotAges[[ReaderI]][1]) ) stop("Must specify KnotAges for any reader with SigOpt 5 or 6") } + # Check for specification errors + for(ReaderI in 1:Nreaders){ + if( (SigOpt[ReaderI]<0 & SigOpt[ReaderI]<=(-ReaderI)) | (BiasOpt[ReaderI]<0 & BiasOpt[ReaderI]<=(-ReaderI)) ) stop("Mirrored readers must mirror a lower numbered reader") + } + # Write DAT file write(c("# Maximum number of readers",Nreaders),file=paste(SaveFile,"agemat.dat",sep="")) write(c("# Number of data sets",NDataSets),file=paste(SaveFile,"agemat.dat",sep=""),append=TRUE)