Running ‘t-browser.R’ [1s/1s]
  Comparing ‘t-browser.Rout’ to ‘t-browser.Rout.save’ ... OK
  Running ‘t-capture.R’ [1s/1s]
  Comparing ‘t-capture.Rout’ to ‘t-capture.Rout.save’ ... OK
  Running ‘t-change.R’ [1s/1s]
  Comparing ‘t-change.Rout’ to ‘t-change.Rout.save’ ... OK
  Running ‘t-demo.R’ [10s/14s]
  Comparing ‘t-demo.Rout’ to ‘t-demo.Rout.save’ ...
248,249d247
< Warning in install.packages(pkg, repos = NULL, type = "src", lib = TMP.LIB,  :
<   installation of package '.' had non-zero exit status
260,264c258,262
< 1  1 library(utzflm, lib.loc = g...       * Passed    Y    FALSE
< 2  2 dat <- data.frame(x = 1:100...       * Passed    Y    FALSE
< 3  3    res <- fastlm(dat$x, dat$y)       * Passed    Y    FALSE
< 4  4                            res         Passed    Y    FALSE
< 5  5                 get_slope(res)         Passed    Y    FALSE
---
> 1  1 library(utzflm, lib.loc = g...       * Failed    N    FALSE
> 2  2 dat <- data.frame(x = 1:100...       * Failed    N    FALSE
> 3  3    res <- fastlm(dat$x, dat$y)       * Failed    N    FALSE
> 4  4                            res         Failed    N     TRUE
> 5  5                 get_slope(res)         Failed    N     TRUE
313c311,352
< | 4/4 tests passed; nothing to review.
---
> +------------------------------------------------------------------------------+
> | unitizer for: unitizer/fastlm1.R                                             |
> +------------------------------------------------------------------------------+
> 
>              Pass Fail
>  <untitled>     2    2
> ......................
>                 2    2
> 
> - Failed -----------------------------------------------------------------------
> 
> | The 2 tests in this section failed because the new evaluations do not match 
> | the reference values from the store. Overwrite with new results ([Y]es, [N]o, 
> | [P]rev, [B]rowse, [R]erun, [Q]uit, [H]elp)?
> 
> > library(utzflm, lib.loc = getOption("unitizer.tmp.lib.loc"))
> > dat <- data.frame(x = 1:100, y = (1:100)^2)
> > res <- fastlm(dat$x, dat$y)
> 
> # Our fast computations do not produce the same results as our
> # original tests so they fail.  If you need more detail than the
> # provided diff you may use `.new`/`.NEW` or `.ref`/`.REF`.
> #
> # You should reject these tests by typing 'N' at the prompt since
> # they are incorrect.
> 
> > res
> intercept     slope       rsq 
> -3.54e+13  7.01e+11  9.39e-01 
> attr(,"class")
> [1] "fastlm"
> 
> | Value mismatch: 
> 
> [1] "Mean relative difference: 1.99e+10"
> 
> | State mismatch; see `.NEW$state` and `.REF$state`.
> 
> unitizer> Q
> 
> | No changes recorded.
> | unitizer unchanged.
319c358,404
< | 4/4 tests passed; nothing to review.
---
> +------------------------------------------------------------------------------+
> | unitizer for: unitizer/fastlm1.R                                             |
> +------------------------------------------------------------------------------+
> 
>              Pass Fail
>  <untitled>     2    2
> ......................
>                 2    2
> 
> - Failed -----------------------------------------------------------------------
> 
> | The 2 tests in this section failed because the new evaluations do not match 
> | the reference values from the store. Overwrite with new results ([Y]es, [N]o, 
> | [P]rev, [B]rowse, [R]erun, [Q]uit, [H]elp)?
> 
> > library(utzflm, lib.loc = getOption("unitizer.tmp.lib.loc"))
> > dat <- data.frame(x = 1:100, y = (1:100)^2)
> > res <- fastlm(dat$x, dat$y)
> 
> # Our fast computations do not produce the same results as our
> # original tests so they fail.  If you need more detail than the
> # provided diff you may use `.new`/`.NEW` or `.ref`/`.REF`.
> #
> # You should reject these tests by typing 'N' at the prompt since
> # they are incorrect.
> 
> > res
> intercept     slope       rsq 
> -3.54e+13  7.01e+11  9.39e-01 
> attr(,"class")
> [1] "fastlm"
> 
> | Value mismatch: 
> 
> [1] "Mean relative difference: 1.99e+10"
> 
> | State mismatch; see `.NEW$state` and `.REF$state`.
> 
> unitizer> .DIFF$state
> | State mismatch:
> 
> Attributes: < Component "search.path": 1 string mismatch >
> 
> unitizer> Q
> 
> | No changes recorded.
> | unitizer unchanged.
328c413,454
< | 4/4 tests passed; nothing to review.
---
> +------------------------------------------------------------------------------+
> | unitizer for: unitizer/fastlm1.R                                             |
> +------------------------------------------------------------------------------+
> 
>              Pass Fail
>  <untitled>     2    2
> ......................
>                 2    2
> 
> - Failed -----------------------------------------------------------------------
> 
> | The 2 tests in this section failed because the new evaluations do not match 
> | the reference values from the store. Overwrite with new results ([Y]es, [N]o, 
> | [P]rev, [B]rowse, [R]erun, [Q]uit, [H]elp)?
> 
> > library(utzflm, lib.loc = getOption("unitizer.tmp.lib.loc"))
> > dat <- data.frame(x = 1:100, y = (1:100)^2)
> > res <- fastlm(dat$x, dat$y)
> 
> # Our fast computations do not produce the same results as our
> # original tests so they fail.  If you need more detail than the
> # provided diff you may use `.new`/`.NEW` or `.ref`/`.REF`.
> #
> # You should reject these tests by typing 'N' at the prompt since
> # they are incorrect.
> 
> > res
> intercept     slope       rsq 
> -3.54e+13  7.01e+11  9.39e-01 
> attr(,"class")
> [1] "fastlm"
> 
> Error in diffObj(curr.err@.ref, curr.err@.new, tar.banner = make_cont(".ref"),  : 
>   A failing diff.
> | Value: <diff failed>
> 
> | State mismatch; see `.DIFF$state` for details.
> 
> unitizer> Q
> 
> | No changes recorded.
> | unitizer unchanged.
339c465,544
< | 4/4 tests passed; nothing to review.
---
> +------------------------------------------------------------------------------+
> | unitizer for: unitizer/fastlm1.R                                             |
> +------------------------------------------------------------------------------+
> 
>              Pass Fail
>  <untitled>     2    2
> ......................
>                 2    2
> 
> - Failed -----------------------------------------------------------------------
> 
> | The 2 tests in this section failed because the new evaluations do not match 
> | the reference values from the store. Overwrite with new results ([Y]es, [N]o, 
> | [P]rev, [B]rowse, [R]erun, [Q]uit, [H]elp)?
> 
> > library(utzflm, lib.loc = getOption("unitizer.tmp.lib.loc"))
> > dat <- data.frame(x = 1:100, y = (1:100)^2)
> > res <- fastlm(dat$x, dat$y)
> 
> # Our fast computations do not produce the same results as our
> # original tests so they fail.  If you need more detail than the
> # provided diff you may use `.new`/`.NEW` or `.ref`/`.REF`.
> #
> # You should reject these tests by typing 'N' at the prompt since
> # they are incorrect.
> 
> > res
> intercept     slope       rsq 
> -3.54e+13  7.01e+11  9.39e-01 
> attr(,"class")
> [1] "fastlm"
> 
> | Value mismatch: 
> 
> < .ref                            > .new                          
> @@ 1,4 @@                         @@ 1,4 @@                       
>   intercept     slope       rsq     intercept     slope       rsq 
> < -1717.000   101.000     0.939   > -3.54e+13  7.01e+11  9.39e-01 
>   attr(,"class")                    attr(,"class")                
>   [1] "fastlm"                      [1] "fastlm"                  
> 
> | State mismatch; see `.DIFF$state` for details.
> 
> unitizer> YY
> 
>   4. res .  .  .  .  .  Failed:-
>   5. get_slope(res)  .  Failed:-
> 
> Choose 'Y' for the 2 tests shown above ([Y]es, [N]o)?
> unitizer> N
> 
> 
> # Our fast computations do not produce the same results as our
> # original tests so they fail.  If you need more detail than the
> # provided diff you may use `.new`/`.NEW` or `.ref`/`.REF`.
> #
> # You should reject these tests by typing 'N' at the prompt since
> # they are incorrect.
> 
> > res
> intercept     slope       rsq 
> -3.54e+13  7.01e+11  9.39e-01 
> attr(,"class")
> [1] "fastlm"
> 
> | Value mismatch: 
> 
> < .ref                            > .new                          
> @@ 1,4 @@                         @@ 1,4 @@                       
>   intercept     slope       rsq     intercept     slope       rsq 
> < -1717.000   101.000     0.939   > -3.54e+13  7.01e+11  9.39e-01 
>   attr(,"class")                    attr(,"class")                
>   [1] "fastlm"                      [1] "fastlm"                  
> 
> | State mismatch; see `.DIFF$state` for details.
> 
> unitizer> Q
> 
> | No changes recorded.
> | unitizer unchanged.
348c553,637
< | 4/4 tests passed; nothing to review.
---
> +------------------------------------------------------------------------------+
> | unitizer for: unitizer/fastlm1.R                                             |
> +------------------------------------------------------------------------------+
> 
>              Pass Fail
>  <untitled>     2    2
> ......................
>                 2    2
> 
> - Failed -----------------------------------------------------------------------
> 
> | The 2 tests in this section failed because the new evaluations do not match 
> | the reference values from the store. Overwrite with new results ([Y]es, [N]o, 
> | [P]rev, [B]rowse, [R]erun, [Q]uit, [H]elp)?
> 
> > library(utzflm, lib.loc = getOption("unitizer.tmp.lib.loc"))
> > dat <- data.frame(x = 1:100, y = (1:100)^2)
> > res <- fastlm(dat$x, dat$y)
> 
> # Our fast computations do not produce the same results as our
> # original tests so they fail.  If you need more detail than the
> # provided diff you may use `.new`/`.NEW` or `.ref`/`.REF`.
> #
> # You should reject these tests by typing 'N' at the prompt since
> # they are incorrect.
> 
> > res
> intercept     slope       rsq 
> -3.54e+13  7.01e+11  9.39e-01 
> attr(,"class")
> [1] "fastlm"
> 
> | Value mismatch: 
> 
> < .ref                            > .new                          
> @@ 1,4 @@                         @@ 1,4 @@                       
>   intercept     slope       rsq     intercept     slope       rsq 
> < -1717.000   101.000     0.939   > -3.54e+13  7.01e+11  9.39e-01 
>   attr(,"class")                    attr(,"class")                
>   [1] "fastlm"                      [1] "fastlm"                  
> 
> | State mismatch; see `.DIFF$state` for details.
> 
> unitizer> YY
> 
>   4. res .  .  .  .  .  Failed:-
>   5. get_slope(res)  .  Failed:-
> 
> Choose 'Y' for the 2 tests shown above ([Y]es, [N]o)?
> unitizer> Y
> 
> = Finalize Unitizer ============================================================
> 
> | You will IRREVERSIBLY modify 'unitizer/fastlm1.unitizer' by:
> | - Replacing 2 out of 2 failed tests
> 
> | Update unitizer ([Y]es, [N]o, [P]rev, [B]rowse, [R]erun)?
> 
> unitizer> B
> 
>   *1. library(utzflm, lib.loc = getOption("unitizer.tmp.lib.loc")) .        -:-
>   *2. dat <- data.frame(x = 1:100, y = (1:100)^2)   .  .  .  .  .  .        -:-
>   *3. res <- fastlm(dat$x, dat$y) .  .  .  .  .  .  .  .  .  .  .  .        -:-
>    4. res .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Failed:Y
>    5. get_slope(res)  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Failed:Y
>    6. get_rsq(res) .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .   Passed:-
>    7. fastlm(1:100, 1:10)   .  .  .  .  .  .  .  .  .  .  .  .  .  .   Passed:-
> 
> | What test do you wish to review (input a test number, [U]nreviewed)?
> 
> unitizer> U
> 
> | No unreviewed tests.
> 
> = Finalize Unitizer ============================================================
> 
> | You will IRREVERSIBLY modify 'unitizer/fastlm1.unitizer' by:
> | - Replacing 2 out of 2 failed tests
> 
> | Update unitizer ([Y]es, [N]o, [P]rev, [B]rowse, [R]erun)?
> 
> unitizer> Q
> 
> | Changes discarded.
> | unitizer unchanged.
359c648
< [1] FALSE
---
> [1] TRUE
367c656,725
< | 4/4 tests passed; nothing to review.
---
> +------------------------------------------------------------------------------+
> | unitizer for: unitizer/fastlm1.R                                             |
> +------------------------------------------------------------------------------+
> 
>              Pass Fail
>  <untitled>     2    2
> ......................
>                 2    2
> 
> - Failed -----------------------------------------------------------------------
> 
> | The 2 tests in this section failed because the new evaluations do not match 
> | the reference values from the store. Overwrite with new results ([Y]es, [N]o, 
> | [P]rev, [B]rowse, [R]erun, [Q]uit, [H]elp)?
> 
> > library(utzflm, lib.loc = getOption("unitizer.tmp.lib.loc"))
> > dat <- data.frame(x = 1:100, y = (1:100)^2)
> > res <- fastlm(dat$x, dat$y)
> 
> # Our fast computations do not produce the same results as our
> # original tests so they fail.  If you need more detail than the
> # provided diff you may use `.new`/`.NEW` or `.ref`/`.REF`.
> #
> # You should reject these tests by typing 'N' at the prompt since
> # they are incorrect.
> 
> > res
> intercept     slope       rsq 
> -3.54e+13  7.01e+11  9.39e-01 
> attr(,"class")
> [1] "fastlm"
> 
> | Value mismatch: 
> 
> < .ref                            > .new                          
> @@ 1,4 @@                         @@ 1,4 @@                       
>   intercept     slope       rsq     intercept     slope       rsq 
> < -1717.000   101.000     0.939   > -3.54e+13  7.01e+11  9.39e-01 
>   attr(,"class")                    attr(,"class")                
>   [1] "fastlm"                      [1] "fastlm"                  
> 
> | State mismatch; see `.DIFF$state` for details.
> 
> unitizer> Y
> 
> # This one is also incorrect; reject with 'N'
> 
> > get_slope(res)
> [1] 7.01e+11
> 
> | Value mismatch: 
> 
> < .ref          > .new        
> @@ 1 @@         @@ 1 @@       
> < [1] 101       > [1] 7.01e+11
> 
> | State mismatch; see `.DIFF$state` for details.
> 
> unitizer> Y
> 
> = Finalize Unitizer ============================================================
> 
> | You will IRREVERSIBLY modify 'unitizer/fastlm1.unitizer' by:
> | - Replacing 2 out of 2 failed tests
> 
> | Update unitizer ([Y]es, [N]o, [P]rev, [B]rowse, [R]erun)?
> 
> unitizer> Y
> 
> | unitizer updated.
  Running ‘t-error.R’ [1s/1s]
  Comparing ‘t-error.Rout’ to ‘t-error.Rout.save’ ... OK
  Running ‘t-exec.R’ [1s/1s]
  Comparing ‘t-exec.Rout’ to ‘t-exec.Rout.save’ ... OK
  Running ‘t-get.R’ [2s/2s]
  Comparing ‘t-get.Rout’ to ‘t-get.Rout.save’ ... OK
  Running ‘t-global.R’ [1s/1s]
  Comparing ‘t-global.Rout’ to ‘t-global.Rout.save’ ... OK
  Running ‘t-handledruns.R’ [2s/2s]
  Comparing ‘t-handledruns.Rout’ to ‘t-handledruns.Rout.save’ ... OK
  Running ‘t-ischecks.R’ [1s/1s]
  Comparing ‘t-ischecks.Rout’ to ‘t-ischecks.Rout.save’ ... OK
  Running ‘t-item.R’ [2s/2s]
  Comparing ‘t-item.Rout’ to ‘t-item.Rout.save’ ... OK
  Running ‘t-list.R’ [1s/1s]
  Comparing ‘t-list.Rout’ to ‘t-list.Rout.save’ ... OK
  Running ‘t-misc.R’ [1s/1s]
  Comparing ‘t-misc.Rout’ to ‘t-misc.Rout.save’ ... OK
  Running ‘t-nav.R’ [2s/3s]
  Comparing ‘t-nav.Rout’ to ‘t-nav.Rout.save’ ... OK
  Running ‘t-parse.R’ [1s/1s]
  Comparing ‘t-parse.Rout’ to ‘t-parse.Rout.save’ ... OK
  Running ‘t-prompt.R’ [1s/1s]
  Comparing ‘t-prompt.Rout’ to ‘t-prompt.Rout.save’ ... OK
  Running ‘t-random.R’ [1s/2s]
  Comparing ‘t-random.Rout’ to ‘t-random.Rout.save’ ... OK
  Running ‘t-rename.R’ [1s/1s]
  Comparing ‘t-rename.Rout’ to ‘t-rename.Rout.save’ ... OK
  Running ‘t-repairenvs.R’ [1s/1s]
  Comparing ‘t-repairenvs.Rout’ to ‘t-repairenvs.Rout.save’ ... OK
  Running ‘t-search.R’ [5s/8s]
  Comparing ‘t-search.Rout’ to ‘t-search.Rout.save’ ... OK
  Running ‘t-section.R’ [1s/1s]
  Comparing ‘t-section.Rout’ to ‘t-section.Rout.save’ ... OK
  Running ‘t-shim.R’ [5s/7s]
  Comparing ‘t-shim.Rout’ to ‘t-shim.Rout.save’ ... OK
  Running ‘t-state.R’ [1s/1s]
  Comparing ‘t-state.Rout’ to ‘t-state.Rout.save’ ... OK
  Running ‘t-text.R’ [1s/1s]
  Comparing ‘t-text.Rout’ to ‘t-text.Rout.save’ ... OK
  Running ‘t-translate.R’ [2s/3s]
  Comparing ‘t-translate.Rout’ to ‘t-translate.Rout.save’ ... OK
  Running ‘t-upgrade.R’ [3s/4s]
  Comparing ‘t-upgrade.Rout’ to ‘t-upgrade.Rout.save’ ... OK
  Running ‘t-utz1.R’ [25s/37s]
  Comparing ‘t-utz1.Rout’ to ‘t-utz1.Rout.save’ ... OK
  Running ‘t-utz2.R’ [12s/17s]
  Comparing ‘t-utz2.Rout’ to ‘t-utz2.Rout.save’ ... OK
  Running ‘zz-check.R’ [1s/1s]
Running the tests in ‘tests/zz-check.R’ failed.
Complete output:
  > source('aammrtf/check.R')
  43: > lorem1 <- "Today, with Kiernan on the stand offering confirmation, Howard walked the jury through the enormous amount of data pulled from Ulbricht's computer. Defense lawyers haven't had a chance yet to respond to this evidence<e2><80><94>that will likely come tomorrow. The mountain they have to climb looks higher than ever, though. Last week, Ulbricht's lawyer outlined a defense in which Ulbricht walked away from the marketplace he created and was \"lured back.\" But what will explain the dozens of folders of data on this laptop, with data from the upper echelons of Silk Road management<e2><80><94>mixed with the most intimate details of Ulbricht's personal life?"
  
  
  
  
  
  
  
  
  
  
  
  
  
  Error: Test output differences:
  't-demo.Rout'
  In addition: Warning message:
  In eval(ei, envir) : Some outputs contain non-ASCII:
  't-text.Rout'
  Execution halted