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.mendelss...@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.mendelss...@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@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/
______________________________________________
R-help@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.
