debug: UseMethod(“mean”)











up vote
0
down vote

favorite












I have problem in using the mean function in R studio.



Below is my code.



# Pollutant mean

pollutantmean <- function(directory, pollutant, id = 1:332)
{
sum_nitrate = 0
sum_sulphate = 0
print(directory)
print(pollutant)
print(id)
file.names <- dir(directory, pattern=".csv")
for ( i in id)
{
infile <- paste(directory, "/", file.names[i], sep="")
print(infile)
df1 <- read.csv(infile, header = TRUE)
sum_nitrate = sum_nitrate + mean(df1$nitrate, trim=0.1, na.rm=TRUE)
}
}


I have problem in using mean please help me out.










share|improve this question


























    up vote
    0
    down vote

    favorite












    I have problem in using the mean function in R studio.



    Below is my code.



    # Pollutant mean

    pollutantmean <- function(directory, pollutant, id = 1:332)
    {
    sum_nitrate = 0
    sum_sulphate = 0
    print(directory)
    print(pollutant)
    print(id)
    file.names <- dir(directory, pattern=".csv")
    for ( i in id)
    {
    infile <- paste(directory, "/", file.names[i], sep="")
    print(infile)
    df1 <- read.csv(infile, header = TRUE)
    sum_nitrate = sum_nitrate + mean(df1$nitrate, trim=0.1, na.rm=TRUE)
    }
    }


    I have problem in using mean please help me out.










    share|improve this question
























      up vote
      0
      down vote

      favorite









      up vote
      0
      down vote

      favorite











      I have problem in using the mean function in R studio.



      Below is my code.



      # Pollutant mean

      pollutantmean <- function(directory, pollutant, id = 1:332)
      {
      sum_nitrate = 0
      sum_sulphate = 0
      print(directory)
      print(pollutant)
      print(id)
      file.names <- dir(directory, pattern=".csv")
      for ( i in id)
      {
      infile <- paste(directory, "/", file.names[i], sep="")
      print(infile)
      df1 <- read.csv(infile, header = TRUE)
      sum_nitrate = sum_nitrate + mean(df1$nitrate, trim=0.1, na.rm=TRUE)
      }
      }


      I have problem in using mean please help me out.










      share|improve this question













      I have problem in using the mean function in R studio.



      Below is my code.



      # Pollutant mean

      pollutantmean <- function(directory, pollutant, id = 1:332)
      {
      sum_nitrate = 0
      sum_sulphate = 0
      print(directory)
      print(pollutant)
      print(id)
      file.names <- dir(directory, pattern=".csv")
      for ( i in id)
      {
      infile <- paste(directory, "/", file.names[i], sep="")
      print(infile)
      df1 <- read.csv(infile, header = TRUE)
      sum_nitrate = sum_nitrate + mean(df1$nitrate, trim=0.1, na.rm=TRUE)
      }
      }


      I have problem in using mean please help me out.







      debugging






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked Nov 4 at 9:53









      Raghu Parasuram Macharoutu

      11




      11





























          active

          oldest

          votes











          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%2f53139548%2fdebug-usemethodmean%23new-answer', 'question_page');
          }
          );

          Post as a guest





































          active

          oldest

          votes













          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes
















           

          draft saved


          draft discarded



















































           


          draft saved


          draft discarded














          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53139548%2fdebug-usemethodmean%23new-answer', 'question_page');
          }
          );

          Post as a guest




















































































          這個網誌中的熱門文章

          Xamarin.form Move up view when keyboard appear

          Post-Redirect-Get with Spring WebFlux and Thymeleaf

          Anylogic : not able to use stopDelay()