Nothing
interval_var3<-function(x,mu=Inf,side=0,alpha=0.05){
n<-length(x)
if (mu<Inf){
S2<-sum((x-mu)^2)/n; df<-n
}
else{
S2<-var(x); df<-n-1
}
if (side<0){
a <- 0
b <- df*S2/qchisq(alpha,df)
}
else if (side>0){
a <- df*S2/qchisq(1-alpha,df)
b <- Inf
}
else{
a<-df*S2/qchisq(1-alpha/2,df)
b<-df*S2/qchisq(alpha/2,df)
}
data.frame(var=S2, df=df, a=a, b=b)
}
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.