[R] A recent Post

[Joshua Wiley]

Hi Roy,

This still needs refinement and may benefit from moving to a Bayesian
approach, but this is roughly my approach:

status <- function(help, harshness, OP, contributions, prior, duration) {

  params <- c(help, harshness, OP, contributions, prior, duration)
  stopifnot(all(params > 0 & params < 1))

  goodness <- help / OP
  rudeness <- harshness * OP
  cont <- contributions + .5 * prior * duration

  specific <- (goodness - rudeness) + .5 * cont
  global <- cont + .25 * (goodness - rudeness)/exp(duration)

  results <- list(SpecificStatus = specific, GlobalStatus = global)

  return(results)
}

## a very helpful (.9), polite (.01) response to a rude OP (.25)
## with moderate contributions (.5), a generally positive prior (.8),
## and moderate/long duration (.6)
status(.9, .01, .25, .5, .8, .6) # what a swell person (love)
status(.9, .01, .99, .5, .8, .6) # good solid folk (like)

status(.6, .99, .99, .5, .8, .6) # valuable smartass (tolerate)
status(.6, .99, .99, .01, .1, .6) # useless smartass (avoid)


status(.01, .99, .99, .01, .1, .1) # bad person deep down (danger will robinson)

status(.01, .99, .01, .01, .1, .1) # fights fire with fire (caution warranted)

status(.1, .99, .99, .99, .6, .99) # intollerant genius (thank)
status(.1, .99, .1, .99, .6, .99) # normal genius (thank and like)

Cheers,

Josh


On Sun, Jan 15, 2012 at 7:28 PM, Roy Mendelssohn
<roy.mendelssohn at noaa.gov> wrote:
> From the r-help posting guidelines:
>
>> Good manners: Remember that customs differ. Some people are very direct. Others surround everything they say with hedges and apologies. Be tolerant. Rudeness is never warranted, but sometimes `read the manual' is the appropriate response. Don't waste time discussing such matters on the list. Ad hominem comments are absolutely out of place.
>
> It appears IMHO, that some posters are exempted from following the guidelines.  I can cite the specific  email if anyone cares.  It shouldn't  matter how important the person is, if they fail to follow the guidelines.
>
> -Roy M.
>
>
> **********************
> "The contents of this message do not reflect any position of the U.S. Government or NOAA."
> **********************
> Roy Mendelssohn
> Supervisory Operations Research Analyst
> NOAA/NMFS
> Environmental Research Division
> Southwest Fisheries Science Center
> 1352 Lighthouse Avenue
> Pacific Grove, CA 93950-2097
>
> e-mail: Roy.Mendelssohn at noaa.gov (Note new e-mail address)
> voice: (831)-648-9029
> fax: (831)-648-8440
> www: http://www.pfeg.noaa.gov/
>
> "Old age and treachery will overcome youth and skill."
> "From those who have been given much, much will be expected"
> "the arc of the moral universe is long, but it bends toward justice" -MLK Jr.
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.



-- 
Joshua Wiley
Ph.D. Student, Health Psychology
Programmer Analyst II, Statistical Consulting Group
University of California, Los Angeles
https://joshuawiley.com/