https://github.com/cran/robCompositions
Tip revision: 62ec4279da693bf1ea3ff1a45af91e5877ff3715 authored by Matthias Templ on 20 January 2009, 20:49:02 UTC
version 1.0.1
version 1.0.1
Tip revision: 62ec427
robVariation.R
`robVariation` <-
function(x){
rvars <- matrix(0, ncol=ncol(x), nrow=ncol(x))
for( i in 1:ncol(x)){
for( j in 1:ncol(x)){
if( i < j ) rvars[i,j] <- (mad(log(x[,i]/x[,j])))^2
}
}
invisible(rvars)
}