1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
# Need to account for weights -- how do we do qq plots with weights
plot.matchit <- function(x, discrete.cutoff=5, type="QQ",
numdraws=5000, interactive = T, which.xs =
NULL, ...){
if ("matchit.exact" %in% class(x)){
stop("Not appropriate for exact matching. No plots generated.")
}
if(type=="QQ"){
matchit.qqplot(x=x,discrete.cutoff=discrete.cutoff,
numdraws=numdraws, interactive=interactive,
which.xs = which.xs, ...)
} else if(type=="jitter"){
jitter.pscore(x, interactive=interactive,...)
} else if(type=="hist"){
hist.pscore(x,...)
} else {
stop("Invalid type")
}
}
|
