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

                    Quoting Keynes in a lectureIs differentiated instruction permitted by universities?How to make students learn prerequisitesUnsatisfactory Instructor Evaluations: balancing of expectations of engineering studentsWhat is the difference between a “statistician”, “applied statistician”, and an academic applying advanced stats within their field?Listing in reference section, but not quotingHow to efficiently use time while preparing for a class?Graduate Admissions: Teaching Emphasisstrategies for sharing teaching information with universities I don't personally have contacts withIs there an efficient way to give a large class of students feedback about their assignments?Is it unreasonable to expect students to read the lecture notes before attending the first class?

                    Rank groups within a grouped sequence of TRUE/FALSE and NAGrouping functions (tapply, by, aggregate) and the *apply familyCharacters counting and subletting specific patternsWhat is the purpose of setting a key in data.table?data.table vs dplyr: can one do something well the other can't or does poorly?how to make a bar plot for a list of dataframes?How to group by unique values in a list in RPandas - Alternative to rank() function that gives unique ordinal ranks for a columnRank within group in for loop in RData transformation: from dyadic to observational data in RGetting map from purrr to work with paste0

                    Are all passive ability checks floors for active ability checks?Does passive perception supersede active perception?Which skills can be used passively?Active Opposition with Free-Form Professions in Fate5E Trap/Ambush/Stealth Mechanics VS Passive Perception ConfusionInteraction between perception and stealth in obscured conditionsHow does Keen Sight affect Passive Perception?Are all d20 rolls either attacks, saves or ability checks?Can players declare that they are making a specific ability check?Can I see a Hidden creature that is not obscured at all?Can a Stealth check ever be made passively?Is this alternate version of the Observant feat balanced?What is the minimum amount of skill points per HD?