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
adjust.R
adjust <- function(x){
# x ... object from class "imp"
if(class(x) != "imp") stop("object x must be from class imp")
xneu=xi$xImp
s1 <- rowSums(xi$xOrig, na.rm=TRUE)
for(i in 1:nrow(xi$xImp)){
s <- sum(xi$xImp[i, !xi$wind[i,]])
s2 <- sum(xi$xImp[i, xi$wind[i,]])
fac <- s / (s + s2)
s1[i] <- s1[i] / fac
}
impS <- s1/rowSums(xi$xImp)
for(i in 1:ncol(xi$xImp)){
xneu[,i] <- xi$xImp[,i] * impS
}
x$xImp <- xneu
invisible(x)
}