How to define a custom metric function in R for Keras?How to define a custom performance metric in Keras?Custom weight initialization in KerasCustom loss function with additional parameter in KerasCustom conditional loss function in KerasKeras/TensorFlow in R - Additional Vector to Custom Loss FunctionCustom conditional Keras metricHow to Implement a Custom Loss Function with Keras for a Sparse DatasetUsing a custom R generator function with fit_generator (Keras, R)Custom Loss Function on a Keras Neural NetworkHow to develop custom metric with one class priority Keras

How to convince somebody that he is fit for something else, but not this job?

When were female captains banned from Starfleet?

Is there a nicer/politer/more positive alternative for "negates"?

Doesn't the system of the Supreme Court oppose justice?

How does electrical safety system work on ISS?

Do we have to expect a queue for the shuttle from Watford Junction to Harry Potter Studio?

Mimic lecturing on blackboard, facing audience

What does Apple's new App Store requirement mean

What do you call a word that can be spelled forward or backward forming two different words

Can you use Vicious Mockery to win an argument or gain favours?

Why the "ls" command is showing the permissions of files in a FAT32 partition?

What is the English pronunciation of "pain au chocolat"?

How can I write humor as character trait?

I found an audio circuit and I built it just fine, but I find it a bit too quiet. How do I amplify the output so that it is a bit louder?

Pre-mixing cryogenic fuels and using only one fuel tank

Does Doodling or Improvising on the Piano Have Any Benefits?

Biological Blimps: Propulsion

Stack Interview Code methods made from class Node and Smart Pointers

What is the difference between lands and mana?

What features enable the Su-25 Frogfoot to operate with such a wide variety of fuels?

Is this part of the description of the Archfey warlock's Misty Escape feature redundant?

What are some good ways to treat frozen vegetables such that they behave like fresh vegetables when stir frying them?

What is Cash Advance APR?

Why does Carol not get rid of the Kree symbol on her suit when she changes its colours?



How to define a custom metric function in R for Keras?


How to define a custom performance metric in Keras?Custom weight initialization in KerasCustom loss function with additional parameter in KerasCustom conditional loss function in KerasKeras/TensorFlow in R - Additional Vector to Custom Loss FunctionCustom conditional Keras metricHow to Implement a Custom Loss Function with Keras for a Sparse DatasetUsing a custom R generator function with fit_generator (Keras, R)Custom Loss Function on a Keras Neural NetworkHow to develop custom metric with one class priority Keras













1












$begingroup$


I just started using keras and would like to use unweighted kappa as a metric when compiling my model. Following the instructions from here, I tried to define my custom metric as follows:



library(DescTools) # includes function to calculate kappa
library(keras)

metric_kappa <- function(y_true, y_pred)
CohenKappa(y_true, y_pred)


model %>% compile(
loss = 'categorical_crossentropy',
optimizer = optimizer_rmsprop(),
metrics = metric_kappa
)


However, there must be something wrong with my definition since I get a segmentation fault. Any idea on how to solve this and how to properly set up a custom metric would be highly appreciated.










share|improve this question









New contributor




Patrick Balada is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.







$endgroup$
















    1












    $begingroup$


    I just started using keras and would like to use unweighted kappa as a metric when compiling my model. Following the instructions from here, I tried to define my custom metric as follows:



    library(DescTools) # includes function to calculate kappa
    library(keras)

    metric_kappa <- function(y_true, y_pred)
    CohenKappa(y_true, y_pred)


    model %>% compile(
    loss = 'categorical_crossentropy',
    optimizer = optimizer_rmsprop(),
    metrics = metric_kappa
    )


    However, there must be something wrong with my definition since I get a segmentation fault. Any idea on how to solve this and how to properly set up a custom metric would be highly appreciated.










    share|improve this question









    New contributor




    Patrick Balada is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
    Check out our Code of Conduct.







    $endgroup$














      1












      1








      1





      $begingroup$


      I just started using keras and would like to use unweighted kappa as a metric when compiling my model. Following the instructions from here, I tried to define my custom metric as follows:



      library(DescTools) # includes function to calculate kappa
      library(keras)

      metric_kappa <- function(y_true, y_pred)
      CohenKappa(y_true, y_pred)


      model %>% compile(
      loss = 'categorical_crossentropy',
      optimizer = optimizer_rmsprop(),
      metrics = metric_kappa
      )


      However, there must be something wrong with my definition since I get a segmentation fault. Any idea on how to solve this and how to properly set up a custom metric would be highly appreciated.










      share|improve this question









      New contributor




      Patrick Balada is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.







      $endgroup$




      I just started using keras and would like to use unweighted kappa as a metric when compiling my model. Following the instructions from here, I tried to define my custom metric as follows:



      library(DescTools) # includes function to calculate kappa
      library(keras)

      metric_kappa <- function(y_true, y_pred)
      CohenKappa(y_true, y_pred)


      model %>% compile(
      loss = 'categorical_crossentropy',
      optimizer = optimizer_rmsprop(),
      metrics = metric_kappa
      )


      However, there must be something wrong with my definition since I get a segmentation fault. Any idea on how to solve this and how to properly set up a custom metric would be highly appreciated.







      keras r






      share|improve this question









      New contributor




      Patrick Balada is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.











      share|improve this question









      New contributor




      Patrick Balada is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.









      share|improve this question




      share|improve this question








      edited Mar 18 at 8:23







      Patrick Balada













      New contributor




      Patrick Balada is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.









      asked Mar 18 at 8:05









      Patrick BaladaPatrick Balada

      1062




      1062




      New contributor




      Patrick Balada is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.





      New contributor





      Patrick Balada is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.






      Patrick Balada is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.




















          1 Answer
          1






          active

          oldest

          votes


















          0












          $begingroup$

          This answers suggests a wrapper function . Does that work in your usecase ?



          https://stackoverflow.com/a/51415066/655855






          share|improve this answer









          $endgroup$












            Your Answer





            StackExchange.ifUsing("editor", function ()
            return StackExchange.using("mathjaxEditing", function ()
            StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
            StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
            );
            );
            , "mathjax-editing");

            StackExchange.ready(function()
            var channelOptions =
            tags: "".split(" "),
            id: "557"
            ;
            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: false,
            noModals: true,
            showLowRepImageUploadWarning: true,
            reputationToPostImages: null,
            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
            );



            );






            Patrick Balada is a new contributor. Be nice, and check out our Code of Conduct.









            draft saved

            draft discarded


















            StackExchange.ready(
            function ()
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fdatascience.stackexchange.com%2fquestions%2f47501%2fhow-to-define-a-custom-metric-function-in-r-for-keras%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












            $begingroup$

            This answers suggests a wrapper function . Does that work in your usecase ?



            https://stackoverflow.com/a/51415066/655855






            share|improve this answer









            $endgroup$

















              0












              $begingroup$

              This answers suggests a wrapper function . Does that work in your usecase ?



              https://stackoverflow.com/a/51415066/655855






              share|improve this answer









              $endgroup$















                0












                0








                0





                $begingroup$

                This answers suggests a wrapper function . Does that work in your usecase ?



                https://stackoverflow.com/a/51415066/655855






                share|improve this answer









                $endgroup$



                This answers suggests a wrapper function . Does that work in your usecase ?



                https://stackoverflow.com/a/51415066/655855







                share|improve this answer












                share|improve this answer



                share|improve this answer










                answered Mar 18 at 9:44









                Shamit VermaShamit Verma

                90929




                90929




















                    Patrick Balada is a new contributor. Be nice, and check out our Code of Conduct.









                    draft saved

                    draft discarded


















                    Patrick Balada is a new contributor. Be nice, and check out our Code of Conduct.












                    Patrick Balada is a new contributor. Be nice, and check out our Code of Conduct.











                    Patrick Balada is a new contributor. Be nice, and check out our Code of Conduct.














                    Thanks for contributing an answer to Data Science Stack Exchange!


                    • 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.

                    Use MathJax to format equations. MathJax reference.


                    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%2fdatascience.stackexchange.com%2fquestions%2f47501%2fhow-to-define-a-custom-metric-function-in-r-for-keras%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

                    Adding axes to figuresAdding axes labels to LaTeX figuresLaTeX equivalent of ConTeXt buffersRotate a node but not its content: the case of the ellipse decorationHow to define the default vertical distance between nodes?TikZ scaling graphic and adjust node position and keep font sizeNumerical conditional within tikz keys?adding axes to shapesAlign axes across subfiguresAdding figures with a certain orderLine up nested tikz enviroments or how to get rid of themAdding axes labels to LaTeX figures

                    Luettelo Yhdysvaltain laivaston lentotukialuksista Lähteet | Navigointivalikko

                    Gary (muusikko) Sisällysluettelo Historia | Rockin' High | Lähteet | Aiheesta muualla | NavigointivalikkoInfobox OKTuomas "Gary" Keskinen Ancaran kitaristiksiProjekti Rockin' High