Nothing
freqdom.inflambdas = function(E){
apply(E$values,2,min)
}
freqdom.infalphas = function(E){
D = dim(E$values)
R = abs(E$values[,1:(D[2]-1)] - E$values[,1 + 1:(D[2]-1)])
A = R[,1:(D[2]-2)]
B = R[,1 + 1:(D[2]-2)]
R = array(0,c(dim(A),2))
R[,,1] = A
R[,,2] = B
R = apply(R,1:2,min)
R = cbind(A[,1],R,B[,D[2]-2])
apply(R,2,min)
}
freqdom.invlamintegral = function(E){
V = 1/E$values
1/apply(V,2,mean)
}
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.