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/