diff options
Diffstat (limited to 'interpweights.R')
| -rw-r--r-- | interpweights.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interpweights.R b/interpweights.R index 513b2a31..03de58d7 100644 --- a/interpweights.R +++ b/interpweights.R @@ -15,7 +15,7 @@ adjust_weights <- function(weights, scenario, epsilon){ interpweights(weights,scenario,adjust_scenario(scenario,epsilon))
}
-obj <- function(epsilon, vecpv, prob,support, cte){
+obj <- function(epsilon, vecpv, prob, support, cte){
newprob <- adjust_weights(prob, support, epsilon)
return( 1 - crossprod(newprob, vecpv) - cte)
}
@@ -53,7 +53,7 @@ transformweightslike <- function(p1, v1, p2, v2, p, v){ r[i] <- inverse(P1,dP1,pomme[i])
}
return(r)
-}
+}
clipw <- function(x){
write(x,file="clipboard",sep="\n")
|