> On Dec 16, 2015, at 7:45 AM, Glenn Schultz <glennmschu...@me.com> wrote:
>
> Hello All,
>
> I would like to be able to convert and S4 class to an array but I seem to be
> stuck. Reading the documentation I think I need to use setAs() and then as()
> Below is a minimal example but I cannot get it to work. So I am doing
> something wrong but I don't know what it is.
>
> Any insights/help are appreciated,
> - Glenn
>
> setClass("AnObject", representation(
> dataone = "numeric",
> datatwo = "numeric"))
>
> FillObject <- function(){
> one <- rep(10, 20)
> two <- rep(10,20)
>
> new("AnObject",
> dataone = one,
> datatwo = two)
> }
>
> MyObject <- FillObject()
>
> setAs(from = "AnObject" , to = "array", def = function(from) from(AnObject))
Just imitating the example on the ?setAs page I get no error with:
setAs("AnObject" ,"array", def = function(from,to)
cbind(from@dataone,from@datatwo) )
NewObject <- as(MyObject, "array")
--
David Winsemius
Alameda, CA, USA
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
