Nothing
expectedSignatureLifetimeExp <- function(s, rate=1) {
n <- length(s)
xin <- rep(0, n)
for(i in 1:n) {
xin[i] <- rate * sum(1/(n-1:i+1))
}
sum(s * xin)
}
expectedSystemLifetimeExp <- function(sys, rate=1) {
s <- computeSystemSignature(sys)
expectedSignatureLifetimeExp(s, rate)
}
expectedNetworkLifetimeExp <- function(sys, rate=1) {
s <- computeNetworkSignature(sys)
expectedSignatureLifetimeExp(s, rate)
}
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.