Access an environment using reference id 0x00000000












1















I have a model object which shows larger size in hard disk than in R. After some searching, I managed to get the problem cause as shown below



format(object.size(JMFit1$model_info$coxph_components$TermsU), units='Mb')
[1] "0 Mb"
pryr::object_size(JMFit1$model_info$coxph_components$TermsU)
28.5 MB


However JMFit1$model_info$coxph_components$TermsU returns



>JMFit1$model_info$coxph_components$TermsU
...
attr(,".Environment")
<environment: 0x0000000025035540>
...


So, is there any way to access this environment using the reference id i.e. "0x0000000025035540" and then apply ls for example to explore it.



Here are the questions I try Q1 and Q2, but without success. Also, I have tried ls(envir=attr(lm.fit.full$terms, ".Environment")) from this blog but it through the following error




Error in ls(envir = attr(JMFit1$model_info$coxph_components$TermsU, ".Environment")) :
invalid 'envir' argument




The full model:



library(JMbayes)
MixedModelFit1 <- mvglmer(list(log(serBilir) ~ year + (year | id)), data = pbc2, families = list(gaussian))
pbc2.id$Time <- pbc2.id$years
pbc2.id$event <- as.numeric(pbc2.id$status != "alive")
CoxFit <- coxph(Surv(Time, event) ~ drug + age, data = pbc2.id, model = TRUE)
JMFit1 <- mvJointModelBayes(MixedModelFit1, CoxFit, timeVar = "year")


Many thanks in advance for any suggestion or help.










share|improve this question



























    1















    I have a model object which shows larger size in hard disk than in R. After some searching, I managed to get the problem cause as shown below



    format(object.size(JMFit1$model_info$coxph_components$TermsU), units='Mb')
    [1] "0 Mb"
    pryr::object_size(JMFit1$model_info$coxph_components$TermsU)
    28.5 MB


    However JMFit1$model_info$coxph_components$TermsU returns



    >JMFit1$model_info$coxph_components$TermsU
    ...
    attr(,".Environment")
    <environment: 0x0000000025035540>
    ...


    So, is there any way to access this environment using the reference id i.e. "0x0000000025035540" and then apply ls for example to explore it.



    Here are the questions I try Q1 and Q2, but without success. Also, I have tried ls(envir=attr(lm.fit.full$terms, ".Environment")) from this blog but it through the following error




    Error in ls(envir = attr(JMFit1$model_info$coxph_components$TermsU, ".Environment")) :
    invalid 'envir' argument




    The full model:



    library(JMbayes)
    MixedModelFit1 <- mvglmer(list(log(serBilir) ~ year + (year | id)), data = pbc2, families = list(gaussian))
    pbc2.id$Time <- pbc2.id$years
    pbc2.id$event <- as.numeric(pbc2.id$status != "alive")
    CoxFit <- coxph(Surv(Time, event) ~ drug + age, data = pbc2.id, model = TRUE)
    JMFit1 <- mvJointModelBayes(MixedModelFit1, CoxFit, timeVar = "year")


    Many thanks in advance for any suggestion or help.










    share|improve this question

























      1












      1








      1








      I have a model object which shows larger size in hard disk than in R. After some searching, I managed to get the problem cause as shown below



      format(object.size(JMFit1$model_info$coxph_components$TermsU), units='Mb')
      [1] "0 Mb"
      pryr::object_size(JMFit1$model_info$coxph_components$TermsU)
      28.5 MB


      However JMFit1$model_info$coxph_components$TermsU returns



      >JMFit1$model_info$coxph_components$TermsU
      ...
      attr(,".Environment")
      <environment: 0x0000000025035540>
      ...


      So, is there any way to access this environment using the reference id i.e. "0x0000000025035540" and then apply ls for example to explore it.



      Here are the questions I try Q1 and Q2, but without success. Also, I have tried ls(envir=attr(lm.fit.full$terms, ".Environment")) from this blog but it through the following error




      Error in ls(envir = attr(JMFit1$model_info$coxph_components$TermsU, ".Environment")) :
      invalid 'envir' argument




      The full model:



      library(JMbayes)
      MixedModelFit1 <- mvglmer(list(log(serBilir) ~ year + (year | id)), data = pbc2, families = list(gaussian))
      pbc2.id$Time <- pbc2.id$years
      pbc2.id$event <- as.numeric(pbc2.id$status != "alive")
      CoxFit <- coxph(Surv(Time, event) ~ drug + age, data = pbc2.id, model = TRUE)
      JMFit1 <- mvJointModelBayes(MixedModelFit1, CoxFit, timeVar = "year")


      Many thanks in advance for any suggestion or help.










      share|improve this question














      I have a model object which shows larger size in hard disk than in R. After some searching, I managed to get the problem cause as shown below



      format(object.size(JMFit1$model_info$coxph_components$TermsU), units='Mb')
      [1] "0 Mb"
      pryr::object_size(JMFit1$model_info$coxph_components$TermsU)
      28.5 MB


      However JMFit1$model_info$coxph_components$TermsU returns



      >JMFit1$model_info$coxph_components$TermsU
      ...
      attr(,".Environment")
      <environment: 0x0000000025035540>
      ...


      So, is there any way to access this environment using the reference id i.e. "0x0000000025035540" and then apply ls for example to explore it.



      Here are the questions I try Q1 and Q2, but without success. Also, I have tried ls(envir=attr(lm.fit.full$terms, ".Environment")) from this blog but it through the following error




      Error in ls(envir = attr(JMFit1$model_info$coxph_components$TermsU, ".Environment")) :
      invalid 'envir' argument




      The full model:



      library(JMbayes)
      MixedModelFit1 <- mvglmer(list(log(serBilir) ~ year + (year | id)), data = pbc2, families = list(gaussian))
      pbc2.id$Time <- pbc2.id$years
      pbc2.id$event <- as.numeric(pbc2.id$status != "alive")
      CoxFit <- coxph(Surv(Time, event) ~ drug + age, data = pbc2.id, model = TRUE)
      JMFit1 <- mvJointModelBayes(MixedModelFit1, CoxFit, timeVar = "year")


      Many thanks in advance for any suggestion or help.







      r environment






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked Nov 22 '18 at 4:02









      A. SulimanA. Suliman

      4,70031022




      4,70031022
























          1 Answer
          1






          active

          oldest

          votes


















          0














          Here is a way, it does not use the ref id but it use the blog method correctly:



          ls(envir=attr(JMFit1$model_info$coxph_components$TermsU$`log(serBilir)_value`, ".Environment"))


          To get an object from that env we can do:



          env <- attr(JMFit1$model_info$coxph_components$TermsU$`log(serBilir)_value`, ".Environment")
          #To get Data for example
          d <- get("Data",envir=env)
          > typeof(d)
          [1] "list"
          > format(object.size(d),units='Mb')
          [1] "2.8 Mb"


          But, I'm still curious if there is a way using the ref id, especially @Spacedman said here that
          Trying to get R objects by their memory location is not going to work., but I hope maybe there is an update since 2014.






          share|improve this answer























            Your Answer






            StackExchange.ifUsing("editor", function () {
            StackExchange.using("externalEditor", function () {
            StackExchange.using("snippets", function () {
            StackExchange.snippets.init();
            });
            });
            }, "code-snippets");

            StackExchange.ready(function() {
            var channelOptions = {
            tags: "".split(" "),
            id: "1"
            };
            initTagRenderer("".split(" "), "".split(" "), channelOptions);

            StackExchange.using("externalEditor", function() {
            // Have to fire editor after snippets, if snippets enabled
            if (StackExchange.settings.snippets.snippetsEnabled) {
            StackExchange.using("snippets", function() {
            createEditor();
            });
            }
            else {
            createEditor();
            }
            });

            function createEditor() {
            StackExchange.prepareEditor({
            heartbeatType: 'answer',
            autoActivateHeartbeat: false,
            convertImagesToLinks: true,
            noModals: true,
            showLowRepImageUploadWarning: true,
            reputationToPostImages: 10,
            bindNavPrevention: true,
            postfix: "",
            imageUploader: {
            brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
            contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
            allowUrls: true
            },
            onDemand: true,
            discardSelector: ".discard-answer"
            ,immediatelyShowMarkdownHelp:true
            });


            }
            });














            draft saved

            draft discarded


















            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53423708%2faccess-an-environment-using-reference-id-0x00000000%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown

























            1 Answer
            1






            active

            oldest

            votes








            1 Answer
            1






            active

            oldest

            votes









            active

            oldest

            votes






            active

            oldest

            votes









            0














            Here is a way, it does not use the ref id but it use the blog method correctly:



            ls(envir=attr(JMFit1$model_info$coxph_components$TermsU$`log(serBilir)_value`, ".Environment"))


            To get an object from that env we can do:



            env <- attr(JMFit1$model_info$coxph_components$TermsU$`log(serBilir)_value`, ".Environment")
            #To get Data for example
            d <- get("Data",envir=env)
            > typeof(d)
            [1] "list"
            > format(object.size(d),units='Mb')
            [1] "2.8 Mb"


            But, I'm still curious if there is a way using the ref id, especially @Spacedman said here that
            Trying to get R objects by their memory location is not going to work., but I hope maybe there is an update since 2014.






            share|improve this answer




























              0














              Here is a way, it does not use the ref id but it use the blog method correctly:



              ls(envir=attr(JMFit1$model_info$coxph_components$TermsU$`log(serBilir)_value`, ".Environment"))


              To get an object from that env we can do:



              env <- attr(JMFit1$model_info$coxph_components$TermsU$`log(serBilir)_value`, ".Environment")
              #To get Data for example
              d <- get("Data",envir=env)
              > typeof(d)
              [1] "list"
              > format(object.size(d),units='Mb')
              [1] "2.8 Mb"


              But, I'm still curious if there is a way using the ref id, especially @Spacedman said here that
              Trying to get R objects by their memory location is not going to work., but I hope maybe there is an update since 2014.






              share|improve this answer


























                0












                0








                0







                Here is a way, it does not use the ref id but it use the blog method correctly:



                ls(envir=attr(JMFit1$model_info$coxph_components$TermsU$`log(serBilir)_value`, ".Environment"))


                To get an object from that env we can do:



                env <- attr(JMFit1$model_info$coxph_components$TermsU$`log(serBilir)_value`, ".Environment")
                #To get Data for example
                d <- get("Data",envir=env)
                > typeof(d)
                [1] "list"
                > format(object.size(d),units='Mb')
                [1] "2.8 Mb"


                But, I'm still curious if there is a way using the ref id, especially @Spacedman said here that
                Trying to get R objects by their memory location is not going to work., but I hope maybe there is an update since 2014.






                share|improve this answer













                Here is a way, it does not use the ref id but it use the blog method correctly:



                ls(envir=attr(JMFit1$model_info$coxph_components$TermsU$`log(serBilir)_value`, ".Environment"))


                To get an object from that env we can do:



                env <- attr(JMFit1$model_info$coxph_components$TermsU$`log(serBilir)_value`, ".Environment")
                #To get Data for example
                d <- get("Data",envir=env)
                > typeof(d)
                [1] "list"
                > format(object.size(d),units='Mb')
                [1] "2.8 Mb"


                But, I'm still curious if there is a way using the ref id, especially @Spacedman said here that
                Trying to get R objects by their memory location is not going to work., but I hope maybe there is an update since 2014.







                share|improve this answer












                share|improve this answer



                share|improve this answer










                answered Nov 22 '18 at 6:14









                A. SulimanA. Suliman

                4,70031022




                4,70031022






























                    draft saved

                    draft discarded




















































                    Thanks for contributing an answer to Stack Overflow!


                    • Please be sure to answer the question. Provide details and share your research!

                    But avoid



                    • Asking for help, clarification, or responding to other answers.

                    • Making statements based on opinion; back them up with references or personal experience.


                    To learn more, see our tips on writing great answers.




                    draft saved


                    draft discarded














                    StackExchange.ready(
                    function () {
                    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53423708%2faccess-an-environment-using-reference-id-0x00000000%23new-answer', 'question_page');
                    }
                    );

                    Post as a guest















                    Required, but never shown





















































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown

































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown







                    Popular posts from this blog

                    Wiesbaden

                    Marschland

                    Dieringhausen