fit.Stats {MiscPsycho}R Documentation

~~function to do ... ~~

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

fit.Stats(dat, params)

Arguments

dat ~~Describe dat here~~
params ~~Describe params here~~

Details

~~ If necessary, more details than the description above ~~

Value

~Describe the value returned If it is a LIST, use

comp1 Description of 'comp1'
comp2 Description of 'comp2'

...

Warning

....

Note

~~further notes~~

~Make other sections like Warning with section{Warning }{....} ~

Author(s)

~~who you are~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--    or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function(dat, params){
raschO <- function(b,theta){
  1 - (1 / (1 + exp(outer(theta,b,'-'))))
   }
theta <- apply(dat, 1, theta.max, params)
p <- raschO(as.vector(params), theta)
z2 <-((dat - p)/ sqrt(p * (1- p)))^2
v  <- sqrt(p * (1- p))^2
IF <- colSums(z2*v) / colSums(v) 
OF  <- colMeans(z2)
data.frame(IF,OF)
  }

[Package MiscPsycho version 1.0 Index]