Nothing
#-----------internal function ------------------
pvx<-function(theta,thres,xm=NULL){
# func. by joerg-henrik heine jhheine(at)googlemail.com
# nichts geƤndert aber zum merken theta: einzelne zahl; thres: thurstonian threshold eines items
# korrigierte formel aus markus buch seite 330 siehe auch s. 522 2006
s<-0:length(thres)
thres<-c(0,thres)
oben<- exp((s*theta)-cumsum(thres))
unten<- sum(exp((s*theta)-cumsum(thres)))
px<-oben / unten
names(px)<-0:(length(thres)-1)
P<-sum(oben / unten)
#if(length(xm)==0){return(list(px=px,P=P))}
if(length(xm)==0){return(px)}
if(length(xm)!=0){px[xm]}
}
#---------------------------------------------------
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.