R/MOD2VEC.R

`MOD2VEC` <-
function(MOD)
  {
    VEC = NULL
    for(i in 1:length(MOD$MOD))
      {
        VEC = c(VEC, as.vector(MOD$MOD[[i]]))
      }

    attr(VEC, 'x') = MOD$x
    attr(VEC, 'y') = MOD$y
    attr(VEC, 'D') = MOD$D

    invisible(VEC)
  }

Try the RTOMO package in your browser

Any scripts or data that you put into this service are public.

RTOMO documentation built on Jan. 20, 2018, 9:54 a.m.