Displaying 2 results from an estimated 2 matches for "mnull2".
Did you mean:
mnull1
2023 Jan 25
2
Potential bug in fitted.nls
...ld be reported?
``` r
dat <-
data.frame(y=c(80,251,304,482,401,141,242,221,304,243,544,669,638),
ones = rep(1, 13))
mNull1 <- nls(y ~ a, data=dat, start=c(a=mean(dat$y)))
fitted(mNull1)
#> [1] 347.6923
#> attr(,"label")
#> [1] "Fitted values"
mNull2 <- nls(y ~ a*ones, data=dat, start=c(a=mean(dat$y)))
fitted(mNull2)
#> [1] 347.6923 347.6923 347.6923 347.6923 347.6923 347.6923 347.6923
347.6923
#> [9] 347.6923 347.6923 347.6923 347.6923 347.6923
#> attr(,"label")
#> [1] "Fitted values"
```
Created on 2023-...
2023 Jan 26
1
Potential bug in fitted.nls
...frame(y=c(80,251,304,482,401,141,242,221,304,243,544,669,638),
> ones = rep(1, 13))
> mNull1 <- nls(y ~ a, data=dat, start=c(a=mean(dat$y)))
> fitted(mNull1)
> #> [1] 347.6923
> #> attr(,"label")
> #> [1] "Fitted values"
>
> mNull2 <- nls(y ~ a*ones, data=dat, start=c(a=mean(dat$y)))
> fitted(mNull2)
> #> [1] 347.6923 347.6923 347.6923 347.6923 347.6923 347.6923 347.6923
> 347.6923
> #> [9] 347.6923 347.6923 347.6923 347.6923 347.6923
> #> attr(,"label")
> #> [1] "Fitted value...