diff options
| author | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2013-10-29 23:09:52 +0000 |
|---|---|---|
| committer | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2013-10-29 23:09:52 +0000 |
| commit | 4bbcc09d767271513974aeefc741bdded9830186 (patch) | |
| tree | 11a22b7614904a844a4c1b9c8e59a4261d12c3d9 /R | |
| parent | a1c198293fadbc15b0e966f19fc2312f6878e288 (diff) | |
- Just one little formatting change in mkinfit.R
- Some very basic fitting now works in the experimental GUI with the new widget layout
git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@128 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
Diffstat (limited to 'R')
| -rw-r--r-- | R/mkinfit.R | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R index 83ac087..b0292bb 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -53,7 +53,8 @@ mkinfit <- function(mkinmod, observed, # Prevent inital parameter specifications that are not in the model
wrongpar.names <- setdiff(names(parms.ini), mkinmod$parms)
if (length(wrongpar.names) > 0) {
- stop("Initial parameter(s) ", paste(wrongpar.names, collapse = ", "), " not used in the model")
+ stop("Initial parameter(s) ", paste(wrongpar.names, collapse = ", "),
+ " not used in the model")
}
defaultpar.names <- setdiff(mkinmod$parms, names(parms.ini))
|