Displaying 1 result from an estimated 1 matches for "inglehartindex".
2002 Dec 27
2
RSvgDevice & sapply(plotmeans)
...ice)
library(gregmisc)
devSVG(file = "AllbusMeanPlots.svg", width = 10, height = 8,
bg = "lightblue", fg = "white", onefile=T, xmlHeader=TRUE)
#par(bg="lightblue",ann=T)
plt <- function(x) {
plotmeans(h2[,x] ~
h2$V174,ylab=names(h2)[x],xlab="InglehartIndex",mean.labels=T,
connect=list(1:2,3:4,4:5),ccol="red",pch=7,barwidth=1,barcol="black")
title("Mittelwert-Plots Allbus 1998")
}
sapply((2:ncol(h2)),plt)
dev.off()
Thanks for advance
christian