R cca and predict.cca in Vegan











up vote
0
down vote

favorite












I have a species table count (data) which consists on species discrete counts (columns) per sample (row). The samples are divided in 2 categories: control and stress which are represented in a design file by a single column: Condition.
My idea: remove 10 samples (test), do a CCA on the (data - 10 samples) (train) and use the CCA to predict the coordinates of the 10 samples.




train.cca <- cca(train ~ Condition, data=design)




Here are the results:




Eigenvalues for constrained axes:
CCA1
0.078



123 unconstrained eigenvalues (CA1...CA123)




I can represent the cca object with plot(train.cca):
enter image description here



Colours: blue(control) and red(stress).



The axes are built on CCA1 coordinates and the first unconstrained eigenvalue (CA1).
Next, I tried to predict the test data (the 10 samples):




predict(object=train.cca, model="CCA", type="wa", newdata=test)




this function gives me a set of 10 CCA1 coordinates:




CCA1
0.92
0.25
0.13
0.41
1.49
0.18
0.99
1.44
2.03
0.17




My question is: how can I place these on the plot? All vegan examples (?predict.cca) have several CCA coordinates, so I am stuck with this 1-dimensional output that I can't represent in the plot (I miss the 10 CA1 coordinates). Am I doing the right thing?










share|improve this question




























    up vote
    0
    down vote

    favorite












    I have a species table count (data) which consists on species discrete counts (columns) per sample (row). The samples are divided in 2 categories: control and stress which are represented in a design file by a single column: Condition.
    My idea: remove 10 samples (test), do a CCA on the (data - 10 samples) (train) and use the CCA to predict the coordinates of the 10 samples.




    train.cca <- cca(train ~ Condition, data=design)




    Here are the results:




    Eigenvalues for constrained axes:
    CCA1
    0.078



    123 unconstrained eigenvalues (CA1...CA123)




    I can represent the cca object with plot(train.cca):
    enter image description here



    Colours: blue(control) and red(stress).



    The axes are built on CCA1 coordinates and the first unconstrained eigenvalue (CA1).
    Next, I tried to predict the test data (the 10 samples):




    predict(object=train.cca, model="CCA", type="wa", newdata=test)




    this function gives me a set of 10 CCA1 coordinates:




    CCA1
    0.92
    0.25
    0.13
    0.41
    1.49
    0.18
    0.99
    1.44
    2.03
    0.17




    My question is: how can I place these on the plot? All vegan examples (?predict.cca) have several CCA coordinates, so I am stuck with this 1-dimensional output that I can't represent in the plot (I miss the 10 CA1 coordinates). Am I doing the right thing?










    share|improve this question


























      up vote
      0
      down vote

      favorite









      up vote
      0
      down vote

      favorite











      I have a species table count (data) which consists on species discrete counts (columns) per sample (row). The samples are divided in 2 categories: control and stress which are represented in a design file by a single column: Condition.
      My idea: remove 10 samples (test), do a CCA on the (data - 10 samples) (train) and use the CCA to predict the coordinates of the 10 samples.




      train.cca <- cca(train ~ Condition, data=design)




      Here are the results:




      Eigenvalues for constrained axes:
      CCA1
      0.078



      123 unconstrained eigenvalues (CA1...CA123)




      I can represent the cca object with plot(train.cca):
      enter image description here



      Colours: blue(control) and red(stress).



      The axes are built on CCA1 coordinates and the first unconstrained eigenvalue (CA1).
      Next, I tried to predict the test data (the 10 samples):




      predict(object=train.cca, model="CCA", type="wa", newdata=test)




      this function gives me a set of 10 CCA1 coordinates:




      CCA1
      0.92
      0.25
      0.13
      0.41
      1.49
      0.18
      0.99
      1.44
      2.03
      0.17




      My question is: how can I place these on the plot? All vegan examples (?predict.cca) have several CCA coordinates, so I am stuck with this 1-dimensional output that I can't represent in the plot (I miss the 10 CA1 coordinates). Am I doing the right thing?










      share|improve this question















      I have a species table count (data) which consists on species discrete counts (columns) per sample (row). The samples are divided in 2 categories: control and stress which are represented in a design file by a single column: Condition.
      My idea: remove 10 samples (test), do a CCA on the (data - 10 samples) (train) and use the CCA to predict the coordinates of the 10 samples.




      train.cca <- cca(train ~ Condition, data=design)




      Here are the results:




      Eigenvalues for constrained axes:
      CCA1
      0.078



      123 unconstrained eigenvalues (CA1...CA123)




      I can represent the cca object with plot(train.cca):
      enter image description here



      Colours: blue(control) and red(stress).



      The axes are built on CCA1 coordinates and the first unconstrained eigenvalue (CA1).
      Next, I tried to predict the test data (the 10 samples):




      predict(object=train.cca, model="CCA", type="wa", newdata=test)




      this function gives me a set of 10 CCA1 coordinates:




      CCA1
      0.92
      0.25
      0.13
      0.41
      1.49
      0.18
      0.99
      1.44
      2.03
      0.17




      My question is: how can I place these on the plot? All vegan examples (?predict.cca) have several CCA coordinates, so I am stuck with this 1-dimensional output that I can't represent in the plot (I miss the 10 CA1 coordinates). Am I doing the right thing?







      r prediction vegan






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited Nov 15 at 19:16

























      asked Nov 14 at 22:51









      Sara

      353414




      353414
























          1 Answer
          1






          active

          oldest

          votes

















          up vote
          1
          down vote



          accepted










          It is true, that vegan only returns scores for one component ("CCA" or "CA") in predict. So you have to get the components separately and combine them with cbind() if you want to have results from several components, like in this case when the CCA component has only one axis:



          ax1 <- predict(object=train.cca, model="CCA", type="wa", newdata=test)
          ax2 <- predict(object=train.cca, model="CA", rank=1, type="wa", newdata=test)
          ax12 <- cbind(ax1,ax2)
          points(ax12) # to add points to an existing grapch





          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',
            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%2f53309915%2fr-cca-and-predict-cca-in-vegan%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








            up vote
            1
            down vote



            accepted










            It is true, that vegan only returns scores for one component ("CCA" or "CA") in predict. So you have to get the components separately and combine them with cbind() if you want to have results from several components, like in this case when the CCA component has only one axis:



            ax1 <- predict(object=train.cca, model="CCA", type="wa", newdata=test)
            ax2 <- predict(object=train.cca, model="CA", rank=1, type="wa", newdata=test)
            ax12 <- cbind(ax1,ax2)
            points(ax12) # to add points to an existing grapch





            share|improve this answer

























              up vote
              1
              down vote



              accepted










              It is true, that vegan only returns scores for one component ("CCA" or "CA") in predict. So you have to get the components separately and combine them with cbind() if you want to have results from several components, like in this case when the CCA component has only one axis:



              ax1 <- predict(object=train.cca, model="CCA", type="wa", newdata=test)
              ax2 <- predict(object=train.cca, model="CA", rank=1, type="wa", newdata=test)
              ax12 <- cbind(ax1,ax2)
              points(ax12) # to add points to an existing grapch





              share|improve this answer























                up vote
                1
                down vote



                accepted







                up vote
                1
                down vote



                accepted






                It is true, that vegan only returns scores for one component ("CCA" or "CA") in predict. So you have to get the components separately and combine them with cbind() if you want to have results from several components, like in this case when the CCA component has only one axis:



                ax1 <- predict(object=train.cca, model="CCA", type="wa", newdata=test)
                ax2 <- predict(object=train.cca, model="CA", rank=1, type="wa", newdata=test)
                ax12 <- cbind(ax1,ax2)
                points(ax12) # to add points to an existing grapch





                share|improve this answer












                It is true, that vegan only returns scores for one component ("CCA" or "CA") in predict. So you have to get the components separately and combine them with cbind() if you want to have results from several components, like in this case when the CCA component has only one axis:



                ax1 <- predict(object=train.cca, model="CCA", type="wa", newdata=test)
                ax2 <- predict(object=train.cca, model="CA", rank=1, type="wa", newdata=test)
                ax12 <- cbind(ax1,ax2)
                points(ax12) # to add points to an existing grapch






                share|improve this answer












                share|improve this answer



                share|improve this answer










                answered Nov 19 at 8:52









                Jari Oksanen

                1,608611




                1,608611






























                    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.





                    Some of your past answers have not been well-received, and you're in danger of being blocked from answering.


                    Please pay close attention to the following guidance:


                    • 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%2f53309915%2fr-cca-and-predict-cca-in-vegan%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

                    Biblatex bibliography style without URLs when DOI exists (in Overleaf with Zotero bibliography)

                    ComboBox Display Member on multiple fields

                    Is it possible to collect Nectar points via Trainline?