R devel - Sep 2003 - dump/source problem with hclust object (PR#4361)

library(mva)
    data(USArrests)
    hc <- hclust(dist(USArrests), "ave")

    plot(hc)              # OK

    dump(c("hc"), "tst")
    rm(hc)
    source("tst")

    plot(hc)              # Error in plot.hclust(hc) : invalid dendrogram input


The same problem occurs with dput/dget




--please do not edit the information below--

Version:
 platform = i686-pc-linux-gnu
 arch = i686
 os = linux-gnu
 system = i686, linux-gnu
 status  major = 1
 minor = 7.1
 year = 2003
 month = 06
 day = 16
 language = R

Search Path:
 .GlobalEnv, package:methods, package:ctest, package:mva,
package:modreg, package:nls, package:ts, Autoloads, package:base

?dump says:

Details:

     At present the implementation of `dump' is very incomplete and it
     really only works for functions and simple vectors.

     [...]

     The function `save' is designed to be used for transporting R data
     between machines.

So I guess, technically, this is not a bug, nor is your other example.  (An
"hclust" object is hardly a simple vector.)

Andy

> -----Original Message-----
> From: kleiweg@let.rug.nl [mailto:kleiweg@let.rug.nl] 
> Sent: Tuesday, September 30, 2003 1:29 PM
> To: r-devel@stat.math.ethz.ch
> Cc: R-bugs@biostat.ku.dk
> Subject: [Rd] dump/source problem with hclust object (PR#4361)
> 
> 
> 
> 
>     library(mva)
>     data(USArrests)
>     hc <- hclust(dist(USArrests), "ave")
> 
>     plot(hc)              # OK
> 
>     dump(c("hc"), "tst")
>     rm(hc)
>     source("tst")
> 
>     plot(hc)              # Error in plot.hclust(hc) : 
> invalid dendrogram input
> 
> 
> The same problem occurs with dput/dget
> 
> 
> 
> 
> --please do not edit the information below--
> 
> Version:
>  platform = i686-pc-linux-gnu
>  arch = i686
>  os = linux-gnu
>  system = i686, linux-gnu
>  status >  major = 1
>  minor = 7.1
>  year = 2003
>  month = 06
>  day = 16
>  language = R
> 
> Search Path:
>  .GlobalEnv, package:methods, package:ctest, package:mva, 
> package:modreg, package:nls, package:ts, Autoloads, package:base
> 
> ______________________________________________
> R-devel@stat.math.ethz.ch mailing list 
> https://www.stat.math.ethz.ch/mailman/listinfo> /r-devel
>

For the record, this is due to a storage mode problem: the merge component
gets restored as double.  I've modified plot.hclust to detect that.

On Tue, 30 Sep 2003 kleiweg@let.rug.nl wrote:
> 
> 
>     library(mva)
>     data(USArrests)
>     hc <- hclust(dist(USArrests), "ave")
> 
>     plot(hc)              # OK
> 
>     dump(c("hc"), "tst")
>     rm(hc)
>     source("tst")
> 
>     plot(hc)              # Error in plot.hclust(hc) : invalid dendrogram
input
> 
> 
> The same problem occurs with dput/dget
> 
> 
> 
> 
> --please do not edit the information below--
> 
> Version:
>  platform = i686-pc-linux-gnu
>  arch = i686
>  os = linux-gnu
>  system = i686, linux-gnu
>  status >  major = 1
>  minor = 7.1
>  year = 2003
>  month = 06
>  day = 16
>  language = R
> 
> Search Path:
>  .GlobalEnv, package:methods, package:ctest, package:mva,
> package:modreg, package:nls, package:ts, Autoloads, package:base
> 
> ______________________________________________
> R-devel@stat.math.ethz.ch mailing list
> https://www.stat.math.ethz.ch/mailman/listinfo/r-devel
> 
> 
-- 
Brian D. Ripley,                  ripley@stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272866 (PA)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595