Nothing
ci.NM <-
function(s, t, all.probs, var.nm, level, ci.transformation, e.times){
if (s==0){
p.transitions<-c("1 1", "1 2", "1 3")
}else{
p.transitions<-c("1 1", "1 2", "1 3", "2 2", "2 3")
}
alpha<-qnorm(level+(1-level)/2)
CI.tp<-array(NA, dim=c(length(e.times), 4, length(p.transitions)),
dimnames=list(rows=e.times, cols=c("probs", "lower", "upper", "variance"), trans=p.transitions))
# different transformations to built CIs:
ci.transformation<-match.arg(ci.transformation,c("linear", "log", "cloglog", "log-log"))
for(j in 1:length(p.transitions)){ # loop though possible transitions
idx<-unlist(strsplit(p.transitions[j]," "))
CI.tp[,1,j]<-P<-all.probs[idx[1], idx[2],]
CI.tp[,4,j]<-var<-var.nm[,p.transitions[j]]
switch(ci.transformation[1],
"linear"={
CI.tp[,2,j]<-P-alpha*sqrt(var)
CI.tp[,3,j]<-P+alpha*sqrt(var)},
"log"={
CI.tp[,2,j]<-exp(log(P)-alpha*sqrt(var)/P)
CI.tp[,3,j]<-exp(log(P)+alpha*sqrt(var)/P)},
"cloglog"={
CI.tp[,2,j]<-1-(1-P)^(exp(alpha*(sqrt(var)/((1-P)*log(1-P)))))
CI.tp[,3,j]<-1-(1-P)^(exp(-alpha*(sqrt(var)/((1-P)*log(1-P)))))},
"log-log"={
CI.tp[,2,j]<-P^(exp(-alpha*(sqrt(var)/(P*log(P)))))
CI.tp[,3,j]<-P^(exp(alpha*(sqrt(var)/(P*log(P)))))}
)
CI.tp[,2,j]<-pmax(CI.tp[,2,j],0)
CI.tp[,3,j]<-pmin(CI.tp[,3,j],1)
}# end loop though possible transitions
CI.t<-matrix(0,nrow=length(p.transitions),ncol=4)
for(j in 1:length(p.transitions)){
CI.t[j,]<-CI.tp[nrow(CI.tp[,,j]),,j]
}
#CI.tp <- round(CI.tp,7)
#CI.t <-round(CI.t,7)
colnames(CI.t)<-c("probs", "lower", "upper", "variance")
rownames(CI.t)<-p.transitions
return(list(CI=CI.t, all.CI=CI.tp))
}
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.