根据help(tryCatch)的详细部分：

flist= seq(2,14,3)
res=NULL

for(j in 1:length(flist))
{
  # Catch outer loop
  tryCatch(
    {
      ff=flist[j]
      msave=NULL
      
      for(i in 1:50)
      {
        # catch inner loop
        tryCatch(
          {
            run1 = ff/0.0009 #here error or warnings occur#
            run2 = run1/i
            minus=run1-run2
            msave=c(msave,minus)
          },
          # Error catcher for inner loop
          error = function(err){
            print(paste(j, i))
          },
          # evaluated after inner "error"
          finally = function(fin)invisible()
        )
      }
      res=c(res,mean(msave))
    },
    # error catcher for outer loop
    error = function(err){
      print(j)
    },
    # Evalauted after outer "error"
    finally = function(fin)invisible()
  )
}