Is it correct that the weights argument in lm and kruskal_test from
package coin have different meanings?
Example:
library("coin")
set.seed(29)
x <- gl(3, 10)
y <- rnorm(length(x), mean = c(0, 0, 1)[x])
d <- data.frame(y = y, x = x)
w <- rep(2, nrow(d)) ### double each obs
### all the same
kruskal_test(y ~ x, data = rbind(d, d))
kruskal_test(y ~ x, data = d[rep(1:nrow(d), w),])
kruskal_test(y ~ x, data = d, weights = ~ w)
anova(lm(y ~ x, data = d[rep(1:nrow(d), w),]))
anova(lm(y ~ x, data = d, weights = w))