diff --git a/R/NMreadExt.R b/R/NMreadExt.R index 931438d3..4a6245af 100644 --- a/R/NMreadExt.R +++ b/R/NMreadExt.R @@ -210,7 +210,7 @@ NMreadExt <- function(file,return,as.fun,modelname,col.model,auto.ext,tableno="m tab.blocks - pars <- mergeCheck(pars,tab.blocks,by=cc(par.type,i),all.x=T) + pars <- mergeCheck(pars,tab.blocks,by=cc(par.type,i),all.x=T,quiet=TRUE) pars[abs(i-j)>(blocksize-1),(c("iblock","blocksize")):=list(NA,NA)] pars[par.type%in%c("OMEGA","SIGMA")&i==j&is.na(iblock),iblock:=i] diff --git a/R/NMreadParsText.R b/R/NMreadParsText.R index f048cb2f..7bff828f 100644 --- a/R/NMreadParsText.R +++ b/R/NMreadParsText.R @@ -72,7 +72,7 @@ ##' ##' res <- NMreadParsText(lines=lines, ##' format="%init;[%num];%symbol", -##' format.omega="%init %symbol ; %num ; %type ; %label ; %unit", +##' format.omega="%init; %symbol ; %num ; %type ; %label ; %unit", ##' field.idx="num") ##' ##' ## BLOCK() SAME are skipped