#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Fri Jan 24 06:33:34 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
for(year in seq(62, 86, 4)) {
	yr.cond <- ideo.data[, "year"] == year
	dp.normvote <- array(NA, c(sum(yr.cond), 2))
	stgj <- ideo.data[yr.cond, "stgj"]
	cd <- ideo.data[yr.cond, "cd"]
	indexes <- (1:nrow(ideo.data))[yr.cond]
	yr2.cond <- ideo.data[, "year"] == year - 2
	data2 <- ideo.data[yr2.cond, c("stgj", "cd", "dpvote", "normvote")]
	for(i in 1:sum(yr.cond)) {
		if(i %% 20 == 0)
			print(i)
		cond <- data2[, "stgj"] == stgj[i] & data2[, "cd"] == cd[i]
		if(sum(cond) == 1)
			dp.normvote[i] <- data2[cond, c("dpvote", "normvote")]
	}
	print(c(year, sum(!is.na(ideo.data[yr.cond, "normvote"]))))
	ideo.data[yr.cond, c("dpvote", "normvote")] <- dp.normvote
}
#~error: Unable to obtain requested dynamic memory (this request is for 4088 bytes, 25165448 bytes already in use)
#~
warnings()
#~error: Object "last.warning" not found
#~put ".Data/last.dump" 854105904 ...
#~
q()
#~End session: Time: 854105860; Process: 3121
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Fri Jan 24 06:37:55 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
for(year in seq(62, 86, 4)) {
	yr.cond <- ideo.data[, "year"] == year
	normvote <- rep(NA, sum(yr.cond))
	stgj <- ideo.data[yr.cond, "stgj"]
	cd <- ideo.data[yr.cond, "cd"]
	indexes <- (1:nrow(ideo.data))[yr.cond]
	yr2.cond <- ideo.data[, "year"] == year - 2
	data2 <- ideo.data[yr2.cond, c("stgj", "cd", "normvote")]
	for(i in 1:sum(yr.cond)) {
		cond <- data2[, "stgj"] == stgj[i] & data2[, "cd"] == cd[i]
		if(sum(cond) == 1)
			normvote[i] <- data2[cond, c("normvote")]
	}
	ideo.data[yr.cond, c("normvote")] <- normvote
}
#~get ".Data/ideo.data" 854105026 ...
#~put ".Data/ideo.data" 854106047 ...
#~put ".Data/yr.cond" 854106047 ...
#~put ".Data/normvote" 854106047 ...
#~put ".Data/stgj" 854106047 ...
#~put ".Data/cd" 854106047 ...
#~put ".Data/indexes" 854106047 ...
#~put ".Data/yr2.cond" 854106047 ...
#~put ".Data/data2" 854106047 ...
#~put ".Data/cond" 854106048 ...
#~
for(year in seq(62, 86, 4)) {
	yr.cond <- ideo.data[, "year"] == year
	dpvote <- rep(NA, sum(yr.cond))
	stgj <- ideo.data[yr.cond, "stgj"]
	cd <- ideo.data[yr.cond, "cd"]
	indexes <- (1:nrow(ideo.data))[yr.cond]
	yr2.cond <- ideo.data[, "year"] == year - 2
	data2 <- ideo.data[yr2.cond, c("stgj", "cd", "dpvote")]
	for(i in 1:sum(yr.cond)) {
		cond <- data2[, "stgj"] == stgj[i] & data2[, "cd"] == cd[i]
		if(sum(cond) == 1)
			dpvote[i] <- data2[cond, c("dpvote")]
	}
	ideo.data[yr.cond, c("dpvote")] <- dpvote
}
#~get ".Data/ideo.data" 854106047 ...
#~put ".Data/ideo.data" 854106121 ...
#~put ".Data/yr.cond" 854106121 ...
#~put ".Data/dpvote" 854106121 ...
#~put ".Data/stgj" 854106121 ...
#~put ".Data/cd" 854106121 ...
#~put ".Data/indexes" 854106122 ...
#~put ".Data/yr2.cond" 854106122 ...
#~put ".Data/data2" 854106122 ...
#~put ".Data/cond" 854106122 ...
#~
for(year in seq(62, 94, 4)) {
	yr.cond <- ideo2.data[, "year"] == year
	dpvote <- rep(NA, sum(yr.cond))
	stgj <- ideo2.data[yr.cond, "stgj"]
	cd <- ideo2.data[yr.cond, "cd"]
	indexes <- (1:nrow(ideo2.data))[yr.cond]
	yr2.cond <- ideo2.data[, "year"] == year - 2
	data2 <- ideo2.data[yr2.cond, c("stgj", "cd", "dpvote")]
	for(i in 1:sum(yr.cond)) {
		cond <- data2[, "stgj"] == stgj[i] & data2[, "cd"] == cd[i]
		if(sum(cond) == 1)
			dpvote[i] <- data2[cond, c("dpvote")]
	}
	ideo2.data[yr.cond, c("dpvote")] <- dpvote
}
#~get ".Data/ideo2.data" 854104453 ...
#~put ".Data/ideo2.data" 854106217 ...
#~put ".Data/yr.cond" 854106217 ...
#~put ".Data/dpvote" 854106218 ...
#~put ".Data/stgj" 854106218 ...
#~put ".Data/cd" 854106218 ...
#~put ".Data/indexes" 854106218 ...
#~put ".Data/yr2.cond" 854106218 ...
#~put ".Data/data2" 854106218 ...
#~put ".Data/cond" 854106218 ...
#~
source("explore.sfun")
if (0){

states _ states[1:50];south _ states=="AL" | states=="AR" | states=="FL" | states=="GA" |
  states=="LA" | states=="MS" | states=="NC" | states=="SC" | states=="TN" |
  states=="TX" | states=="VA";
## Create normal vote
# candidate.effects _ .5 * region effect + home state adv + south effect +
#                     + Catholic effect + candidate ideology effect
# will appear as matrix with 3 columns:  years, states, effects.
# align as matrix with columns of years (48-92) and rows of states (AL-WY)
#
## Create dvfix (corrected for incumbency)
#
# add stuff to ideo.data
#

normvote _ rep (NA, nrow(ideo.data));dum1 _ ideo.data[,"dpvote"];dum2 _ ideo.data[,"stgj"];dum3 _ (ideo.data[,"year"]-44)/4;for (i in 1:length(normvote))
  normvote[i] _ dum1[i] - candidate.effects[dum2[i],dum3[i]];dvfix _ ideo.data[,"dv"] - .1*ideo.data[,"inc"];ideo.data _ cbind(ideo.data[,1:15], normvote, dvfix);names(ideo.data) _ c(names(ideo.data)[1:15], "normvote", "dvfix");
# add stuff to ideo2.data

normvote _ rep (NA, nrow(ideo2.data));dum1 _ ideo2.data[,"dpvote"];dum2 _ ideo2.data[,"stgj"];dum3 _ (ideo2.data[,"year"]-44)/4;for (i in 1:length(normvote))
  normvote[i] _ dum1[i] - candidate.effects[dum2[i],dum3[i]];dvfix _ ideo2.data[,"dv"] - .1*ideo2.data[,"i2"];dvpfix _ ideo2.data[,"dvp"] - .1*ideo2.data[,"i1"];ideo2.data _ cbind(ideo2.data[,1:19], normvote, dvfix, dvpfix);names(ideo2.data) _ c(names(ideo2.data)[1:19], "normvote", "dvfix", "dvpfix");
# impute normal vote from 2 years earlier:  ideo.data

for (year in seq(62,86,4)){
  yr.cond _ ideo.data[, "year"] == year;  normvote _ rep (NA, sum(yr.cond));  stgj _ ideo.data[yr.cond,"stgj"];  cd _ ideo.data[yr.cond,"cd"];  indexes _ (1:nrow(ideo.data))[yr.cond];  yr2.cond _ ideo.data[, "year"] == year-2;  data2 _ ideo.data[yr2.cond,c("stgj","cd","normvote")];  for (i in 1:sum(yr.cond)){
    cond _ data2[,"stgj"]==stgj[i] & data2[,"cd"]==cd[i];    if (sum(cond)==1) normvote[i] _ data2[cond,c("normvote")];  };  ideo.data[yr.cond,c("normvote")] _ normvote;};for (year in seq(62,86,4)){
  yr.cond _ ideo.data[, "year"] == year;  dpvote _ rep (NA, sum(yr.cond));  stgj _ ideo.data[yr.cond,"stgj"];  cd _ ideo.data[yr.cond,"cd"];  indexes _ (1:nrow(ideo.data))[yr.cond];  yr2.cond _ ideo.data[, "year"] == year-2;  data2 _ ideo.data[yr2.cond,c("stgj","cd","dpvote")];  for (i in 1:sum(yr.cond)){
    cond _ data2[,"stgj"]==stgj[i] & data2[,"cd"]==cd[i];    if (sum(cond)==1) dpvote[i] _ data2[cond,c("dpvote")];  };  ideo.data[yr.cond,c("dpvote")] _ dpvote;};
# impute normal vote from 2 years earlier:  ideo2.data

for (year in seq(62,94,4)){
  yr.cond _ ideo2.data[, "year"] == year;  normvote _ rep (NA, sum(yr.cond));  stgj _ ideo2.data[yr.cond,"stgj"];  cd _ ideo2.data[yr.cond,"cd"];  indexes _ (1:nrow(ideo2.data))[yr.cond];  yr2.cond _ ideo2.data[, "year"] == year-2;  data2 _ ideo2.data[yr2.cond,c("stgj","cd","normvote")];  for (i in 1:sum(yr.cond)){
    cond _ data2[,"stgj"]==stgj[i] & data2[,"cd"]==cd[i];    if (sum(cond)==1) normvote[i] _ data2[cond,c("normvote")];  };  ideo2.data[yr.cond,c("normvote")] _ normvote;};for (year in seq(62,94,4)){
  yr.cond _ ideo2.data[, "year"] == year;  dpvote _ rep (NA, sum(yr.cond));  stgj _ ideo2.data[yr.cond,"stgj"];  cd _ ideo2.data[yr.cond,"cd"];  indexes _ (1:nrow(ideo2.data))[yr.cond];  yr2.cond _ ideo2.data[, "year"] == year-2;  data2 _ ideo2.data[yr2.cond,c("stgj","cd","dpvote")];  for (i in 1:sum(yr.cond)){
    cond _ data2[,"stgj"]==stgj[i] & data2[,"cd"]==cd[i];    if (sum(cond)==1) dpvote[i] _ data2[cond,c("dpvote")];  };  ideo2.data[yr.cond,c("dpvote")] _ dpvote;};


plan1 _ function(year)
{
if (year <= 88){
	yr.cond <- ideo.data[, "year"] == year;	data <- ideo.data[yr.cond,  ];	deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[,"inc"]) == 1);	repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[,"inc"]) == 1);	dum _ apply(is.na(data),1,sum);	ok _ dum==0 & !south[data[,"stgj"]];	print (paste (sum(ok), "ideo.data:  data points for year", 1900+year)); 
## Raw plot of poole score vs dvp
	plot (data[ok,"dvp"], data[ok,"score1"], type="n",
	  xlab="previous vote", ylab="Poole score");	dem _ data[,"dvp"] > .5;	text (data[ok,"dvp"], data[ok,"score1"],
	  ifelse (data[ok,"dvp"] > .5, "*", "o"));	title (paste ("poole score vs dvp,", 1900+year), cex=.4);
## Raw plot of poole score vs normal vote
	plot (data[ok,"normvote"], data[ok,"score1"], type="n",
	  xlab="corrected pres vote", ylab="Poole score");	text (data[ok,"normvote"], data[ok,"score1"],
	  ifelse (data[ok,"dvp"] > .5, "*", "o"));	title (paste ("poole score vs pres vote,", 1900+year), cex=.4);
# blank plot
plot (0,0, type="n",axes=F,xlab="",ylab="");
};else{
# blank plot
plot (0,0, type="n",axes=F,xlab="",ylab="");# blank plot
plot (0,0, type="n",axes=F,xlab="",ylab="");# blank plot
plot (0,0, type="n",axes=F,xlab="",ylab="");};
# switch to ideo2.data
	yr.cond <- ideo2.data[, "year"] == year;	data <- ideo2.data[yr.cond,  ];	deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[,"i2"]) == 1);	repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[,"i2"]) == 1);	dum _ apply(is.na(data),1,sum);	ok _ dum==0 & !south[data[,"stgj"]];	print (paste (sum(ok), "ideo2.data:  data points for year", 1900+year));
if (year%%10!=2){
## Results of regression of dv on dvp and poole score, for Dem incs only
## Result should be negative.  Also, scatterplot of resid of
## (regression of dv on dvp) vs poole score, for Dem incs.  Neg slope is clear.
	lm1 <- lm(dvfix ~ dvpfix, data = data[deminc.cond & ok,]);	lm2 <- lm(dvfix ~ dvpfix + score1, data = data[deminc.cond & ok,]);	print(summary(lm2));	plot (data[deminc.cond & ok,"score1"], lm1$residuals, pch="*",
	  xlab="Poole score", ylab="resid of regression of dv on dvp");	lm3 _ lsfit (data[deminc.cond & ok, "score1"], lm1$residuals);	lines (10*c(-1,1),lm3$coef[1] + 10*c(-1,1)*lm3$coef["X"]);	title (paste ("resids of dv on dvp, vs poole score,", 1900+year,
	  "\n Democratic incs only"), cex=.4);};else
# blank plot
plot (0,0, type="n",axes=F,xlab="",ylab="");
## Results of regression of dv on normalvote and poole score, for Dem incs only
	lm1 <- lm(dvfix ~ normvote, data = data[deminc.cond & ok,]);	lm2 <- lm(dvfix ~ normvote + score1, data = data[deminc.cond & ok,]);	print(summary(lm2));	plot (data[deminc.cond & ok,"score1"], lm1$residuals, pch="*",
	  xlab="Poole score", ylab="resid of regression of dv on normal vote");	lm3 _ lsfit (data[deminc.cond & ok, "score1"], lm1$residuals);	lines (10*c(-1,1),lm3$coef[1] + 10*c(-1,1)*lm3$coef["X"]);	title (paste ("resids of dv on pres vote, vs poole score,", 1900+year,
	  "\n Democratic incs only"), cex=.4);
## Results of regression of dv on normalvote and corrected poole score, for Dem incs only
	lm1 <- lm(dvfix ~ normvote, data = data[deminc.cond & ok,]);	lm2 <- lm(dvfix ~ normvote + score1, data = data[deminc.cond & ok,]);	print(summary(lm2));	lm4 _ lsfit (data[deminc.cond & ok, "normvote"],
	  data[deminc.cond & ok, "score1"]);	pooleresids _ lm4$residuals;	plot (pooleresids, lm1$residuals, pch="*",
	  xlab="resid of regression of Poole score on normal vote",
	  ylab="resid of regression of dv on normal vote");	lm3 _ lsfit (pooleresids, lm1$residuals);	lines (10*c(-1,1),lm3$coef[1] + 10*c(-1,1)*lm3$coef["X"]);	title (paste ("resids of dv on pres vote, vs poole resids,", 1900+year,
	  "\n Democratic incs only"), cex=.4);
if (year%%10!=2){
## Results of regression of dv on dvp and poole score, for Rep incs only
	lm1 <- lm(dvfix ~ dvpfix, data = data[repinc.cond & ok,]);	lm2 <- lm(dvfix ~ dvpfix + score1, data = data[repinc.cond & ok,]);	print(summary(lm2));	plot (data[repinc.cond & ok,"score1"], -lm1$residuals, pch="o",
	  xlab="Poole score", ylab="resid of regression of -dv on dvp");	lm3 _ lsfit (data[repinc.cond & ok, "score1"], -lm1$residuals);	lines (10*c(-1,1),lm3$coef[1] + 10*c(-1,1)*lm3$coef["X"]);	title (paste ("resids of -dv on dvp, vs poole score,", 1900+year,
	  "\n Republican incs only"), cex=.4);};else
# blank plot
plot (0,0, type="n",axes=F,xlab="",ylab="");
## Results of regression of dv on normalvote and poole score, for Rep incs only
	lm1 <- lm(dvfix ~ normvote, data = data[repinc.cond & ok,]);	lm2 <- lm(dvfix ~ normvote + score1, data = data[repinc.cond & ok,]);	print(summary(lm2));	plot (data[repinc.cond & ok,"score1"], -lm1$residuals, pch="o",
	  xlab="Poole score", ylab="resid of regression of -dv on normal vote");	lm3 _ lsfit (data[repinc.cond & ok, "score1"], -lm1$residuals);	lines (10*c(-1,1),lm3$coef[1] + 10*c(-1,1)*lm3$coef["X"]);	title (paste ("resids of -dv on pres vote, vs poole score,",1900+year,
	  "\n Republican incs only"), cex=.4);
## Results of regression of dv on normalvote and corrected poole score, for Rep  incs only
	lm1 <- lm(dvfix ~ normvote, data = data[repinc.cond & ok,]);	lm2 <- lm(dvfix ~ normvote + score1, data = data[repinc.cond & ok,]);	print(summary(lm2));	lm4 _ lsfit (data[repinc.cond & ok, "normvote"],
	  data[repinc.cond & ok, "score1"]);	pooleresids _ lm4$residuals;	plot (pooleresids, -lm1$residuals, pch="o",
	  xlab="resid of regression of Poole score on normal vote",
	  ylab="resid of regression of -dv on normal vote");	lm3 _ lsfit (pooleresids, -lm1$residuals);	lines (10*c(-1,1),lm3$coef[1] + 10*c(-1,1)*lm3$coef["X"]);	title (paste ("resids of -dv on pres vote, vs poole resids,",1900+year,
	  "\n Republican incs only"), cex=.4);};
postscript ("test1.ps", horizontal=T);par (mfrow=c(3,3));years _ seq(60,94,2);okyears _ years[years%%10 !=2];for (year in okyears) dum _ plan1(year);dev.off();;#~error: statement with syntax error
#~put ".Data/last.dump" 854106248 ...
#~
source("explore.sfun")
#~error: No data for variable "dvpfix"
#~put ".Data/last.dump" 854106352 ...
#~
yr.cond <- ideo.data[, "year"] == 94
#~get ".Data/ideo.data" 854106121 ...
#~put ".Data/yr.cond" 854106372 ...
#~
ideo.data[yr.cond,  ][1:5,  ]
#~get ".Data/ideo.data" 854106121 ...
#~get ".Data/yr.cond" 854106372 ...
#~put ".Data/.Last.value" 854106380 ...
#~
yr.cond <- ideo2.data[, "year"] == 94
#~get ".Data/ideo2.data" 854106217 ...
#~put ".Data/yr.cond" 854106414 ...
#~
sum(yr.cond)
#~get ".Data/yr.cond" 854106414 ...
#~put ".Data/.Last.value" 854106418 ...
#~
ideo2.data[yr.cond,  ][1:5,  ]
#~get ".Data/ideo2.data" 854106217 ...
#~get ".Data/yr.cond" 854106414 ...
#~put ".Data/.Last.value" 854106430 ...
#~
dum <- 1:5
#~put ".Data/dum" 854106552 ...
#~
dum[1:3] <- 0
#~get ".Data/dum" 854106552 ...
#~put ".Data/dum" 854106555 ...
#~
dum
#~get ".Data/dum" 854106555 ...
#~
source("explore.sfun")
#~error: missing values not allowed: found in dvfix, dvpfix
#~put ".Data/last.dump" 854106622 ...
#~
ideo2.data[yr.cond,  ][1:5,  ]
#~get ".Data/ideo2.data" 854106217 ...
#~get ".Data/yr.cond" 854106414 ...
#~put ".Data/.Last.value" 854106651 ...
#~
source("explore.sfun")
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/plan1" 854106755 ...
#~put ".Data/years" 854106756 ...
#~put ".Data/okyears" 854106756 ...
#~get ".Data/ideo2.data" 854106217 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 854106756 ...
#~put ".Data/.Last.value" 854106756 ...
#~
source("explore.sfun")
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/plan1" 854106823 ...
#~put ".Data/years" 854106823 ...
#~put ".Data/okyears" 854106824 ...
#~get ".Data/ideo.data" 854106121 ...
#~get ".Data/south" 854022894 ...
#~get ".Data/ideo2.data" 854106217 ...
#~put ".Data/dum" 854106824 ...
#~put ".Data/.Last.value" 854106824 ...
#~
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Fri Jan 24 11:30:04 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
#~interrupt
#~
#~interrupt
#~
yr.cond <- ideo2.data[, "year"] == 90
#~get ".Data/ideo2.data" 854106217 ...
#~put ".Data/yr.cond" 854123602 ...
#~
rng <- function(a)
{
	range(a[!is.na(a)])
}
#~put ".Data/rng" 854123625 ...
#~
q()
#~End session: Time: 854358990; Process: 3143
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Jan 29 07:27:28 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
q()
#~End session: Time: 854540920; Process: 12939
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Jan 29 07:28:43 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
kjk
#~error: statement with syntax error
#~

#~error: statement with syntax error
#~
lk
#~error: Object "lk" not found
#~

#~error: statement with syntax error
#~
3
#~put ".Data/.Last.value" 854540989 ...
#~
ideo2.data[1433,  ]
#~get ".Data/ideo2.data" 854106217 ...
#~put ".Data/.Last.value" 854541830 ...
#~
a <- 1:3
#~put ".Data/a" 854542402 ...
#~
b <- a^2
#~get ".Data/a" 854542402 ...
#~put ".Data/b" 854542407 ...
#~
c <- a^3
#~get ".Data/a" 854542402 ...
#~put ".Data/c" 854542410 ...
#~
lm(a ~ b + c)
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get ".Data/a" 854542402 ...
#~get ".Data/b" 854542407 ...
#~get ".Data/c" 854542410 ...
#~put ".Data/.Last.value" 854542424 ...
#~
#~interrupt
#~
table(ideo2.data[, "year"])
#~get ".Data/ideo2.data" 854106217 ...
#~put ".Data/.Last.value" 854543058 ...
#~
rm(c)
#~remove ".Data/c" 0 ...
#~
rm(c)
#~remove ".Data/c" 0 ...
#~
source("explore2.sfun")
#~error: No data for variable "dvpfix"
#~put ".Data/last.dump" 854543092 ...
#~
source("explore2.sfun")
#~error: statement with syntax error
#~
source("explore2.sfun")
#~error: No data for variable "dvpfix"
#~put ".Data/last.dump" 854543118 ...
#~
ideo2.data[1,  ]
#~get ".Data/ideo2.data" 854106217 ...
#~put ".Data/.Last.value" 854543152 ...
#~
source("explore2.sfun")
#~error: Invalid value for dimension 1
#~put ".Data/last.dump" 854543258 ...
#~
year <- 48
#~put ".Data/year" 854543287 ...
#~
yr.cond <- ideo2.data[, "year"] == year
#~get ".Data/ideo2.data" 854106217 ...
#~get ".Data/year" 854543287 ...
#~put ".Data/yr.cond" 854543295 ...
#~
data <- ideo2.data[yr.cond,  ]
#~get ".Data/ideo2.data" 854106217 ...
#~get ".Data/yr.cond" 854543295 ...
#~put ".Data/data" 854543296 ...
#~
deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[, "i2"]) == 1)
#~get ".Data/data" 854543296 ...
#~put ".Data/deminc.cond" 854543296 ...
#~
repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[, "i2"]) == 1)
#~get ".Data/data" 854543296 ...
#~put ".Data/repinc.cond" 854543296 ...
#~
#
# fudge for 1994
if(year == 94) data[, "occup"] <- rep(0, nrow(data))
#~get ".Data/year" 854543287 ...
#~put ".Data/.Last.value" 854543296 ...
#~
#
dum <- apply(is.na(data[, c("score1", "dv", "dvp", "dvfix", "dvpfix", "i2", 
	"i1", "stgj")]), 1, sum)
#~get ".Data/data" 854543296 ...
#~put ".Data/dum" 854543297 ...
#~
ok <- dum == 0 & !south[data[, "stgj"]]
#~get ".Data/dum" 854543297 ...
#~get ".Data/south" 854022894 ...
#~get ".Data/data" 854543296 ...
#~put ".Data/ok" 854543298 ...
#~
sum(ok)
#~get ".Data/ok" 854543298 ...
#~put ".Data/.Last.value" 854543305 ...
#~
demsoph <- data[, "i2"] == 1 & data[, "i1"] != 1
#~get ".Data/data" 854543296 ...
#~put ".Data/demsoph" 854543340 ...
#~
lm1 <- lm(dvfix ~ dvpfix, data = data[demsoph & ok,  ])
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get ".Data/data" 854543296 ...
#~get ".Data/demsoph" 854543340 ...
#~get ".Data/ok" 854543298 ...
#~put ".Data/lm1" 854543348 ...
#~
lm1 <- lm(dvfix ~ dvpfix, data = data[demsoph & ok,  ])
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get ".Data/data" 854543296 ...
#~get ".Data/demsoph" 854543340 ...
#~get ".Data/ok" 854543298 ...
#~put ".Data/lm1" 854543373 ...
#~
lm2 <- lm(dvfix ~ dvpfix + score1, data = data[demsoph & ok,  ])
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get ".Data/data" 854543296 ...
#~get ".Data/demsoph" 854543340 ...
#~get ".Data/ok" 854543298 ...
#~put ".Data/lm2" 854543384 ...
#~
print(summary(lm2))
#~get ".Data/lm2" 854543384 ...
#~put ".Data/.Last.value" 854543396 ...
#~
ok <- dum == 0 & !south[data[, "stgj"]]
#~get ".Data/dum" 854543297 ...
#~get ".Data/south" 854022894 ...
#~get ".Data/data" 854543296 ...
#~put ".Data/ok" 854543408 ...
#~
print(paste(sum(ok), "ideo2.data:  data points for year", 1900 + year))
#~get ".Data/ok" 854543408 ...
#~get ".Data/year" 854543287 ...
#~put ".Data/.Last.value" 854543409 ...
#~
source("explore2.sfun")
#~error: Invalid value for dimension 1
#~put ".Data/last.dump" 854543422 ...
#~

#~error: statement with syntax error
#~
source("explore2.sfun")
#~error: Invalid value for dimension 1
#~put ".Data/last.dump" 854543455 ...
#~
dum <- apply(is.na(data[, c("score1", "dv", "dvp", "dvfix", "dvpfix", "i2", 
	"i1", "stgj")]), 1, sum)
#~get ".Data/data" 854543296 ...
#~put ".Data/dum" 854543477 ...
#~
ok <- dum == 0 & !south[data[, "stgj"]]
#~get ".Data/dum" 854543477 ...
#~get ".Data/south" 854022894 ...
#~get ".Data/data" 854543296 ...
#~put ".Data/ok" 854543479 ...
#~
source("explore2.sfun")
#~error: Invalid value for dimension 1
#~put ".Data/last.dump" 854543496 ...
#~
source("explore2.sfun")
#~error: Invalid value for dimension 1
#~put ".Data/last.dump" 854543573 ...
#~
dim(data)
#~get ".Data/data" 854543296 ...
#~put ".Data/.Last.value" 854543590 ...
#~
a <- function()
{
	source("explore2.sfun")
}
#~put ".Data/a" 854543635 ...
#~
a()
#~error: Invalid value for dimension 1
#~put ".Data/last.dump" 854543638 ...
#~
a()
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/slurge" 854543721 ...
#~put ".Data/years" 854543721 ...
#~put ".Data/okyears" 854543721 ...
#~get ".Data/ideo2.data" 854106217 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 854543721 ...
#~put ".Data/.Last.value" 854543722 ...
#~
q()
#~End session: Time: 854544559; Process: 12953
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Jan 29 08:30:20 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
sdfdsf
#~error: Object "sdfdsf" not found
#~
q()
#~End session: Time: 854631474; Process: 13150
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Tue Feb  4 06:27:43 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
incadv <- function(years)
{
	ifelse(years < 46, 0.02, ifelse(years < 66, 0.02 + (0.08 * (years - 46)
		)/(66 - 46), 0.1))
}
#~put ".Data/incadv" 855055719 ...
#~
incadv(c(34, 46, 48, 80, 60))
#~put ".Data/.Last.value" 855055740 ...
#~
incadv(seq(46, 94, 2))
#~put ".Data/.Last.value" 855055757 ...
#~
dvfix <- ideo2.data[, "dv"] - incadv(ideo2.data[, "year"]) * ideo2.data[, "i2"]
#~get ".Data/ideo2.data" 854106217 ...
#~put ".Data/dvfix" 855055813 ...
#~
dvpfix <- ideo2.data[, "dvp"] - incadv(ideo2.data[, "year"] - 2) * ideo2.data[, 
	"i1"]
#~get ".Data/ideo2.data" 854106217 ...
#~put ".Data/dvpfix" 855055814 ...
#~
normvote <- rep(NA, nrow(ideo2.data))
#~get ".Data/ideo2.data" 854106217 ...
#~put ".Data/normvote" 855055839 ...
#~
dum1 <- ideo2.data[, "dpvote"]
#~get ".Data/ideo2.data" 854106217 ...
#~put ".Data/dum1" 855055840 ...
#~
dum2 <- ideo2.data[, "stgj"]
#~get ".Data/ideo2.data" 854106217 ...
#~put ".Data/dum2" 855055840 ...
#~
dum3 <- (ideo2.data[, "year"] - 44)/4
#~get ".Data/ideo2.data" 854106217 ...
#~put ".Data/dum3" 855055840 ...
#~
for(i in 1:length(normvote))
	normvote[i] <- dum1[i] - candidate.effects[dum2[i], dum3[i]]
#~get ".Data/normvote" 855055839 ...
#~put ".Data/normvote" 855055849 ...
#~get ".Data/dum1" 855055840 ...
#~get ".Data/candidate.effects" 854019111 ...
#~get ".Data/dum2" 855055840 ...
#~get ".Data/dum3" 855055840 ...
#~
ideo2.data <- cbind(ideo2.data[, 1:19], normvote, dvfix, dvpfix)
#~get ".Data/ideo2.data" 854106217 ...
#~put ".Data/ideo2.data" 855055861 ...
#~get ".Data/normvote" 855055849 ...
#~get ".Data/dvfix" 855055813 ...
#~get ".Data/dvpfix" 855055814 ...
#~
dvfix <- ideo.data[, "dv"] - incadv(ideo.data[, "year"]) * ideo.data[, "inc"]
#~get ".Data/ideo.data" 854106121 ...
#~put ".Data/dvfix" 855055897 ...
#~
ideo.data[, "dvfix"] <- dvfix
#~get ".Data/dvfix" 855055897 ...
#~get ".Data/ideo.data" 854106121 ...
#~put ".Data/ideo.data" 855055907 ...
#~
source("regress.sfun")
#~error: undefined columns selected
#~put ".Data/last.dump" 855056578 ...
#~
years <- c(48, 50)
#~put ".Data/years" 855056616 ...
#~
yr.cond <- rep(F, nrow(ideo2.data))
#~get ".Data/ideo2.data" 855055861 ...
#~put ".Data/yr.cond" 855056635 ...
#~
for(year in years)
	yr.cond <- yr.cond | ideo2.data[, "year"] == year
#~get ".Data/years" 855056616 ...
#~get ".Data/yr.cond" 855056635 ...
#~put ".Data/yr.cond" 855056636 ...
#~get ".Data/ideo2.data" 855055861 ...
#~
data <- ideo2.data[yr.cond,  ]
#~get ".Data/ideo2.data" 855055861 ...
#~get ".Data/yr.cond" 855056636 ...
#~put ".Data/data" 855056636 ...
#~
deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[, "i2"]) == 1)
#~get ".Data/data" 855056636 ...
#~put ".Data/deminc.cond" 855056636 ...
#~
repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[, "i2"]) == 1)
#~get ".Data/data" 855056636 ...
#~put ".Data/repinc.cond" 855056637 ...
#~
dum <- apply(is.na(data[, c("score1", "dv", "dvp", "dvfix", "dvpfix", "i2", 
	"i1", "stgj")]), 1, sum)
#~error: undefined columns selected
#~put ".Data/last.dump" 855056650 ...
#~
dim(data)
#~get ".Data/data" 855056636 ...
#~put ".Data/.Last.value" 855056658 ...
#~
data[1,  ]
#~get ".Data/data" 855056636 ...
#~put ".Data/.Last.value" 855056661 ...
#~
data[1:5,  ]
#~get ".Data/data" 855056636 ...
#~put ".Data/.Last.value" 855056673 ...
#~
names(ideo2.data) <- c(names(ideo2.data)[1:19], "normvote", "dvfix", "dvpfix")
#~get ".Data/ideo2.data" 855055861 ...
#~put ".Data/ideo2.data" 855056723 ...
#~
source("regress.sfun")
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~put ".Data/obs.study" 855056747 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 855056747 ...
#~put ".Data/.Last.value" 855056747 ...
#~
lm
#~
rm(lm)
#~remove ".Data/lm" 0 ...
#~
options(digits = 2)
#~put ".Data/.Last.value" 855056842 ...
#~
pi
#~get "/usr/local/splus/s/.Datasets/pi" -1 ...
#~
pi/2
#~get "/usr/local/splus/s/.Datasets/pi" -1 ...
#~put ".Data/.Last.value" 855056846 ...
#~
pi/10
#~get "/usr/local/splus/s/.Datasets/pi" -1 ...
#~put ".Data/.Last.value" 855056848 ...
#~
yr.cond <- rep(F, nrow(ideo2.data))
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/yr.cond" 855056891 ...
#~
for(year in years)
	yr.cond <- yr.cond | ideo2.data[, "year"] == year
#~get ".Data/years" 855056616 ...
#~get ".Data/yr.cond" 855056891 ...
#~put ".Data/yr.cond" 855056891 ...
#~get ".Data/ideo2.data" 855056723 ...
#~
data <- ideo2.data[yr.cond,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/yr.cond" 855056891 ...
#~put ".Data/data" 855056892 ...
#~
deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[, "i2"]) == 1)
#~get ".Data/data" 855056892 ...
#~put ".Data/deminc.cond" 855056892 ...
#~
repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[, "i2"]) == 1)
#~get ".Data/data" 855056892 ...
#~put ".Data/repinc.cond" 855056902 ...
#~
dum <- apply(is.na(data[, c("score1", "dv", "dvp", "dvfix", "dvpfix", "i2", 
	"i1", "stgj")]), 1, sum)
#~get ".Data/data" 855056892 ...
#~put ".Data/dum" 855056904 ...
#~
ok <- dum == 0 & !south[data[, "stgj"]]
#~get ".Data/dum" 855056904 ...
#~get ".Data/south" 854022894 ...
#~get ".Data/data" 855056892 ...
#~put ".Data/ok" 855056904 ...
#~
## soph effect for Dems
demsoph <- data[, "i2"] == 1 & data[, "i1"] != 1
#~get ".Data/data" 855056892 ...
#~put ".Data/demsoph" 855056904 ...
#~
lm1 <- lm(dv ~ score1 + dvpfix + factor(year), data = data[demsoph & ok,  ])
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~get ".Data/data" 855056892 ...
#~get ".Data/demsoph" 855056904 ...
#~get ".Data/ok" 855056904 ...
#~put ".Data/lm1" 855056922 ...
#~
lm1$coef
#~get ".Data/lm1" 855056922 ...
#~put ".Data/.Last.value" 855056926 ...
#~
lma$std.err
#~error: Object "lma" not found
#~
lm1$std.err
#~get ".Data/lm1" 855056922 ...
#~put ".Data/.Last.value" 855056934 ...
#~
lma$se
#~error: Object "lma" not found
#~
lm1
#~get ".Data/lm1" 855056922 ...
#~
lm1$s
#~get ".Data/lm1" 855056922 ...
#~put ".Data/.Last.value" 855056950 ...
#~
summary(lm1)
#~get ".Data/lm1" 855056922 ...
#~put ".Data/.Last.value" 855057039 ...
#~
summary(lm1)$std.err
#~get ".Data/lm1" 855056922 ...
#~put ".Data/.Last.value" 855057083 ...
#~
summary(lm1)[[1]]
#~get ".Data/lm1" 855056922 ...
#~put ".Data/.Last.value" 855057095 ...
#~
summary(lm1)[[2]])
#~error: statement with syntax error
#~
summary(lm1)[[2]]
#~get ".Data/lm1" 855056922 ...
#~put ".Data/.Last.value" 855057110 ...
#~
summary(lm1)[[3]]
#~get ".Data/lm1" 855056922 ...
#~put ".Data/.Last.value" 855057126 ...
#~
dum <- summary(lm1)
#~get ".Data/lm1" 855056922 ...
#~put ".Data/dum" 855057264 ...
#~
dum
#~get ".Data/dum" 855057264 ...
#~
dum$coef
#~get ".Data/dum" 855057264 ...
#~put ".Data/.Last.value" 855057286 ...
#~
source("regress.sfun")
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~put ".Data/obs.study" 855057421 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 855057421 ...
#~put ".Data/.Last.value" 855057421 ...
#~
source("explore.sfun")
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/plan1" 855062856 ...
#~put ".Data/years" 855062856 ...
#~put ".Data/okyears" 855062856 ...
#~get ".Data/ideo.data" 855055907 ...
#~get ".Data/south" 854022894 ...
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/dum" 855062856 ...
#~put ".Data/.Last.value" 855062856 ...
#~
dum <- obs.study(c(64, 66, 68, 70, 74, 76, 78, 80, 84, 86, 88))
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 855062917 ...
#~
dum <- obs.study(c(64, 66, 68, 70, 74, 76, 78, 80, 84, 86, 88))
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 855062996 ...
#~
dum
#~get ".Data/dum" 855062996 ...
#~
summary(dum)
#~get ".Data/dum" 855062996 ...
#~put ".Data/.Last.value" 855063005 ...
#~
dum <- obs.study(c(64, 66, 68, 70, 74, 76, 78, 80, 84, 86, 88))
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 855063103 ...
#~
dum
#~get ".Data/dum" 855063103 ...
#~
source("regress.sfun")
# Regressions for estimating causal effect of first-term Poole score
#
obs.study _ function(years, presflag=T)
{
	yr.cond _ rep (F, nrow(ideo2.data));	for (year in years)
	  yr.cond _ yr.cond | ideo2.data[,"year"]==year;	data <- ideo2.data[yr.cond,  ];	deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[,"i2"]) == 1);	repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[,"i2"]) == 1);	if (presflag)
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj","normvote")]),1,sum);	else
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj")]),1,sum);	ok _ dum==0 & !south[data[,"stgj"]];
# Imputing Poole scores of previous Congressmembers
#
	for (year in years){
	  yr.cond0 _ data["year"]==year;

## soph effect for Dems
	demsoph _ data[,"i2"]==1 & data[,"i1"]!=1;	if (presflag)
	  lm.dem <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[demsoph & ok,]);	else
	  lm.dem <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[demsoph & ok,]);## soph effect for Dems
	repsoph _ data[,"i2"]==-1 & data[,"i1"]!=-1;	if (presflag)
	  lm.rep <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[repsoph & ok,]);	else
	  lm.rep <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[repsoph & ok,]);
	print (cbind(summary(lm.dem)$coef[,1:2],
	  summary(lm.rep)$coef[,1:2]));	lm.dem;};
dum _ obs.study (c(48,50), presflag=F);dum _ obs.study (c(54,56,58,60), presflag=F);dum _ obs.study (c(64,66,88,70));dum _ obs.study (c(74,76,78,80));dum _ obs.study (c(84,86,88));

#~error: statement with syntax error
#~put ".Data/last.dump" 855063134 ...
#~
source("regress.sfun")
# Regressions for estimating causal effect of first-term Poole score
#
obs.study _ function(years, presflag=T)
{
	yr.cond _ rep (F, nrow(ideo2.data));	for (year in years)
	  yr.cond _ yr.cond | ideo2.data[,"year"]==year;	data <- ideo2.data[yr.cond,  ];	deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[,"i2"]) == 1);	repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[,"i2"]) == 1);	if (presflag)
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj","normvote")]),1,sum);	else
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj")]),1,sum);	ok _ dum==0 & !south[data[,"stgj"]];
# Imputing Poole scores of previous Congressmembers
#
	for (year in years){
	  yr.cond0 _ data["year"]==year;

## soph effect for Dems
	demsoph _ data[,"i2"]==1 & data[,"i1"]!=1;	if (presflag)
	  lm.dem <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[demsoph & ok,]);	else
	  lm.dem <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[demsoph & ok,]);## soph effect for Dems
	repsoph _ data[,"i2"]==-1 & data[,"i1"]!=-1;	if (presflag)
	  lm.rep <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[repsoph & ok,]);	else
	  lm.rep <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[repsoph & ok,]);
	print (cbind(summary(lm.dem)$coef[,1:2],
	  summary(lm.rep)$coef[,1:2]));	lm.dem;};
dum _ obs.study (c(48,50), presflag=F);dum _ obs.study (c(54,56,58,60), presflag=F);dum _ obs.study (c(64,66,88,70));dum _ obs.study (c(74,76,78,80));dum _ obs.study (c(84,86,88));

#~error: statement with syntax error
#~put ".Data/last.dump" 855063139 ...
#~
source("regress.sfun")
# Regressions for estimating causal effect of first-term Poole score
#
obs.study _ function(years, presflag=T)
{
	yr.cond _ rep (F, nrow(ideo2.data));	for (year in years)
	  yr.cond _ yr.cond | ideo2.data[,"year"]==year;	data <- ideo2.data[yr.cond,  ];	deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[,"i2"]) == 1);	repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[,"i2"]) == 1);	if (presflag)
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj","normvote")]),1,sum);	else
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj")]),1,sum);	ok _ dum==0 & !south[data[,"stgj"]];
# Imputing Poole scores of previous Congressmembers
#
	for (year in years){
	  yr.cond0 _ data["year"]==year;

## soph effect for Dems
	demsoph _ data[,"i2"]==1 & data[,"i1"]!=1;	if (presflag)
	  lm.dem <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[demsoph & ok,]);	else
	  lm.dem <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[demsoph & ok,]);## soph effect for Dems
	repsoph _ data[,"i2"]==-1 & data[,"i1"]!=-1;	if (presflag)
	  lm.rep <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[repsoph & ok,]);	else
	  lm.rep <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[repsoph & ok,]);
	print (cbind(summary(lm.dem)$coef[,1:2],
	  summary(lm.rep)$coef[,1:2]));	lm.dem;};
dum _ obs.study (c(48,50), presflag=F);dum _ obs.study (c(54,56,58,60), presflag=F);dum _ obs.study (c(64,66,88,70));dum _ obs.study (c(74,76,78,80));dum _ obs.study (c(84,86,88));;#~error: statement with syntax error
#~put ".Data/last.dump" 855063158 ...
#~
source("regress.sfun")
# Regressions for estimating causal effect of first-term Poole score
#
obs.study _ function(years, presflag=T)
{
	yr.cond _ rep (F, nrow(ideo2.data));	for (year in years)
	  yr.cond _ yr.cond | ideo2.data[,"year"]==year;	data <- ideo2.data[yr.cond,  ];	deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[,"i2"]) == 1);	repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[,"i2"]) == 1);	if (presflag)
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj","normvote")]),1,sum);	else
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj")]),1,sum);	ok _ dum==0 & !south[data[,"stgj"]];
# Imputing Poole scores of previous Congressmembers
#
	for (year in years){
	  yr.cond0 _ data["year"]==year;

## soph effect for Dems
	demsoph _ data[,"i2"]==1 & data[,"i1"]!=1;	if (presflag)
	  lm.dem <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[demsoph & ok,]);	else
	  lm.dem <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[demsoph & ok,]);## soph effect for Dems
	repsoph _ data[,"i2"]==-1 & data[,"i1"]!=-1;	if (presflag)
	  lm.rep <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[repsoph & ok,]);	else
	  lm.rep <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[repsoph & ok,]);
	print (cbind(summary(lm.dem)$coef[,1:2],
	  summary(lm.rep)$coef[,1:2]));	lm.dem;};
dum _ obs.study (c(48,50), presflag=F);dum _ obs.study (c(54,56,58,60), presflag=F);dum _ obs.study (c(64,66,88,70));dum _ obs.study (c(74,76,78,80));dum _ obs.study (c(84,86,88));;#~error: statement with syntax error
#~put ".Data/last.dump" 855063185 ...
#~
source("regress.sfun")
# Regressions for estimating causal effect of first-term Poole score
#
obs.study _ function(years, presflag=T)
{
	yr.cond _ rep (F, nrow(ideo2.data));	for (year in years)
	  yr.cond _ yr.cond | ideo2.data[,"year"]==year;	data <- ideo2.data[yr.cond,  ];	deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[,"i2"]) == 1);	repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[,"i2"]) == 1);	if (presflag)
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj","normvote")]),1,sum);	else
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj")]),1,sum);	ok _ dum==0 & !south[data[,"stgj"]];
# Imputing Poole scores of previous Congressmembers
#
	for (year in years){
	  yr.cond0 _ data["year"]==year;

## soph effect for Dems
	demsoph _ data[,"i2"]==1 & data[,"i1"]!=1;	if (presflag)
	  lm.dem <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[demsoph & ok,]);	else
	  lm.dem <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[demsoph & ok,]);## soph effect for Dems
	repsoph _ data[,"i2"]==-1 & data[,"i1"]!=-1;	if (presflag)
	  lm.rep <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[repsoph & ok,]);	else
	  lm.rep <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[repsoph & ok,]);
	print (cbind(summary(lm.dem)$coef[,1:2],
	  summary(lm.rep)$coef[,1:2]));};
dum _ obs.study (c(48,50), presflag=F);dum _ obs.study (c(54,56,58,60), presflag=F);dum _ obs.study (c(64,66,88,70));dum _ obs.study (c(74,76,78,80));dum _ obs.study (c(84,86,88));;#~error: statement with syntax error
#~put ".Data/last.dump" 855063207 ...
#~
a <- function()
{
	source("regress.sfun")
}
#~put ".Data/a" 855063257 ...
#~
a()
# Regressions for estimating causal effect of first-term Poole score
#
obs.study _ function(years, presflag=T)
{
	yr.cond _ rep (F, nrow(ideo2.data));	for (year in years)
	  yr.cond _ yr.cond | ideo2.data[,"year"]==year;	data <- ideo2.data[yr.cond,  ];	deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[,"i2"]) == 1);	repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[,"i2"]) == 1);	if (presflag)
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj","normvote")]),1,sum);	else
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj")]),1,sum);	ok _ dum==0 & !south[data[,"stgj"]];
# Imputing Poole scores of previous Congressmembers
#
	for (year in years){
	  yr.cond0 _ data["year"]==year;

## soph effect for Dems
	demsoph _ data[,"i2"]==1 & data[,"i1"]!=1;	if (presflag)
	  lm.dem <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[demsoph & ok,]);	else
	  lm.dem <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[demsoph & ok,]);## soph effect for Dems
	repsoph _ data[,"i2"]==-1 & data[,"i1"]!=-1;	if (presflag)
	  lm.rep <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[repsoph & ok,]);	else
	  lm.rep <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[repsoph & ok,]);
	print (cbind(summary(lm.dem)$coef[,1:2],
	  summary(lm.rep)$coef[,1:2]));	lm.dum;};
dum _ obs.study (c(48,50), presflag=F);dum _ obs.study (c(54,56,58,60), presflag=F);dum _ obs.study (c(64,66,88,70));dum _ obs.study (c(74,76,78,80));dum _ obs.study (c(84,86,88));;#~error: statement with syntax error
#~put ".Data/last.dump" 855063258 ...
#~
a()
#~error: Object "lm.dum" not found
#~put ".Data/last.dump" 855063288 ...
#~
a()
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~put ".Data/obs.study" 855063314 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 855063314 ...
#~put ".Data/.Last.value" 855063314 ...
#~
dum <- obs.study(c(64, 66, 68, 70, 74, 76, 78, 80, 84, 86, 88))
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 855063326 ...
#~
dum
#~get ".Data/dum" 855063326 ...
#~
ideo2.data[1,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 855063411 ...
#~
q()
#~End session: Time: 855064017; Process: 18711
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Tue Feb  4 09:02:29 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
a <- 1:5
#~put ".Data/a" 855065007 ...
#~
b <- c(NA, NA, 1, 4, 99)
#~put ".Data/b" 855065016 ...
#~
lm(a, b)
#~error: invalid formula
#~put ".Data/last.dump" 855065020 ...
#~
lm(a ~ b)
#~error: missing values not allowed: found in b
#~put ".Data/last.dump" 855065030 ...
#~
ideo2.data[1,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 855065168 ...
#~
q()
#~End session: Time: 855065280; Process: 18787
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Tue Feb  4 09:26:34 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
if(NA) 4
#~error: Missing value where logical needed
#~
.System("finger jane")
#~put ".Data/.Last.value" 855137146 ...
#~
.System("finger jane@stat.berkeley.edu")
#~put ".Data/.Last.value" 855137163 ...
#~
q()
#~End session: Time: 855137424; Process: 18803
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Feb  5 05:24:05 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
top
#~error: Object "top" not found
#~
.System("top")
#~put ".Data/.Last.value" 855138317 ...
#~
source("regress.sfun")
# Regressions for estimating causal effect of first-term Poole score
#
obs.study _ function(years, presflag=T, prevpoole=T)
{
	yr.cond _ rep (F, nrow(ideo2.data));	for (year in years)
	  yr.cond _ yr.cond | ideo2.data[,"year"]==year;	data <- ideo2.data[yr.cond,  ];	deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[,"i2"]) == 1);	repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[,"i2"]) == 1);	if (presflag)
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj","normvote")]),1,sum);	else
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj")]),1,sum);	ok _ dum==0 & !south[data[,"stgj"]];
## soph effect for Dems
      if (prevpoole){
	dvpfix.prev _ rep (NA, nrow(data));	score1.prev _ rep (NA, nrow(data));	data _ cbind (data, score1.prev);	names(data) _ c(names(data), "score1.prev")	;	demsoph _ data[,"i2"]==1 & data[,"i1"]!=1;	for (i in (1:nrow(data))[demsoph & ok]{
#~error: statement with syntax error
#~put ".Data/last.dump" 855139085 ...
#~
a
#~get ".Data/a" 855065007 ...
#~
a <- function()
source("regress.sfun")
#~put ".Data/a" 855139153 ...
#~
q)_
#~error: statement with syntax error
#~
a()
# Regressions for estimating causal effect of first-term Poole score
#
obs.study _ function(years, presflag=T, prevpoole=T)
{
	yr.cond _ rep (F, nrow(ideo2.data));	for (year in years)
	  yr.cond _ yr.cond | ideo2.data[,"year"]==year;	data <- ideo2.data[yr.cond,  ];	deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[,"i2"]) == 1);	repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[,"i2"]) == 1);	if (presflag)
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj","normvote")]),1,sum);	else
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj")]),1,sum);	ok _ dum==0 & !south[data[,"stgj"]];
## soph effect for Dems
      if (prevpoole){
	dvpfix.prev _ rep (NA, nrow(data));	score1.prev _ rep (NA, nrow(data));	data _ cbind (data, score1.prev);	names(data) _ c(names(data), "score1.prev")	;	demsoph _ data[,"i2"]==1 & data[,"i1"]!=1;	for (i in (1:nrow(data))[demsoph & ok]){
	  cond.dist.prev _ ideo2.data[,"year"]==(data[i,"year"]-2) &
	    ideo2.data[,"stgj"]==data[i,"stgj"] &
	    ideo2.data[,"cd"]==data[i,"cd"];	  if (sum(cond.dist.prev)==1){
	    dvp.prev _ ideo2.data[cond.dist.prev,"dvp"];	    dvpfix.prev[i] _ ideo2.data[cond.dist.prev,"dvpfix"];	    if (!is.na(dvp.prev))
	      score1.prev[i] _ ifelse(dvp.prev>.5,
	        ideo2.data[cond.dist.prev,"score1"], NA);	  };	cond.impute _ !is.na(dvpfix.prev) & !is.na(score1.prev);	lsf.impute _ lsfit (dvpfix.prev[cond.impute], score1.prev[cond.impute]);	score1.prev _ ifelse (is.na(score1.prev), lsf.impute$coef[1] +
	  lsf.impute$coef[2]*dvpfix.prev, score1.prev);      };	if (presflag & prevpoole)
	  lm.dem_lm(dv ~ score1 + dvpfix + normvote + score1.prev + factor(year),
	    data = data[demsoph & ok,]);	if (!presflag & prevpoole)
	  lm.dem _ lm(dv ~ score1 + dvpfix + score1.prev + factor(year),
	    data = data[demsoph & ok,]);	if (presflag & !prevpoole)
	  lm.dem <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[demsoph & ok,]);	else
	  lm.dem <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[demsoph & ok,]);
## soph effect for Reps
	repsoph _ data[,"i2"]==-1 & data[,"i1"]!=-1;	if (presflag & prevpoole)
#	  lm.rep_lm(dv ~ score1 + dvpfix + normvote + score1.prev + factor(year),
#	    data = data[repsoph & ok,])
	if (!presflag & prevpoole);	  lm.rep _ lm(dv ~ score1 + dvpfix + score1.prev + factor(year),
#~error: statement with syntax error
#~put ".Data/last.dump" 855139158 ...
#~
a()
# Regressions for estimating causal effect of first-term Poole score
#
obs.study _ function(years, presflag=T, prevpoole=T)
{
	yr.cond _ rep (F, nrow(ideo2.data));	for (year in years)
	  yr.cond _ yr.cond | ideo2.data[,"year"]==year;	data <- ideo2.data[yr.cond,  ];	deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[,"i2"]) == 1);	repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[,"i2"]) == 1);	if (presflag)
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj","normvote")]),1,sum);	else
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj")]),1,sum);	ok _ dum==0 & !south[data[,"stgj"]];
## soph effect for Dems
      if (prevpoole){
	dvpfix.prev _ rep (NA, nrow(data));	score1.prev _ rep (NA, nrow(data));	data _ cbind (data, score1.prev);	names(data) _ c(names(data), "score1.prev")	;	demsoph _ data[,"i2"]==1 & data[,"i1"]!=1;	for (i in (1:nrow(data))[demsoph & ok]){
	  cond.dist.prev _ ideo2.data[,"year"]==(data[i,"year"]-2) &
	    ideo2.data[,"stgj"]==data[i,"stgj"] &
	    ideo2.data[,"cd"]==data[i,"cd"];	  if (sum(cond.dist.prev)==1){
	    dvp.prev _ ideo2.data[cond.dist.prev,"dvp"];	    dvpfix.prev[i] _ ideo2.data[cond.dist.prev,"dvpfix"];	    if (!is.na(dvp.prev))
	      score1.prev[i] _ ifelse(dvp.prev>.5,
	        ideo2.data[cond.dist.prev,"score1"], NA);	  };	cond.impute _ !is.na(dvpfix.prev) & !is.na(score1.prev);	lsf.impute _ lsfit (dvpfix.prev[cond.impute], score1.prev[cond.impute]);	score1.prev _ ifelse (is.na(score1.prev), lsf.impute$coef[1] +
	  lsf.impute$coef[2]*dvpfix.prev, score1.prev);      };	if (presflag & prevpoole)
	  lm.dem_lm(dv ~ score1 + dvpfix + normvote + score1.prev + factor(year),
	    data = data[demsoph & ok,]);	if (!presflag & prevpoole)
	  lm.dem _ lm(dv ~ score1 + dvpfix + score1.prev + factor(year),
	    data = data[demsoph & ok,]);	if (presflag & !prevpoole)
	  lm.dem <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[demsoph & ok,]);	else
	  lm.dem <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[demsoph & ok,]);
## soph effect for Reps
	repsoph _ data[,"i2"]==-1 & data[,"i1"]!=-1;	if (presflag & prevpoole)
#	  lm.rep_lm(dv ~ score1 + dvpfix + normvote + score1.prev + factor(year),
#	    data = data[repsoph & ok,])
	  lm.rep_lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[repsoph & ok,]);	if (!presflag & prevpoole)
	  lm.rep _ lm(dv ~ score1 + dvpfix + score1.prev + factor(year),
	    data = data[repsoph & ok,]);	if (presflag & !prevpoole)
	  lm.rep <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[repsoph & ok,]);	else
	  lm.rep <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[repsoph & ok,]);
	print (cbind(summary(lm.dem)$coef[,1:2],
	  summary(lm.rep)$coef[,1:2]));};
dum _ obs.study (c(48,50), presflag=F, prevpoole=F);dum _ obs.study (c(54,56,58,60), presflag=F, prevpoole=F);dum _ obs.study (c(64,66,68,70), prevpoole=F);dum _ obs.study (c(74,76,78,80), prevpoole=F);dum _ obs.study (c(84,86,88), prevpoole=F);
dum _ obs.study (c(66,68,70,76,78,80,86,88));












#~error: statement with syntax error
#~put ".Data/last.dump" 855139252 ...
#~
a()
#~error: missing values not allowed: found in dv, score1, dvpfix, factor(year)
#~put ".Data/last.dump" 855139363 ...
#~
a()
#~error: missing values not allowed: found in dv, score1, dvpfix, factor(year)
#~put ".Data/last.dump" 855139462 ...
#~
a()
#~error: missing values not allowed: found in score1.prev
#~put ".Data/last.dump" 855139932 ...
#~
a()
#~put ".Data/obs.study" 855139969 ...
#~put ".Data/.Last.value" 855139969 ...
#~
source("regress.sfun")
#~put ".Data/obs.study" 855139979 ...
#~put ".Data/.Last.value" 855139979 ...
#~
a
#~
dum <- obs.study(c(66, 68))
#~error: missing values not allowed: found in score1.prev
#~put ".Data/last.dump" 855140019 ...
#~
years <- 66
#~put ".Data/years" 855140122 ...
#~
yr.cond <- rep(F, nrow(ideo2.data))
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/yr.cond" 855140133 ...
#~
for(year in years)
	yr.cond <- yr.cond | ideo2.data[, "year"] == year
#~get ".Data/years" 855140122 ...
#~get ".Data/yr.cond" 855140133 ...
#~put ".Data/yr.cond" 855140133 ...
#~get ".Data/ideo2.data" 855056723 ...
#~
data <- ideo2.data[yr.cond,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/yr.cond" 855140133 ...
#~put ".Data/data" 855140134 ...
#~
deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[, "i2"]) == 1)
#~get ".Data/data" 855140134 ...
#~put ".Data/deminc.cond" 855140134 ...
#~
repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[, "i2"]) == 1)
#~get ".Data/data" 855140134 ...
#~put ".Data/repinc.cond" 855140134 ...
#~
if(presflag) dum <- apply(is.na(data[, c("score1", "dv", "dvp", "dvfix", 
		"dvpfix", "i2", "i1", "stgj", "normvote")]), 1, sum)
#~error: Object "presflag" not found
#~
else
#~error: statement with syntax error
#~
dum <- apply(is.na(data[, c("score1", "dv", "dvp", "dvfix", "dvpfix", "i2", 
	"i1", "stgj")]), 1, sum)
#~get ".Data/data" 855140134 ...
#~put ".Data/dum" 855140134 ...
#~
ok <- dum == 0 & !south[data[, "stgj"]]
#~get ".Data/dum" 855140134 ...
#~get ".Data/south" 854022894 ...
#~get ".Data/data" 855140134 ...
#~put ".Data/ok" 855140135 ...
#~
## soph effect for Dems
        demsoph _ data[,"i2"]==1 & data[,"i1"]!=1        yr.cond _ rep (F, nrow(ideo2.data))
#~error: statement with syntax error
#~
for(year in years)
	yr.cond <- yr.cond | ideo2.data[, "year"] == year
#~get ".Data/years" 855140122 ...
#~get ".Data/yr.cond" 855140133 ...
#~put ".Data/yr.cond" 855140148 ...
#~get ".Data/ideo2.data" 855056723 ...
#~
data <- ideo2.data[yr.cond,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/yr.cond" 855140148 ...
#~put ".Data/data" 855140149 ...
#~
deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[, "i2"]) == 1)
#~get ".Data/data" 855140149 ...
#~put ".Data/deminc.cond" 855140149 ...
#~
repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[, "i2"]) == 1)
#~get ".Data/data" 855140149 ...
#~put ".Data/repinc.cond" 855140151 ...
#~
dum <- apply(is.na(data[, c("score1", "dv", "dvp", "dvfix", "dvpfix", "i2", 
	"i1", "stgj", "normvote")]), 1, sum)
#~get ".Data/data" 855140149 ...
#~put ".Data/dum" 855140160 ...
#~
ok <- dum == 0 & !south[data[, "stgj"]]
#~get ".Data/dum" 855140160 ...
#~get ".Data/south" 854022894 ...
#~get ".Data/data" 855140149 ...
#~put ".Data/ok" 855140169 ...
#~
demsoph <- data[, "i2"] == 1 & data[, "i1"] != 1
#~get ".Data/data" 855140149 ...
#~put ".Data/demsoph" 855140213 ...
#~
dim(data)
#~get ".Data/data" 855140149 ...
#~put ".Data/.Last.value" 855140216 ...
#~
data[1,  ]
#~get ".Data/data" 855140149 ...
#~put ".Data/.Last.value" 855140219 ...
#~
data[1:5,  ]
#~get ".Data/data" 855140149 ...
#~put ".Data/.Last.value" 855140229 ...
#~
table(data[, "normvote"])
#~get ".Data/data" 855140149 ...
#~put ".Data/.Last.value" 855140255 ...
#~
datat[10:15,  ]
#~error: Object "datat" not found
#~
data[10:15,  ]
#~get ".Data/data" 855140149 ...
#~put ".Data/.Last.value" 855140283 ...
#~
dvpfix.prev <- rep(NA, nrow(data))
#~get ".Data/data" 855140149 ...
#~put ".Data/dvpfix.prev" 855140342 ...
#~
score1.prev <- rep(NA, nrow(data))
#~get ".Data/data" 855140149 ...
#~put ".Data/score1.prev" 855140345 ...
#~
for(i in (1:nrow(data))[demsoph & ok]) {
	cond.dist.prev <- ideo2.data[, "year"] == (data[i, "year"] - 2) & 
		ideo2.data[, "stgj"] == data[i, "stgj"] & ideo2.data[, "cd"] == 
		data[i, "cd"]
	if(sum(cond.dist.prev) == 1) {
		dvp.prev <- ideo2.data[cond.dist.prev, "dvp"]
		dvpfix.prev[i] <- ideo2.data[cond.dist.prev, "dvpfix"]
		if(!is.na(dvp.prev))
			score1.prev[i] <- ifelse(dvp.prev > 0.5, ideo2.data[
				cond.dist.prev, "score1"], NA)
	}
}
#~get ".Data/data" 855140149 ...
#~get ".Data/demsoph" 855140213 ...
#~get ".Data/ok" 855140169 ...
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/cond.dist.prev" 855140377 ...
#~put ".Data/dvp.prev" 855140378 ...
#~get ".Data/dvpfix.prev" 855140342 ...
#~put ".Data/dvpfix.prev" 855140378 ...
#~get ".Data/score1.prev" 855140345 ...
#~put ".Data/score1.prev" 855140378 ...
#~
dvpfix.prev[10:15]
#~get ".Data/dvpfix.prev" 855140378 ...
#~put ".Data/.Last.value" 855140445 ...
#~
ideo.data[10,  ]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 855140471 ...
#~
(1:nrow(data))[demsoph & ok]
#~get ".Data/data" 855140149 ...
#~get ".Data/demsoph" 855140213 ...
#~get ".Data/ok" 855140169 ...
#~put ".Data/.Last.value" 855140521 ...
#~
i <- 30
#~put ".Data/i" 855140535 ...
#~
cond.dist.prev <- ideo2.data[, "year"] == (data[i, "year"] - 2) & ideo2.data[, 
	"stgj"] == data[i, "stgj"] & ideo2.data[, "cd"] == data[i, "cd"]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/data" 855140149 ...
#~get ".Data/i" 855140535 ...
#~put ".Data/cond.dist.prev" 855140548 ...
#~
sum(cond.dist.prev)
#~get ".Data/cond.dist.prev" 855140548 ...
#~put ".Data/.Last.value" 855140553 ...
#~
dvp.prev <- ideo2.data[cond.dist.prev, "dvp"]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/cond.dist.prev" 855140548 ...
#~put ".Data/dvp.prev" 855140574 ...
#~
dvpfix.prev[i] <- ideo2.data[cond.dist.prev, "dvpfix"]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/cond.dist.prev" 855140548 ...
#~get ".Data/dvpfix.prev" 855140378 ...
#~put ".Data/dvpfix.prev" 855140576 ...
#~get ".Data/i" 855140535 ...
#~
dvp.prev
#~get ".Data/dvp.prev" 855140574 ...
#~
dvpfix.prev[i]
#~get ".Data/dvpfix.prev" 855140576 ...
#~get ".Data/i" 855140535 ...
#~put ".Data/.Last.value" 855140594 ...
#~
dvpfix.prev <- rep(NA, nrow(data))
#~get ".Data/data" 855140149 ...
#~put ".Data/dvpfix.prev" 855140642 ...
#~
score1.prev <- rep(NA, nrow(data))
#~get ".Data/data" 855140149 ...
#~put ".Data/score1.prev" 855140643 ...
#~
for(i in (1:nrow(data))[demsoph & ok]) {
	cond.dist.prev <- ideo2.data[, "year"] == (data[i, "year"] - 2) & 
		ideo2.data[, "stgj"] == data[i, "stgj"] & ideo2.data[, "cd"] == 
		data[i, "cd"]
	if(sum(cond.dist.prev) == 1) {
		dvp.prev <- ideo2.data[cond.dist.prev, "dvp"]
		dvpfix.prev[i] <- ideo2.data[cond.dist.prev, "dvpfix"]
		if(!is.na(dvp.prev))
			score1.prev[i] <- ifelse(dvp.prev > 0.5, ideo2.data[
				cond.dist.prev, "score1"], NA)
	}
}
#~get ".Data/data" 855140149 ...
#~get ".Data/demsoph" 855140213 ...
#~get ".Data/ok" 855140169 ...
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/cond.dist.prev" 855140664 ...
#~put ".Data/dvp.prev" 855140664 ...
#~get ".Data/dvpfix.prev" 855140642 ...
#~put ".Data/dvpfix.prev" 855140664 ...
#~get ".Data/score1.prev" 855140643 ...
#~put ".Data/score1.prev" 855140664 ...
#~
dvpfix.prev[demsoph & ok]
#~get ".Data/dvpfix.prev" 855140664 ...
#~get ".Data/demsoph" 855140213 ...
#~get ".Data/ok" 855140169 ...
#~put ".Data/.Last.value" 855140698 ...
#~
score1.prev[demsoph & ok]
#~get ".Data/score1.prev" 855140664 ...
#~get ".Data/demsoph" 855140213 ...
#~get ".Data/ok" 855140169 ...
#~put ".Data/.Last.value" 855140828 ...
#~
a()
#~put ".Data/obs.study" 855141286 ...
#~put ".Data/.Last.value" 855141286 ...
#~
dum <- obs.study(c(66, 68))
#~error: computed fit is singular, rank 5
#~put ".Data/last.dump" 855141354 ...
#~
yr.cond <- rep(F, nrow(ideo2.data))
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/yr.cond" 855141376 ...
#~
for(year in years)
	yr.cond <- yr.cond | ideo2.data[, "year"] == year
#~get ".Data/years" 855140122 ...
#~get ".Data/yr.cond" 855141376 ...
#~put ".Data/yr.cond" 855141377 ...
#~get ".Data/ideo2.data" 855056723 ...
#~
data <- ideo2.data[yr.cond,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/yr.cond" 855141377 ...
#~put ".Data/data" 855141377 ...
#~
deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[, "i2"]) == 1)
#~get ".Data/data" 855141377 ...
#~put ".Data/deminc.cond" 855141378 ...
#~
repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[,"i2"]) == 1)          dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
#~error: statement with syntax error
#~
"i2","i1","stgj","normvote")]),1,sum)years
#~error: statement with syntax error
#~
years
#~get ".Data/years" 855140122 ...
#~
yr.cond <- rep(F, nrow(ideo2.data))
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/yr.cond" 855141406 ...
#~
for(year in years)
	yr.cond <- yr.cond | ideo2.data[, "year"] == year
#~get ".Data/years" 855140122 ...
#~get ".Data/yr.cond" 855141406 ...
#~put ".Data/yr.cond" 855141407 ...
#~get ".Data/ideo2.data" 855056723 ...
#~
data <- ideo2.data[yr.cond,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/yr.cond" 855141407 ...
#~put ".Data/data" 855141407 ...
#~
deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[, "i2"]) == 1)
#~get ".Data/data" 855141407 ...
#~put ".Data/deminc.cond" 855141408 ...
#~
repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[, "i2"]) == 1)
#~get ".Data/data" 855141407 ...
#~put ".Data/repinc.cond" 855141411 ...
#~
dum <- apply(is.na(data[, c("score1", "dv", "dvp", "dvfix", "dvpfix", "i2", 
	"i1", "stgj", "normvote")]), 1, sum)
#~get ".Data/data" 855141407 ...
#~put ".Data/dum" 855141421 ...
#~
ok <- dum == 0 & !south[data[, "stgj"]]
#~get ".Data/dum" 855141421 ...
#~get ".Data/south" 854022894 ...
#~get ".Data/data" 855141407 ...
#~put ".Data/ok" 855141429 ...
#~
## soph effect for Dems
demsoph <- data[, "i2"] == 1 & data[, "i1"] != 1
#~get ".Data/data" 855141407 ...
#~put ".Data/demsoph" 855141430 ...
#~
score1.prev <- rep(NA, nrow(data))
#~get ".Data/data" 855141407 ...
#~put ".Data/score1.prev" 855141447 ...
#~
for(i in (1:nrow(data))[demsoph & ok]) {
	cond.dist.prev <- ideo2.data[, "year"] == (data[i, "year"] - 2) & 
		ideo2.data[, "stgj"] == data[i, "stgj"] & ideo2.data[, "cd"] == 
		data[i, "cd"]
	if(sum(cond.dist.prev) == 1) {
		dvp.prev <- ideo2.data[cond.dist.prev, "dvp"]
		if(!is.na(dvp.prev))
			score1.prev[i] <- ifelse(dvp.prev > 0.5, data[, 
				"dvpfix"], NA)
	}
}
#~get ".Data/data" 855141407 ...
#~get ".Data/demsoph" 855141430 ...
#~get ".Data/ok" 855141429 ...
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/cond.dist.prev" 855141476 ...
#~put ".Data/dvp.prev" 855141476 ...
#~get ".Data/score1.prev" 855141447 ...
#~put ".Data/score1.prev" 855141476 ...
#~
cond.impute <- demsoph & ok & !is.na(score1.prev)
#~get ".Data/demsoph" 855141430 ...
#~get ".Data/ok" 855141429 ...
#~get ".Data/score1.prev" 855141476 ...
#~put ".Data/cond.impute" 855141485 ...
#~
sum(cond.impute)
#~get ".Data/cond.impute" 855141485 ...
#~put ".Data/.Last.value" 855141492 ...
#~
sum(demsoph & ok)
#~get ".Data/demsoph" 855141430 ...
#~get ".Data/ok" 855141429 ...
#~put ".Data/.Last.value" 855141531 ...
#~
score1.prev <- rep(NA, nrow(data))
#~get ".Data/data" 855141407 ...
#~put ".Data/score1.prev" 855141677 ...
#~
for (i in (1:nrow(data))[demsoph & ok]){
          cond.dist.prev _ ideo2.data[,"year"]==(data[i,"year"]-2) &
            ideo2.data[,"stgj"]==data[i,"stgj"] &
            ideo2.data[,"cd"]==data[i,"cd"];        print(c(i,sum(cond.dist.prev),data[i,"year"],data[i,"stgj"],data[,"cd"]\
#~error: statement with syntax error
#~
))
#~error: statement with syntax error
#~
if(sum(cond.dist.prev) == 1) {
	print(c(dvp.prev, data[i, "dvpfix"]))
	dvp.prev <- ideo2.data[cond.dist.prev, "dvp"]
	if(!is.na(dvp.prev))
		score1.prev[i] <- ifelse(dvp.prev > 0.5, data[i, "dvpfix"], NA)
}
#~get ".Data/cond.dist.prev" 855141476 ...
#~get ".Data/dvp.prev" 855141476 ...
#~put ".Data/dvp.prev" 855141677 ...
#~get ".Data/data" 855141407 ...
#~get ".Data/i" 855140535 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/score1.prev" 855141677 ...
#~put ".Data/score1.prev" 855141677 ...
#~put ".Data/.Last.value" 855141678 ...
#~
}        score1.prev _ rep (NA, nrow(data))
#~error: statement with syntax error
#~
for(i in (1:nrow(data))[demsoph & ok]) {
	cond.dist.prev <- ideo2.data[, "year"] == (data[i, "year"] - 2) & 
		ideo2.data[, "stgj"] == data[i, "stgj"] & ideo2.data[, "cd"] == 
		data[i, "cd"]
	print(c(i, sum(cond.dist.prev), data[i, "year"], data[i, "stgj"], data[,
		"cd"]))
	if(sum(cond.dist.prev) == 1) {
		print(c(dvp.prev, data[i, "dvpfix"]))
		dvp.prev <- ideo2.data[cond.dist.prev, "dvp"]
		if(!is.na(dvp.prev))
			score1.prev[i] <- ifelse(dvp.prev > 0.5, data[i, 
				"dvpfix"], NA)
	}
}
#~interrupt
#~put ".Data/last.dump" 855141745 ...
#~
#~interrupt
#~
#~interrupt
#~
score1.prev <- rep(NA, nrow(data))
#~get ".Data/data" 855141407 ...
#~put ".Data/score1.prev" 855141753 ...
#~
for(i in (1:nrow(data))[demsoph & ok]) {
	cond.dist.prev <- ideo2.data[, "year"] == (data[i, "year"] - 2) & 
		ideo2.data[, "stgj"] == data[i, "stgj"] & ideo2.data[, "cd"] == 
		data[i, "cd"]
	print(c(i, sum(cond.dist.prev), data[i, "year"], data[i, "stgj"], data[
		i, "cd"]))
	if(sum(cond.dist.prev) == 1) {
		print(c(dvp.prev, data[i, "dvpfix"]))
		dvp.prev <- ideo2.data[cond.dist.prev, "dvp"]
		if(!is.na(dvp.prev))
			score1.prev[i] <- ifelse(dvp.prev > 0.5, data[i, 
				"dvpfix"], NA)
	}
}
#~get ".Data/data" 855141407 ...
#~get ".Data/demsoph" 855141430 ...
#~get ".Data/ok" 855141429 ...
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/cond.dist.prev" 855141777 ...
#~get ".Data/dvp.prev" 855141677 ...
#~put ".Data/dvp.prev" 855141777 ...
#~get ".Data/score1.prev" 855141753 ...
#~put ".Data/score1.prev" 855141777 ...
#~
cond.impute <- demsoph & ok & !is.na(score1.prev)
#~get ".Data/demsoph" 855141430 ...
#~get ".Data/ok" 855141429 ...
#~get ".Data/score1.prev" 855141777 ...
#~put ".Data/cond.impute" 855141820 ...
#~
sum(cond.impute)
#~get ".Data/cond.impute" 855141820 ...
#~put ".Data/.Last.value" 855141823 ...
#~
sort(data[, "dvp"])
#~get ".Data/data" 855141407 ...
#~put ".Data/.Last.value" 855141849 ...
#~
lsf.impute <- lsfit(data[cond.impute, "dvpfix"], score1.prev[cond.impute])
#~get ".Data/data" 855141407 ...
#~get ".Data/cond.impute" 855141820 ...
#~get ".Data/score1.prev" 855141777 ...
#~put ".Data/lsf.impute" 855141937 ...
#~
lsf.impute$coef
#~get ".Data/lsf.impute" 855141937 ...
#~put ".Data/.Last.value" 855141955 ...
#~
data[cond.impute, "dvpfix"]
#~get ".Data/data" 855141407 ...
#~get ".Data/cond.impute" 855141820 ...
#~put ".Data/.Last.value" 855141976 ...
#~
score1.prev[cond.impute]
#~get ".Data/score1.prev" 855141777 ...
#~get ".Data/cond.impute" 855141820 ...
#~put ".Data/.Last.value" 855141988 ...
#~
score1.prev <- rep(NA, nrow(data))
#~get ".Data/data" 855141407 ...
#~put ".Data/score1.prev" 855142323 ...
#~
for(i in (1:nrow(data))[demsoph & ok]) {
	cond.dist.prev <- ideo2.data[, "year"] == (data[i, "year"] - 2) & 
		ideo2.data[, "stgj"] == data[i, "stgj"] & ideo2.data[, "cd"] == 
		data[i, "cd"]
	if(sum(cond.dist.prev) == 1) {
		dvp.prev <- ideo2.data[cond.dist.prev, "dvp"]
		score1.prev[i] <- ideo2.data[cond.dist.prev, "score1"]
		if(!is.na(dvp.prev) & !is.na(score1.prev[i]))
			score1.prev[i] <- ifelse(dvp.prev > 0.5, score1.prev[i],
				NA)
	}
}
#~get ".Data/data" 855141407 ...
#~get ".Data/demsoph" 855141430 ...
#~get ".Data/ok" 855141429 ...
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/cond.dist.prev" 855142343 ...
#~put ".Data/dvp.prev" 855142344 ...
#~get ".Data/score1.prev" 855142323 ...
#~put ".Data/score1.prev" 855142344 ...
#~
cond.impute <- demsoph & ok & !is.na(score1.prev)
#~get ".Data/demsoph" 855141430 ...
#~get ".Data/ok" 855141429 ...
#~get ".Data/score1.prev" 855142344 ...
#~put ".Data/cond.impute" 855142346 ...
#~
lsf.impute <- lsfit(data[cond.impute, "dvpfix"], score1.prev[cond.impute])
#~get ".Data/data" 855141407 ...
#~get ".Data/cond.impute" 855142346 ...
#~get ".Data/score1.prev" 855142344 ...
#~put ".Data/lsf.impute" 855142347 ...
#~
score1.prev[cond.impute]
#~get ".Data/score1.prev" 855142344 ...
#~get ".Data/cond.impute" 855142346 ...
#~put ".Data/.Last.value" 855142367 ...
#~
lsf.impute$coef
#~get ".Data/lsf.impute" 855142347 ...
#~put ".Data/.Last.value" 855142378 ...
#~
score1.prev[demsoph & ok]
#~get ".Data/score1.prev" 855142344 ...
#~get ".Data/demsoph" 855141430 ...
#~get ".Data/ok" 855141429 ...
#~put ".Data/.Last.value" 855142396 ...
#~
score1.prev <- ifelse(is.na(score1.prev), lsf.impute$coef[1] + lsf.impute$coef[
	2] * data[, "dvpfix"], score1.prev)
#~get ".Data/score1.prev" 855142344 ...
#~put ".Data/score1.prev" 855142439 ...
#~get ".Data/lsf.impute" 855142347 ...
#~get ".Data/data" 855141407 ...
#~
score1.prev[demsoph & ok]
#~get ".Data/score1.prev" 855142439 ...
#~get ".Data/demsoph" 855141430 ...
#~get ".Data/ok" 855141429 ...
#~put ".Data/.Last.value" 855142452 ...
#~
data <- cbind(data, score1.prev)
#~get ".Data/data" 855141407 ...
#~put ".Data/data" 855142466 ...
#~get ".Data/score1.prev" 855142439 ...
#~
names(data)[ncol(data)] <- "score1.prev"
#~get ".Data/data" 855142466 ...
#~put ".Data/data" 855142468 ...
#~
data[10:15,  ]
#~get ".Data/data" 855142468 ...
#~put ".Data/.Last.value" 855142474 ...
#~
a()
#~put ".Data/obs.study" 855142485 ...
#~put ".Data/.Last.value" 855142485 ...
#~
dum <- obs.study(c(66, 68))
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 855142517 ...
#~
a()
# Regressions for estimating causal effect of first-term Poole score
#
obs.study _ function(years, presflag=T, prevpoole=T)
{
	yr.cond _ rep (F, nrow(ideo2.data));	for (year in years)
	  yr.cond _ yr.cond | ideo2.data[,"year"]==year;	data <- ideo2.data[yr.cond,  ];	deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[,"i2"]) == 1);	repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[,"i2"]) == 1);	if (presflag)
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj","normvote")]),1,sum);	else
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj")]),1,sum);	ok _ dum==0 & !south[data[,"stgj"]];
## soph effect for Dems
	demsoph _ data[,"i2"]==1 & data[,"i1"]!=1;      if (prevpoole){
	score1.prev _ rep (NA, nrow(data));	for (i in (1:nrow(data))[demsoph & ok]){
	  cond.dist.prev _ ideo2.data[,"year"]==(data[i,"year"]-2) &
	    ideo2.data[,"stgj"]==data[i,"stgj"] &
	    ideo2.data[,"cd"]==data[i,"cd"];	  if (sum(cond.dist.prev)==1){
	    dvp.prev _ ideo2.data[cond.dist.prev,"dvp"];	    score1.prev[i] _ ideo2.data[cond.dist.prev,"score1"];	    if (!is.na(dvp.prev) & !is.na(score1.prev[i]))
	      score1.prev[i] _ ifelse(dvp.prev>.5, score1.prev[i], NA);	  };	};	cond.impute _ demsoph & ok & !is.na(score1.prev);	lsf.impute _ lsfit (data[cond.impute,"dvpfix"],
	  score1.prev[cond.impute]);	score1.prev _ ifelse (is.na(score1.prev), lsf.impute$coef[1] +
	  lsf.impute$coef[2]*data[,"dvpfix"], score1.prev);	data _ cbind (data, score1.prev);	names(data)[ncol(data)] _ "score1.prev";      };	if (presflag & prevpoole)
	  lm.dem_lm(dv ~ score1 + dvpfix + normvote + score1.prev + factor(year),
	    data = data[demsoph & ok,]);	if (!presflag & prevpoole)
	  lm.dem _ lm(dv ~ score1 + dvpfix + score1.prev + factor(year),
	    data = data[demsoph & ok,]);	if (presflag & !prevpoole)
	  lm.dem <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[demsoph & ok,]);	else
	  lm.dem <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[demsoph & ok,]);
## soph effect for Reps
	repsoph _ data[,"i2"]==-1 & data[,"i1"]!=-1;      if (prevpoole){
	score1.prev _ rep (NA, nrow(data));	for (i in (1:nrow(data))[repsoph & ok]){
	  cond.dist.prev _ ideo2.data[,"year"]==(data[i,"year"]-2) &
	    ideo2.data[,"stgj"]==data[i,"stgj"] &
	    ideo2.data[,"cd"]==data[i,"cd"];	  if (sum(cond.dist.prev)==1){
	    dvp.prev _ ideo2.data[cond.dist.prev,"dvp"];	    score1.prev[i] _ ideo2.data[cond.dist.prev,"score1"];	    if (!is.na(dvp.prev) & !is.na(score1.prev[i]))
	      score1.prev[i] _ ifelse(dvp.prev<.5, score1.prev[i], NA);	  };	};	cond.impute _ repsoph & ok & !is.na(score1.prev);	lsf.impute _ lsfit (data[cond.impute,"dvpfix"],
	  score1.prev[cond.impute]);	score1.prev _ ifelse (is.na(score1.prev), lsf.impute$coef[1] +
	  lsf.impute$coef[2]*data[,"dvpfix"], score1.prev);	data[,ncol(data)] _ cbind (data, score1.prev);      };	if (presflag & prevpoole)
	  lm.rep_lm(dv ~ score1 + dvpfix + normvote + score1.prev + factor(year),
	    data = data[repsoph & ok,]);	if (!presflag & prevpoole)
	  lm.rep _ lm(dv ~ score1 + dvpfix + score1.prev + factor(year),
	    data = data[repsoph & ok,]);	if (presflag & !prevpoole)
	  lm.rep <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[repsoph & ok,]);	else
	  lm.rep <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[repsoph & ok,]);
	print (cbind(summary(lm.dem)$coef[,1:2],
	  summary(lm.rep)$coef[,1:2]));}

if(0){
dum _ obs.study (c(48,50), presflag=F, prevpoole=F);dum _ obs.study (c(54,56,58,60), presflag=F, prevpoole=F);dum _ obs.study (c(64,66,68,70), prevpoole=F);dum _ obs.study (c(74,76,78,80), prevpoole=F);dum _ obs.study (c(84,86,88), prevpoole=F)}

dum _ obs.study (c(66,68,70,76,78,80,86,88))}
#~error: statement with syntax error
#~put ".Data/last.dump" 855142702 ...
#~
a()
# Regressions for estimating causal effect of first-term Poole score
#
obs.study _ function(years, presflag=T, prevpoole=T)
{
	yr.cond _ rep (F, nrow(ideo2.data));	for (year in years)
	  yr.cond _ yr.cond | ideo2.data[,"year"]==year;	data <- ideo2.data[yr.cond,  ];	deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[,"i2"]) == 1);	repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[,"i2"]) == 1);	if (presflag)
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj","normvote")]),1,sum);	else
	  dum _ apply(is.na(data[,c("score1","dv","dvp","dvfix","dvpfix",
	    "i2","i1","stgj")]),1,sum);	ok _ dum==0 & !south[data[,"stgj"]];
## soph effect for Dems
	demsoph _ data[,"i2"]==1 & data[,"i1"]!=1;      if (prevpoole){
	score1.prev _ rep (NA, nrow(data));	for (i in (1:nrow(data))[demsoph & ok]){
	  cond.dist.prev _ ideo2.data[,"year"]==(data[i,"year"]-2) &
	    ideo2.data[,"stgj"]==data[i,"stgj"] &
	    ideo2.data[,"cd"]==data[i,"cd"];	  if (sum(cond.dist.prev)==1){
	    dvp.prev _ ideo2.data[cond.dist.prev,"dvp"];	    score1.prev[i] _ ideo2.data[cond.dist.prev,"score1"];	    if (!is.na(dvp.prev) & !is.na(score1.prev[i]))
	      score1.prev[i] _ ifelse(dvp.prev>.5, score1.prev[i], NA);	  };	};	cond.impute _ demsoph & ok & !is.na(score1.prev);	lsf.impute _ lsfit (data[cond.impute,"dvpfix"],
	  score1.prev[cond.impute]);	score1.prev _ ifelse (is.na(score1.prev), lsf.impute$coef[1] +
	  lsf.impute$coef[2]*data[,"dvpfix"], score1.prev);	data _ cbind (data, score1.prev);	names(data)[ncol(data)] _ "score1.prev";      };	if (presflag & prevpoole)
	  lm.dem_lm(dv ~ score1 + dvpfix + normvote + score1.prev + factor(year),
	    data = data[demsoph & ok,]);	if (!presflag & prevpoole)
	  lm.dem _ lm(dv ~ score1 + dvpfix + score1.prev + factor(year),
	    data = data[demsoph & ok,]);	if (presflag & !prevpoole)
	  lm.dem <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[demsoph & ok,]);	else
	  lm.dem <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[demsoph & ok,]);
## soph effect for Reps
	repsoph _ data[,"i2"]==-1 & data[,"i1"]!=-1;      if (prevpoole){
	score1.prev _ rep (NA, nrow(data));	for (i in (1:nrow(data))[repsoph & ok]){
	  cond.dist.prev _ ideo2.data[,"year"]==(data[i,"year"]-2) &
	    ideo2.data[,"stgj"]==data[i,"stgj"] &
	    ideo2.data[,"cd"]==data[i,"cd"];	  if (sum(cond.dist.prev)==1){
	    dvp.prev _ ideo2.data[cond.dist.prev,"dvp"];	    score1.prev[i] _ ideo2.data[cond.dist.prev,"score1"];	    if (!is.na(dvp.prev) & !is.na(score1.prev[i]))
	      score1.prev[i] _ ifelse(dvp.prev<.5, score1.prev[i], NA);	  };	};	cond.impute _ repsoph & ok & !is.na(score1.prev);	lsf.impute _ lsfit (data[cond.impute,"dvpfix"],
	  score1.prev[cond.impute]);	score1.prev _ ifelse (is.na(score1.prev), lsf.impute$coef[1] +
	  lsf.impute$coef[2]*data[,"dvpfix"], score1.prev);	data[,ncol(data)] _ cbind (data, score1.prev);      };	if (presflag & prevpoole)
	  lm.rep_lm(dv ~ score1 + dvpfix + normvote + score1.prev + factor(year),
	    data = data[repsoph & ok,]);	if (!presflag & prevpoole)
	  lm.rep _ lm(dv ~ score1 + dvpfix + score1.prev + factor(year),
	    data = data[repsoph & ok,]);	if (presflag & !prevpoole)
	  lm.rep <- lm(dv ~ score1 + dvpfix + normvote + factor(year),
	    data = data[repsoph & ok,]);	else
	  lm.rep <- lm(dv ~ score1 + dvpfix + factor(year),
	    data = data[repsoph & ok,]);
	print (cbind(summary(lm.dem)$coef[,1:2],
	  summary(lm.rep)$coef[,1:2]));}

if(0){
dum _ obs.study (c(48,50), presflag=F, prevpoole=F);dum _ obs.study (c(54,56,58,60), presflag=F, prevpoole=F);dum _ obs.study (c(64,66,68,70), prevpoole=F);dum _ obs.study (c(74,76,78,80), prevpoole=F);dum _ obs.study (c(84,86,88), prevpoole=F)}
}
#~error: statement with syntax error
#~put ".Data/last.dump" 855142712 ...
#~
a()
#~error: Unable to obtain requested dynamic memory (this request is for 82192 bytes, 25128216 bytes already in use)
#~put ".Data/last.dump" 855142847 ...
#~
options(memory)
#~error: Object "memory" not found
#~put ".Data/last.dump" 855143019 ...
#~
options("memory")
#~put ".Data/.Last.value" 855143028 ...
#~
options(memory = 100000000)
#~put ".Data/.Last.value" 855143049 ...
#~
options(object.size = 100000000)
#~put ".Data/.Last.value" 855143059 ...
#~
a()
#~interrupt
#~put ".Data/last.dump" 855143141 ...
#~
memory.size()
#~put ".Data/.Last.value" 855143180 ...
#~
q()
#~End session: Time: 855143142; Process: 19196
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Feb  5 06:45:46 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
sdflkjdfs
#~error: Object "sdflkjdfs" not found
#~
options(memory = 100000000)
#~put ".Data/.Last.value" 855143212 ...
#~
options(object.size = 100000000)
#~put ".Data/.Last.value" 855143220 ...
#~
q()
#~End session: Time: 855143173; Process: 19224
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Feb  5 06:46:19 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
options(memory = 100000000)
#~put ".Data/.Last.value" 855143235 ...
#~
options(object.size = 100000000)
#~put ".Data/.Last.value" 855143243 ...
#~
a()
#~error: computed fit is singular, rank 11
#~put ".Data/last.dump" 855143367 ...
#~
q()
#~End session: Time: 855143654; Process: 19230
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Feb  5 06:54:17 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
a()
#~error: missing values not allowed: found in score1.prev
#~put ".Data/last.dump" 855143778 ...
#~
a()
#~put ".Data/obs.study" 855143813 ...
#~put ".Data/.Last.value" 855143813 ...
#~
dum <- obs.study(c(66, 68))
#~error: missing values not allowed: found in score1.prev
#~put ".Data/last.dump" 855143838 ...
#~
obs.sgudy(66)
#~error: couldn't find function "obs.sgudy"
#~
years <- c(66, 68)
#~put ".Data/years" 855143869 ...
#~
yr.cond <- rep(F, nrow(ideo2.data))
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/yr.cond" 855143885 ...
#~
for(year in years)
	yr.cond <- yr.cond | ideo2.data[, "year"] == year
#~get ".Data/years" 855143869 ...
#~get ".Data/yr.cond" 855143885 ...
#~put ".Data/yr.cond" 855143886 ...
#~get ".Data/ideo2.data" 855056723 ...
#~
data <- ideo2.data[yr.cond,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/yr.cond" 855143886 ...
#~put ".Data/data" 855143886 ...
#~
deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[, "i2"]) == 1)
#~get ".Data/data" 855143886 ...
#~put ".Data/deminc.cond" 855143887 ...
#~
repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[, "i2"]) == 1)
#~get ".Data/data" 855143886 ...
#~put ".Data/repinc.cond" 855143892 ...
#~
dum <- apply(is.na(data[, c("score1", "dv", "dvp", "dvfix", "dvpfix", "i2", 
	"i1", "stgj", "normvote")]), 1, sum)
#~get ".Data/data" 855143886 ...
#~put ".Data/dum" 855143899 ...
#~
ok <- dum == 0 & !south[data[, "stgj"]]
#~get ".Data/dum" 855143899 ...
#~get ".Data/south" 854022894 ...
#~get ".Data/data" 855143886 ...
#~put ".Data/ok" 855143910 ...
#~
data <- cbind(data, rep(NA, nrow(data)))
#~get ".Data/data" 855143886 ...
#~put ".Data/data" 855143922 ...
#~
names(data)[ncol(data)] <- "score1.prev"
#~get ".Data/data" 855143922 ...
#~put ".Data/data" 855143930 ...
#~
demsoph <- data[, "i2"] == 1 & data[, "i1"] != 1
#~get ".Data/data" 855143930 ...
#~put ".Data/demsoph" 855144001 ...
#~
score1.prev <- rep(NA, nrow(data))
#~get ".Data/data" 855143930 ...
#~put ".Data/score1.prev" 855144012 ...
#~
for(i in (1:nrow(data))[demsoph & ok]) {
	cond.dist.prev <- ideo2.data[, "year"] == (data[i, "year"] - 2) & 
		ideo2.data[, "stgj"] == data[i, "stgj"] & ideo2.data[, "cd"] == 
		data[i, "cd"]
	if(sum(cond.dist.prev) == 1) {
		dvp.prev <- ideo2.data[cond.dist.prev, "dvp"]
		score1.prev[i] <- ideo2.data[cond.dist.prev, "score1"]
		if(!is.na(dvp.prev) & !is.na(score1.prev[i]))
			score1.prev[i] <- ifelse(dvp.prev > 0.5, score1.prev[i],
				NA)
	}
}
#~get ".Data/data" 855143930 ...
#~get ".Data/demsoph" 855144001 ...
#~get ".Data/ok" 855143910 ...
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/cond.dist.prev" 855144030 ...
#~put ".Data/dvp.prev" 855144030 ...
#~get ".Data/score1.prev" 855144012 ...
#~put ".Data/score1.prev" 855144030 ...
#~
cond.impute <- demsoph & ok & !is.na(score1.prev)
#~get ".Data/demsoph" 855144001 ...
#~get ".Data/ok" 855143910 ...
#~get ".Data/score1.prev" 855144030 ...
#~put ".Data/cond.impute" 855144041 ...
#~
sum(cond.impute)
#~get ".Data/cond.impute" 855144041 ...
#~put ".Data/.Last.value" 855144048 ...
#~
data[cond.impute, "dvpfix"]
#~get ".Data/data" 855143930 ...
#~get ".Data/cond.impute" 855144041 ...
#~put ".Data/.Last.value" 855144066 ...
#~
score1.prev[cond.impute]
#~get ".Data/score1.prev" 855144030 ...
#~get ".Data/cond.impute" 855144041 ...
#~put ".Data/.Last.value" 855144075 ...
#~
lsf.impute <- lsfit(data[cond.impute, "dvpfix"], score1.prev[cond.impute])
#~get ".Data/data" 855143930 ...
#~get ".Data/cond.impute" 855144041 ...
#~get ".Data/score1.prev" 855144030 ...
#~put ".Data/lsf.impute" 855144117 ...
#~
score1.prev <- ifelse(is.na(score1.prev), lsf.impute$coef[1] + lsf.impute$coef[
	2] * data[, "dvpfix"], score1.prev)
#~get ".Data/score1.prev" 855144030 ...
#~put ".Data/score1.prev" 855144121 ...
#~get ".Data/lsf.impute" 855144117 ...
#~get ".Data/data" 855143930 ...
#~
lsf.impute$coef
#~get ".Data/lsf.impute" 855144117 ...
#~put ".Data/.Last.value" 855144127 ...
#~
score1.prev[demsoph & ok]
#~get ".Data/score1.prev" 855144121 ...
#~get ".Data/demsoph" 855144001 ...
#~get ".Data/ok" 855143910 ...
#~put ".Data/.Last.value" 855144136 ...
#~
data[demsoph & ok, "score1.prev"] <- score1.prev[demsoph & ok]
#~get ".Data/score1.prev" 855144121 ...
#~get ".Data/demsoph" 855144001 ...
#~get ".Data/ok" 855143910 ...
#~get ".Data/data" 855143930 ...
#~put ".Data/data" 855144165 ...
#~
data[1,  ]
#~get ".Data/data" 855144165 ...
#~put ".Data/.Last.value" 855144172 ...
#~
length(data[demspoh & ok, "score1.prev"])
#~error: Object "demspoh" not found
#~
length(data[demsoph & ok, "score1.prev"])
#~get ".Data/data" 855144165 ...
#~get ".Data/demsoph" 855144001 ...
#~get ".Data/ok" 855143910 ...
#~put ".Data/.Last.value" 855144222 ...
#~
data[, "score1.prev"] <- score1.prev
#~get ".Data/score1.prev" 855144121 ...
#~get ".Data/data" 855144165 ...
#~put ".Data/data" 855144322 ...
#~
data[demsoph & ok, "score1.prev"] <- score1.prev[demsoph & ok]
#~get ".Data/score1.prev" 855144121 ...
#~get ".Data/demsoph" 855144001 ...
#~get ".Data/ok" 855143910 ...
#~get ".Data/data" 855144322 ...
#~put ".Data/data" 855144376 ...
#~
data[demsoph & ok, "score1.prev"] <- score1.prev[demsoph & ok]
#~get ".Data/score1.prev" 855144121 ...
#~get ".Data/demsoph" 855144001 ...
#~get ".Data/ok" 855143910 ...
#~get ".Data/data" 855144376 ...
#~put ".Data/data" 855144417 ...
#~
a()
#~put ".Data/obs.study" 855144454 ...
#~put ".Data/.Last.value" 855144454 ...
#~
dum <- obs.study(c(66, 68))
#~error: missing values not allowed: found in score1.prev
#~put ".Data/last.dump" 855144490 ...
#~
a()
#~put ".Data/obs.study" 855144543 ...
#~put ".Data/.Last.value" 855144543 ...
#~
dum <- obs.study(c(66, 68))
#~error: computed fit is singular, rank 5
#~put ".Data/last.dump" 855144582 ...
#~
data[demsoph & ok, c("score1", "dvpfix", "normvote", "score1.prev", "year")]
#~get ".Data/data" 855144417 ...
#~get ".Data/demsoph" 855144001 ...
#~get ".Data/ok" 855143910 ...
#~put ".Data/.Last.value" 855144692 ...
#~
data[demsoph & ok, c("dv", "score1", "dvpfix", "normvote", "score1.prev", 
	"year")]
#~get ".Data/data" 855144417 ...
#~get ".Data/demsoph" 855144001 ...
#~get ".Data/ok" 855143910 ...
#~put ".Data/.Last.value" 855144741 ...
#~
lm.dem <- lm(dv ~ score1 + dvpfix + normvote + score1.prev + factor(year), data
	 = data[demsoph & ok,  ])
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~get ".Data/data" 855144417 ...
#~get ".Data/demsoph" 855144001 ...
#~get ".Data/ok" 855143910 ...
#~put ".Data/lm.dem" 855144801 ...
#~
lm.dem
#~get ".Data/lm.dem" 855144801 ...
#~
a()
#~put ".Data/obs.study" 855144827 ...
#~put ".Data/.Last.value" 855144827 ...
#~
dum <- obs.study(c(66, 68))
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 855144878 ...
#~
#~interrupt
#~
#~interrupt
#~
q()
#~End session: Time: 855144847; Process: 19236
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Feb  5 07:14:10 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
dum <- obs.study(c(66, 68, 70, 76, 78, 80, 86, 88))
#~error: Unable to obtain requested dynamic memory (this request is for 82192 bytes, 25160840 bytes already in use)
#~put ".Data/last.dump" 855145020 ...
#~
memory.size()
#~put ".Data/.Last.value" 855145067 ...
#~
q()
#~End session: Time: 855145021; Process: 19250
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Feb  5 07:17:02 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
object.size(memory = 100000000)
#~put ".Data/.Last.value" 855145083 ...
#~
dum <- obs.study(c(66, 68, 70, 76, 78, 80, 86, 88))
#~error: Unable to obtain requested dynamic memory (this request is for 82192 bytes, 25130520 bytes already in use)
#~put ".Data/last.dump" 855145220 ...
#~
a()
#~put ".Data/obs.study" 855145464 ...
#~put ".Data/.Last.value" 855145464 ...
#~
q()
#~End session: Time: 855145414; Process: 19256
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Feb  5 07:23:36 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
dum <- obs.study(c(66, 68, 70, 76, 78, 80, 86, 88), dem = F)
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 855145543 ...
#~
a()
#~put ".Data/obs.study" 855145650 ...
#~put ".Data/.Last.value" 855145650 ...
#~
a()
#~put ".Data/obs.study" 855145771 ...
#~put ".Data/.Last.value" 855145771 ...
#~
q()
#~End session: Time: 855145721; Process: 19262
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Feb  5 07:28:42 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
dum <- obs.study(c(66, 68, 70, 76, 78, 80, 86, 88), rep0 = F)
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 855145883 ...
#~
q()
#~End session: Time: 855145870; Process: 19268
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Feb  5 07:31:11 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
dum <- obs.study(c(66, 68, 70, 76, 78, 80, 86, 88), dem0 = F)
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 855145987 ...
#~
q()
#~End session: Time: 855145961; Process: 19274
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Feb  5 07:32:42 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
a()
#~put ".Data/obs.study" 855146056 ...
#~put ".Data/.Last.value" 855146056 ...
#~
dum <- obs.study(c(66, 68, 70, 76, 78, 80, 86, 88), rep0 = F)
#~error: No dim attribute for array subset
#~put ".Data/last.dump" 855146141 ...
#~
lm.dem
#~get ".Data/lm.dem" 855144801 ...
#~
summary(lm.dem)$coef
#~get ".Data/lm.dem" 855144801 ...
#~put ".Data/.Last.value" 855146298 ...
#~
summary(lm.dem)$R
#~get ".Data/lm.dem" 855144801 ...
#~put ".Data/.Last.value" 855146306 ...
#~
summary(lm.dem)[[4]]
#~get ".Data/lm.dem" 855144801 ...
#~put ".Data/.Last.value" 855146316 ...
#~
q()
#~End session: Time: 855146306; Process: 19280
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Feb  5 07:38:28 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
options(digits = 2)
#~put ".Data/.Last.value" 855146366 ...
#~
a()
#~put ".Data/obs.study" 855146374 ...
#~put ".Data/.Last.value" 855146374 ...
#~
dum <- obs.study(c(66, 68, 70, 76, 78, 80, 86, 88), rep0 = F)
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 855146457 ...
#~
q()
#~End session: Time: 855146405; Process: 19287
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Feb  5 07:40:05 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
options(digits = 2)
#~put ".Data/.Last.value" 855146465 ...
#~
dum <- obs.study(c(66, 68, 70, 76, 78, 80, 86, 88), dem0 = F)
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 855146527 ...
#~
a()
#~put ".Data/obs.study" 855146715 ...
#~put ".Data/.Last.value" 855146715 ...
#~
q()
#~End session: Time: 855146665; Process: 19293
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Feb  5 07:44:27 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
options(digits = 2)
#~put ".Data/.Last.value" 855146726 ...
#~
dum <- obs.study(c(66, 68, 70, 76, 78, 80, 86, 88), dem0 = F)
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 855146795 ...
#~
table(ideo2.data[!is.na(ideo2.data[, "pres"]), "year"])
#~error: undefined columns selected
#~put ".Data/last.dump" 855147294 ...
#~
ideo2.data[1,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 855147302 ...
#~
table(ideo2.data[!is.na(ideo2.data[, "dpvote"]), "year"])
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 855147340 ...
#~
a()
#~put ".Data/obs.study" 855147494 ...
#~put ".Data/.Last.value" 855147494 ...
#~
q()
#~End session: Time: 855147444; Process: 19303
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Feb  5 07:57:26 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
dum <- obs.study(c(60, 66, 68, 70, 76, 78, 80, 86, 88), rep0 = F)
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 855147697 ...
#~
q()
#~End session: Time: 855147665; Process: 19309
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Feb  5 08:01:07 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
dum <- obs.study(c(60, 66, 68, 70, 76, 78, 80, 86, 88), dem0 = F)
#~get "/usr/local/splus/s/.Datasets/.Machine" -1 ...
#~get "/usr/local/splus/stat/.Datasets/store.co.helmert" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~put ".Data/dum" 855147800 ...
#~
q()
#~End session: Time: 855147871; Process: 19319
#~New session: Version: S Tue Apr 18 18:05:09 PDT 1995, Time: Wed Feb  5 08:29:14 1997
#~get "/usr/local/splus/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/splus/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/splus/splus/.Datasets/version" -1 ...
#~get "/usr/local/splus/splus/.Functions/.laenv" -1 ...
#~
mixed.text
#~error: Object "mixed.text" not found
#~
ls()
#~put ".Data/.Last.value" 855149417 ...
#~
ls
#~
text
#~
postscript("test.ps")
#~get "/usr/local/splus/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/splus/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 855149456 ...
#~
plot(c(0, 1), c(0, 1))
#~
text(0.5, 0.5, "a")
#~
text(0.6, 0.6, "$2\times 10^{-7}$")
#~
q()
#~End session: Time: 855149550; Process: 19329
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Wed Feb 19 06:18:14 1997
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
south
#~get ".Data/south" 854022894 ...
#~
length(south)
#~get ".Data/south" 854022894 ...
#~put ".Data/.Last.value" 856351300 ...
#~
(1:50)[south]
#~get ".Data/south" 854022894 ...
#~put ".Data/.Last.value" 856351306 ...
#~
q()
#~End session: Time: 856351329; Process: 1485
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Wed Feb 19 06:24:47 1997
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
candidate.effects
#~get ".Data/candidate.effects" 854019111 ...
#~
data.dump
#~
data.dump(candidate.effects, "candidate_effects")
#~error: first argument to data.dump must be a character vector
#~put ".Data/last.dump" 856351600 ...
#~
dump
#~
dump(candidate.effects, "candidate_effects")
#~error: first argument to dump must be a character vector
#~put ".Data/last.dump" 856351692 ...
#~
write
#~
write(candidate.effects, "candidate_effects", ncol = 1)
#~get ".Data/candidate.effects" 854019111 ...
#~
q()
#~End session: Time: 856351688; Process: 1504
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Wed Feb 19 06:29:22 1997
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
dim(candidate.effects)
#~get ".Data/candidate.effects" 854019111 ...
#~put ".Data/.Last.value" 856351830 ...
#~
candidate.effects[1,  ]
#~get ".Data/candidate.effects" 854019111 ...
#~put ".Data/.Last.value" 856352000 ...
#~
q()
#~End session: Time: 856351943; Process: 1513
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Feb 20 10:35:22 1997
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
dim(ideo2.data)
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 856452991 ...
#~
sum(is.na(ideo2.data))
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 856453009 ...
#~
for(i in 1:10^5) {
}
#~
for(i in 1:10^6) {
}
#~
dum <- function(a)
{
	print(date())
	for(i in 1:a) {
	}
	print(date)
}
#~put ".Data/dum" 856454053 ...
#~
dum(10^6)
#~put ".Data/.Last.value" 856454071 ...
#~
dum <- function(a)
{
	print(date())
	for(i in 1:a) {
	}
	date()
}
#~put ".Data/dum" 856454114 ...
#~
dum(10^6)
#~put ".Data/.Last.value" 856454131 ...
#~
dum(10^5)
#~put ".Data/.Last.value" 856454179 ...
#~
dum(2 * 10^6)
#~error: Cannot allocate 8000000 bytes: options("object.size") is 5000000: see options help file
#~put ".Data/last.dump" 856454341 ...
#~
q()
#~End session: Time: 856454378; Process: 1412
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Fri Nov  6 10:43:30 1998
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
.System("emacs regress.sfun&")
#~put ".Data/.Last.value" 910367023 ...
#~
.System("emacs explore.sfun&")
#~put ".Data/.Last.value" 910367036 ...
#~
ls()
#~put ".Data/.Last.value" 910367051 ...
#~
dim(data1)
#~error: Object "data1" not found
#~
dim(data2)
#~get ".Data/data2" 854106218 ...
#~put ".Data/.Last.value" 910367065 ...
#~
data2[1,  ]
#~get ".Data/data2" 854106218 ...
#~put ".Data/.Last.value" 910367068 ...
#~
data2[1:4,  ]
#~get ".Data/data2" 854106218 ...
#~put ".Data/.Last.value" 910367075 ...
#~
q()
#~End session: Time: 910367106; Process: 24762
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Tue Nov 24 15:17:44 1998
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
log(2.5)
#~put ".Data/.Last.value" 911938670 ...
#~
22/sqrt(33)
#~put ".Data/.Last.value" 911938823 ...
#~
11.5/sqrt(8)
#~put ".Data/.Last.value" 911938864 ...
#~
4/sqrt(22)
#~put ".Data/.Last.value" 911938873 ...
#~
32/sqrt(35)
#~put ".Data/.Last.value" 911938884 ...
#~
1.7^2
#~put ".Data/.Last.value" 911939013 ...
#~
log(3.89)
#~put ".Data/.Last.value" 911939024 ...
#~
1.3/4
#~put ".Data/.Last.value" 911939149 ...
#~
1.3/sqrt(8)
#~put ".Data/.Last.value" 911939220 ...
#~
exp(0.92)
#~put ".Data/.Last.value" 911939286 ...
#~
exp(1.76)
#~put ".Data/.Last.value" 911939519 ...
#~
exp(1.29)
#~put ".Data/.Last.value" 911939685 ...
#~
1.3/sqrt(160)
#~put ".Data/.Last.value" 911940335 ...
#~
1.3/sqrt(10)
#~put ".Data/.Last.value" 911940388 ...
#~
3.5 * 0.41
#~put ".Data/.Last.value" 911940500 ...
#~
exp(1.4)
#~put ".Data/.Last.value" 911940540 ...
#~
q()
#~End session: Time: 911940572; Process: 7185
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Tue Nov 24 15:49:55 1998
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
log(15)
#~put ".Data/.Last.value" 911940598 ...
#~
log(3)
#~put ".Data/.Last.value" 911940604 ...
#~
(1.76 + 1.42)/2
#~put ".Data/.Last.value" 911940693 ...
#~
(0.3 + 1.35)/2
#~put ".Data/.Last.value" 911940704 ...
#~
1.59 - 0.825
#~put ".Data/.Last.value" 911940723 ...
#~
q()
#~End session: Time: 911940830; Process: 7417
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Tue Nov 24 15:55:13 1998
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
(2 * 1.3)/sqrt(10)
#~put ".Data/.Last.value" 911940919 ...
#~
q()
#~End session: Time: 911941014; Process: 7428
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Tue Nov 24 15:57:58 1998
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
exp(0.82)
#~put ".Data/.Last.value" 911941083 ...
#~
mail
#~error: Object "mail" not found
#~
q()
#~End session: Time: 911952283; Process: 7438
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Wed Nov 25 09:42:24 1998
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
nixon <- read.table("nixon_impeach.codebook", header = T)
#~error: variable number of fields: 3, 4, 8, 13, 6, 5, 7, 9, 11, 10, 12
#~put ".Data/last.dump" 912005008 ...
#~
q()
#~End session: Time: 912005023; Process: 20025
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Wed Nov 25 09:44:02 1998
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
help
#~
help()
#~put ".Data/.Last.value" 912005051 ...
#~
help.start()
#~put ".Data/.Last.value" 912005057 ...
#~
q()
#~End session: Time: 912005459; Process: 20035
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Fri Nov 27 10:16:30 1998
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
nixon.data <- read.table("nixon_impeach2.dat", sep = "\t", as.is = T, header = 
	T)
#~put ".Data/nixon.data" 912179794 ...
#~
dim(nixon.data)
#~get ".Data/nixon.data" 912179794 ...
#~put ".Data/.Last.value" 912179804 ...
#~
nixon.data[1:3,  ]
#~get ".Data/nixon.data" 912179794 ...
#~put ".Data/.Last.value" 912179810 ...
#~
q()
#~End session: Time: 912180552; Process: 22316
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Fri Nov 27 10:29:15 1998
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
nixon.data[1:3,  ]
#~get ".Data/nixon.data" 912179794 ...
#~put ".Data/.Last.value" 912180558 ...
#~
options()
#~put ".Data/.Last.value" 912180563 ...
#~
options(width = 120)
#~put ".Data/.Last.value" 912180579 ...
#~
nixon.data[1:3,  ]
#~get ".Data/nixon.data" 912179794 ...
#~put ".Data/.Last.value" 912180581 ...
#~
nixon.data[1:20,  ]
#~get ".Data/nixon.data" 912179794 ...
#~put ".Data/.Last.value" 912180587 ...
#~
cond <- nixon.data[, "judiciar"] == 1
#~get ".Data/nixon.data" 912179794 ...
#~put ".Data/cond" 912180684 ...
#~
cond[1:10]
#~get ".Data/cond" 912180684 ...
#~put ".Data/.Last.value" 912180687 ...
#~
table(nixon.data[, "judiciar"])
#~get ".Data/nixon.data" 912179794 ...
#~put ".Data/.Last.value" 912180727 ...
#~
nixon <- read.table("nixon_impeach2.dat", sep = "\t", as.is = T, header = T)
#~put ".Data/nixon" 912180791 ...
#~
nixon[, "judiciar"] <- ifelse(is.na(nixon[, "judiciar"]), 0, nixon[, "judiciar"])
#~get ".Data/nixon" 912180791 ...
#~put ".Data/nixon" 912180792 ...
#~
cond <- nixon[, "judiciar"] != 0
#~get ".Data/nixon" 912180792 ...
#~put ".Data/cond" 912180792 ...
#~
table(nixon[, "judiciar"])
#~get ".Data/nixon" 912180792 ...
#~put ".Data/.Last.value" 912180805 ...
#~
sum(cond)
#~get ".Data/cond" 912180792 ...
#~put ".Data/.Last.value" 912180809 ...
#~
nixon[cond, "name"]
#~get ".Data/nixon" 912180792 ...
#~get ".Data/cond" 912180792 ...
#~put ".Data/.Last.value" 912180828 ...
#~
nixon[1:20,  ]
#~get ".Data/nixon" 912180792 ...
#~put ".Data/.Last.value" 912180860 ...
#~
table(nixon[, "inc"])
#~get ".Data/nixon" 912180792 ...
#~put ".Data/.Last.value" 912180929 ...
#~
nixon[nixon[, "inc"] == 4,  ]
#~get ".Data/nixon" 912180792 ...
#~put ".Data/.Last.value" 912180998 ...
#~
party <- ifelse(inc == 0 | inc == 3, "Rep", "Dem")
#~error: Object "inc" not found
#~put ".Data/last.dump" 912181072 ...
#~
cbind(nixon[cond, c("name", "judiciar")], party[cond])
#~error: Object "party" not found
#~
party <- ifelse(nixon[, "inc"] == 0 | nixon[, "inc"] == 3, "Rep", "Dem")
#~get ".Data/nixon" 912180792 ...
#~put ".Data/party" 912181106 ...
#~
judic <- cbind(nixon[cond, c("name", "judiciar")], party[cond])
#~get ".Data/nixon" 912180792 ...
#~get ".Data/cond" 912180792 ...
#~get ".Data/party" 912181106 ...
#~put ".Data/judic" 912181106 ...
#~
judic
#~get ".Data/judic" 912181106 ...
#~
write
#~
write(judic, "judiciary.asc", ncol = 3)
#~get ".Data/judic" 912181106 ...
#~
q()
#~End session: Time: 912181188; Process: 22364
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Fri Nov 27 10:39:56 1998
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
judic <- as.matrix(cbind(nixon[cond, c("name", "judiciar")], party[cond]))
#~get ".Data/nixon" 912180792 ...
#~get ".Data/cond" 912180792 ...
#~get ".Data/party" 912181106 ...
#~put ".Data/judic" 912181218 ...
#~
judic
#~get ".Data/judic" 912181218 ...
#~
ls()
#~put ".Data/.Last.value" 912181483 ...
#~
dim(ideo2.data)
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 912181496 ...
#~
ideo2.data[1:10,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 912181505 ...
#~
nixon[1:3,  ]
#~get ".Data/nixon" 912180792 ...
#~put ".Data/.Last.value" 912181627 ...
#~
sum(is.na(dvp))
#~error: Object "dvp" not found
#~
sum(is.na(nixon[, "dvp"]))
#~get ".Data/nixon" 912180792 ...
#~put ".Data/.Last.value" 912181642 ...
#~
judic <- cbind(nixon[cond, c("name", "judiciar")], party[cond])
#~get ".Data/nixon" 912180792 ...
#~get ".Data/cond" 912180792 ...
#~get ".Data/party" 912181106 ...
#~put ".Data/judic" 912181663 ...
#~
judic
#~get ".Data/judic" 912181663 ...
#~
nixon[41,  ]
#~get ".Data/nixon" 912180792 ...
#~put ".Data/.Last.value" 912181671 ...
#~
q()
#~End session: Time: 912181778; Process: 22377
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Mon Nov 30 09:56:18 1998
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
options(width = 120)
#~put ".Data/.Last.value" 912437782 ...
#~
nixon[39:43,  ]
#~get ".Data/nixon" 912180792 ...
#~put ".Data/.Last.value" 912437791 ...
#~
ls()
#~put ".Data/.Last.value" 912437819 ...
#~
dim(ideo.data)
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 912437825 ...
#~
dim(ideo2.data)
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 912437828 ...
#~
ideo2.data[1:2,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 912437833 ...
#~
cond <- ideo2.data[, "year"] == 74 & ideo2.data[, "stalpha"] == "CALIFORNIA\n"
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/cond" 912437946 ...
#~
ideo2.data[cond,  ][23:27]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/cond" 912437946 ...
#~put ".Data/.Last.value" 912437959 ...
#~
sum(cond)
#~get ".Data/cond" 912437946 ...
#~put ".Data/.Last.value" 912437963 ...
#~
ideo2.data[15,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 912437978 ...
#~
ideo2.data[25,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 912437982 ...
#~
cond <- ideo2.data[, "year"] == 74 & ideo2.data[, "stalpha"] == "CALIFOR"
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/cond" 912437988 ...
#~
ideo2.data[cond,  ][23:27]
#~error: Invalid value for dimension 2
#~
sum(cond)
#~get ".Data/cond" 912437988 ...
#~put ".Data/.Last.value" 912437996 ...
#~
ideo2.data[cond,  ][23:27,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/cond" 912437988 ...
#~put ".Data/.Last.value" 912438003 ...
#~
nixon[39:43,  ]
#~get ".Data/nixon" 912180792 ...
#~put ".Data/.Last.value" 912438009 ...
#~
q()
#~End session: Time: 913301286; Process: 24298
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Dec 10 09:48:35 1998
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
options(width = 120)
#~put ".Data/.Last.value" 913301343 ...
#~
wigg <- nixon[, "name"] == "WIGGINS, CHARLES E. "
#~get ".Data/nixon" 912180792 ...
#~put ".Data/wigg" 913301391 ...
#~
nixon[wigg,  ]
#~get ".Data/nixon" 912180792 ...
#~get ".Data/wigg" 913301391 ...
#~put ".Data/.Last.value" 913301395 ...
#~
wigg <- nixon[, "name"] == "WIGGINS, CHARLES E."
#~get ".Data/nixon" 912180792 ...
#~put ".Data/wigg" 913301405 ...
#~
nixon[wigg,  ]
#~get ".Data/nixon" 912180792 ...
#~get ".Data/wigg" 913301405 ...
#~put ".Data/.Last.value" 913301408 ...
#~
.System("ls")
#~put ".Data/.Last.value" 913301517 ...
#~
.System("emacs nixon_impeach.codebook&")
#~put ".Data/.Last.value" 913301529 ...
#~
wigg.old <- nixon[, "cd"] == 25 & nixon[, "state"] == "CA"
#~get ".Data/nixon" 912180792 ...
#~put ".Data/wigg.old" 913301652 ...
#~
wigg.new <- nixon[, "cd"] == 39 & nixon[, "state"] == "CA"
#~get ".Data/nixon" 912180792 ...
#~put ".Data/wigg.new" 913301652 ...
#~
temp <- nixon[wigg.old,  ]
#~get ".Data/nixon" 912180792 ...
#~get ".Data/wigg.old" 913301652 ...
#~put ".Data/temp" 913301652 ...
#~
nixon[c(wigg.old, wigg.new),  ]
#~get ".Data/nixon" 912180792 ...
#~get ".Data/wigg.old" 913301652 ...
#~get ".Data/wigg.new" 913301652 ...
#~put ".Data/.Last.value" 913301662 ...
#~
nixon[41:60,  ]
#~get ".Data/nixon" 912180792 ...
#~put ".Data/.Last.value" 913301686 ...
#~
wigg.old <- nixon[, "cd"] == 25 & nixon[, "state"] == "CA"
#~get ".Data/nixon" 912180792 ...
#~put ".Data/wigg.old" 913301727 ...
#~
wigg.new <- 55
#~put ".Data/wigg.new" 913301727 ...
#~
nixon[c(wigg.old, wigg.new),  ]
#~get ".Data/nixon" 912180792 ...
#~get ".Data/wigg.old" 913301727 ...
#~get ".Data/wigg.new" 913301727 ...
#~put ".Data/.Last.value" 913301731 ...
#~
wigg.old <- nixon[, "cd"] == 25 & nixon[, "stgj"] == 5
#~get ".Data/nixon" 912180792 ...
#~put ".Data/wigg.old" 913301777 ...
#~
wigg.new <- nixon[, "cd"] == 25 & nixon[, "stgj"] == 5
#~get ".Data/nixon" 912180792 ...
#~put ".Data/wigg.new" 913301777 ...
#~
nixon[c(wigg.old, wigg.new),  ]
#~get ".Data/nixon" 912180792 ...
#~get ".Data/wigg.old" 913301777 ...
#~get ".Data/wigg.new" 913301777 ...
#~put ".Data/.Last.value" 913301780 ...
#~
nixon[c(41, 55),  ]
#~get ".Data/nixon" 912180792 ...
#~put ".Data/.Last.value" 913301797 ...
#~
wigg.old <- 41
#~put ".Data/wigg.old" 913301821 ...
#~
wigg.new <- 55
#~put ".Data/wigg.new" 913301821 ...
#~
nixon[c(wigg.old, wigg.new),  ]
#~get ".Data/nixon" 912180792 ...
#~get ".Data/wigg.old" 913301821 ...
#~get ".Data/wigg.new" 913301821 ...
#~put ".Data/.Last.value" 913301824 ...
#~
temp <- nixon[wigg.old,  ]
#~get ".Data/nixon" 912180792 ...
#~get ".Data/wigg.old" 913301821 ...
#~put ".Data/temp" 913301840 ...
#~
columns <- c("imp.info", "judiciar", "name", "position")
#~put ".Data/columns" 913301840 ...
#~
nixon[wigg.old, columns] <- nixon[wigg.new, columns]
#~get ".Data/nixon" 912180792 ...
#~put ".Data/nixon" 913301840 ...
#~get ".Data/wigg.new" 913301821 ...
#~get ".Data/columns" 913301840 ...
#~get ".Data/wigg.old" 913301821 ...
#~
nixon[wigg.old, columns] <- temp[, columns]
#~get ".Data/temp" 913301840 ...
#~get ".Data/columns" 913301840 ...
#~get ".Data/nixon" 913301840 ...
#~put ".Data/nixon" 913301841 ...
#~get ".Data/wigg.old" 913301821 ...
#~
nixon[c(wigg.old, wigg.new),  ]
#~get ".Data/nixon" 913301841 ...
#~get ".Data/wigg.old" 913301821 ...
#~get ".Data/wigg.new" 913301821 ...
#~put ".Data/.Last.value" 913301847 ...
#~
q()
#~End session: Time: 913301871; Process: 14855
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Tue Dec 22 15:02:49 1998
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
dim(ideo2.data)
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 914356988 ...
#~
ideo2.data[1:10,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 914357062 ...
#~
Splus
#~error: Object "Splus" not found
#~
help.start()
#~put ".Data/.Last.value" 914357793 ...
#~
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Dec 24 10:53:51 1998
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
nixon <- read.table("nixon_impeach2.dat", sep = "\t", as.is = T, header = T)
#~put ".Data/nixon" 914514836 ...
#~
nixon[, "judiciar"] <- ifelse(is.na(nixon[, "judiciar"]), 0, nixon[, "judiciar"
	])
#~get ".Data/nixon" 914514836 ...
#~put ".Data/nixon" 914514837 ...
#~
cond <- nixon[, "judiciar"] != 0
#~get ".Data/nixon" 914514837 ...
#~put ".Data/cond" 914514837 ...
#~
party <- ifelse(nixon[, "inc"] == 0 | nixon[, "inc"] == 3, "Rep", "Dem")
#~get ".Data/nixon" 914514837 ...
#~put ".Data/party" 914514837 ...
#~
judic <- cbind(nixon[cond, c("name", "judiciar")], party[cond])
#~get ".Data/nixon" 914514837 ...
#~get ".Data/cond" 914514837 ...
#~get ".Data/party" 914514837 ...
#~put ".Data/judic" 914514838 ...
#~
dim(judic)
#~get ".Data/judic" 914514838 ...
#~put ".Data/.Last.value" 914514841 ...
#~
judic
#~get ".Data/judic" 914514838 ...
#~
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Sun Jan 17 12:58:46 1999
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
judic <- read.table("judiciaryinput.asc", header = T)
#~put ".Data/judic" 916595933 ...
#~
judic
#~get ".Data/judic" 916595933 ...
#~
q()
#~End session: Time: 916596058; Process: 5273
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Sun Jan 17 13:02:52 1999
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
judic <- read.table("judiciaryinput.asc", header = T)
#~put ".Data/judic" 916596176 ...
#~
judic
#~get ".Data/judic" 916596176 ...
#~
nixon[1:10,  ]
#~get ".Data/nixon" 914514837 ...
#~put ".Data/.Last.value" 916596187 ...
#~
nixon[1:3,  ]
#~get ".Data/nixon" 914514837 ...
#~put ".Data/.Last.value" 916596204 ...
#~
judic[1:3,  ]
#~get ".Data/judic" 916596176 ...
#~put ".Data/.Last.value" 916596208 ...
#~
n <- nrow(nixon)
#~get ".Data/nixon" 914514837 ...
#~put ".Data/n" 916596273 ...
#~
article1 <- rep(0, n)
#~get ".Data/n" 916596273 ...
#~put ".Data/article1" 916596276 ...
#~
article2 <- rep(0, n)
#~get ".Data/n" 916596273 ...
#~put ".Data/article2" 916596276 ...
#~
article3 <- rep(0, n)
#~get ".Data/n" 916596273 ...
#~put ".Data/article3" 916596276 ...
#~
nixon <- cbind(nixon, party, article1, article2, article3)
#~get ".Data/nixon" 914514837 ...
#~put ".Data/nixon" 916596277 ...
#~get ".Data/party" 914514837 ...
#~get ".Data/article1" 916596276 ...
#~get ".Data/article2" 916596276 ...
#~get ".Data/article3" 916596276 ...
#~
nixon[1:3,  ]
#~get ".Data/nixon" 916596277 ...
#~put ".Data/.Last.value" 916596280 ...
#~
col.names(nixon)
#~error: couldn't find function "col.names"
#~
names(nixon)
#~get ".Data/nixon" 916596277 ...
#~put ".Data/.Last.value" 916596322 ...
#~
judic[1:3,  ]
#~get ".Data/judic" 916596176 ...
#~put ".Data/.Last.value" 916596379 ...
#~
names(nixon)[18:22] <- c("party", "article1", "article2", "article3")
#~error:   
#~put ".Data/last.dump" 916596423 ...
#~
names(nixon)[18:21] <- c("party", "article1", "article2", "article3")
#~get ".Data/nixon" 916596277 ...
#~put ".Data/nixon" 916596437 ...
#~
nixon[1:3,  ]
#~get ".Data/nixon" 916596437 ...
#~put ".Data/.Last.value" 916596440 ...
#~
for(i in 1:nrow(judic))
	nixon[judic[i, "number"], c("party", "article1", "article2", "article3"
		)] <- judic[i, c("party", "article1", "article2", "article3")]
#~get ".Data/judic" 916596176 ...
#~get ".Data/nixon" 916596437 ...
#~put ".Data/nixon" 916596447 ...
#~
nixon[1:3,  ]
#~get ".Data/nixon" 916596447 ...
#~put ".Data/.Last.value" 916596462 ...
#~
nixon[1:10,  ]
#~get ".Data/nixon" 916596447 ...
#~put ".Data/.Last.value" 916596468 ...
#~
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Sun Jan 24 11:42:59 1999
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
source("nixon.S")
#~put ".Data/nixon" 917196189 ...
#~put ".Data/n" 917196189 ...
#~put ".Data/cond" 917196189 ...
#~put ".Data/party" 917196189 ...
#~put ".Data/judic0" 917196189 ...
#~put ".Data/judic" 917196189 ...
#~put ".Data/article1" 917196189 ...
#~put ".Data/article2" 917196189 ...
#~put ".Data/article3" 917196190 ...
#~put ".Data/.Last.value" 917196190 ...
#~
nixon[1:3,  ]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/.Last.value" 917196262 ...
#~
nixon[1:10,  ]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/.Last.value" 917196274 ...
#~
table(nixon["judiciar"])
#~error: mode "list" not valid for matching
#~put ".Data/last.dump" 917196689 ...
#~
table(nixon[, "judiciar"])
#~get ".Data/nixon" 917196189 ...
#~put ".Data/.Last.value" 917196695 ...
#~
table(nixon[, "judiciar"], nixon[, "imp_info"])
#~error: undefined columns selected
#~put ".Data/last.dump" 917196713 ...
#~
nixon[1,  ]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/.Last.value" 917196720 ...
#~
table(nixon[, "judiciar"], nixon[, "imp.info"])
#~get ".Data/nixon" 917196189 ...
#~put ".Data/.Last.value" 917196726 ...
#~
table(nixon[, "judiciar"], nixon[, "imp.info"], nixon[, "position"])
#~get ".Data/nixon" 917196189 ...
#~put ".Data/.Last.value" 917196766 ...
#~
table(nixon[, "imp.info"], nixon[, "position"])
#~get ".Data/nixon" 917196189 ...
#~put ".Data/.Last.value" 917196775 ...
#~
table(nixon[, "imp.info"])
#~get ".Data/nixon" 917196189 ...
#~put ".Data/.Last.value" 917196792 ...
#~
nixon[1:10,  ]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/.Last.value" 917196907 ...
#~
judic.score <- nixon[, "article1"] + nixon[, "article3"] + nixon[, "article3"]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/judic.score" 917196966 ...
#~
impeach.score
#~error: Object "impeach.score" not found
#~
table(judic.score)
#~get ".Data/judic.score" 917196966 ...
#~put ".Data/.Last.value" 917196979 ...
#~
table(nixon[, "party"], judic.score)
#~get ".Data/nixon" 917196189 ...
#~get ".Data/judic.score" 917196966 ...
#~put ".Data/.Last.value" 917196994 ...
#~
nixon[1:10,  ]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/.Last.value" 917197056 ...
#~
help.start()
#~put ".Data/.Last.value" 917197104 ...
#~
nixon[1:10,  ]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/.Last.value" 917197173 ...
#~
year <- 74
#~put ".Data/year" 917197394 ...
#~
yr.cond <- ideo.data[, "year"] == year
#~get ".Data/ideo.data" 855055907 ...
#~get ".Data/year" 917197394 ...
#~put ".Data/yr.cond" 917197395 ...
#~
data <- ideo.data[yr.cond,  ]
#~get ".Data/ideo.data" 855055907 ...
#~get ".Data/yr.cond" 917197395 ...
#~put ".Data/data" 917197395 ...
#~
deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[, "inc"]) == 1)
#~get ".Data/data" 917197395 ...
#~put ".Data/deminc.cond" 917197395 ...
#~
repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[, "inc"]) == 1)
#~get ".Data/data" 917197395 ...
#~put ".Data/repinc.cond" 917197395 ...
#~
dim(nixon)
#~get ".Data/nixon" 917196189 ...
#~put ".Data/.Last.value" 917197399 ...
#~
dim(data)
#~get ".Data/data" 917197395 ...
#~put ".Data/.Last.value" 917197401 ...
#~
nixon[1:3,  ]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/.Last.value" 917197407 ...
#~
data[1:3,  ]
#~get ".Data/data" 917197395 ...
#~put ".Data/.Last.value" 917197413 ...
#~
nixon.id <- 100 * nixon[, "stgj"] + nixon[, "cd"]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/nixon.id" 917197500 ...
#~
data.id <- 100 * data[, "stgj"] + data[, "cd"]
#~get ".Data/data" 917197395 ...
#~put ".Data/data.id" 917197500 ...
#~
cbind(nixon.id, data.id)
#~get ".Data/nixon.id" 917197500 ...
#~get ".Data/data.id" 917197500 ...
#~put ".Data/.Last.value" 917197511 ...
#~
cond <- data[, "stgj"] == 5
#~get ".Data/data" 917197395 ...
#~put ".Data/cond" 917197596 ...
#~
data[cond,  ]
#~get ".Data/data" 917197395 ...
#~get ".Data/cond" 917197596 ...
#~put ".Data/.Last.value" 917197601 ...
#~
nixon[cond,  ]
#~get ".Data/nixon" 917196189 ...
#~get ".Data/cond" 917197596 ...
#~put ".Data/.Last.value" 917197629 ...
#~
year <- 74
#~put ".Data/year" 917197696 ...
#~
yr.cond <- ideo.data2[, "year"] == year
#~error: Object "ideo.data2" not found
#~
data <- ideo.data2[yr.cond,  ]
#~error: Object "ideo.data2" not found
#~
deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[, "inc"]) == 1)
#~get ".Data/data" 917197395 ...
#~put ".Data/deminc.cond" 917197696 ...
#~
repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[, "inc"]) == 1)
#~get ".Data/data" 917197395 ...
#~put ".Data/repinc.cond" 917197696 ...
#~
nixon.id <- 100 * nixon[, "stgj"] + nixon[, "cd"]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/nixon.id" 917197696 ...
#~
data.id <- 100 * data[, "stgj"] + data[, "cd"]
#~get ".Data/data" 917197395 ...
#~put ".Data/data.id" 917197697 ...
#~
year <- 74
#~put ".Data/year" 917197705 ...
#~
yr.cond <- ideo.data[, "year"] == year
#~get ".Data/ideo.data" 855055907 ...
#~get ".Data/year" 917197705 ...
#~put ".Data/yr.cond" 917197705 ...
#~
data <- ideo.data[yr.cond,  ]
#~get ".Data/ideo.data" 855055907 ...
#~get ".Data/yr.cond" 917197705 ...
#~put ".Data/data" 917197705 ...
#~
deminc.cond <- (data[, "dvp"] > 0.5) & (abs(data[, "inc"]) == 1)
#~get ".Data/data" 917197705 ...
#~put ".Data/deminc.cond" 917197706 ...
#~
repinc.cond <- (data[, "dvp"] < 0.5) & (abs(data[, "inc"]) == 1)
#~get ".Data/data" 917197705 ...
#~put ".Data/repinc.cond" 917197706 ...
#~
nixon.id <- 100 * nixon[, "stgj"] + nixon[, "cd"]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/nixon.id" 917197706 ...
#~
data.id <- 100 * data[, "stgj"] + data[, "cd"]
#~get ".Data/data" 917197705 ...
#~put ".Data/data.id" 917197706 ...
#~
data[1:10,  ]
#~get ".Data/data" 917197705 ...
#~put ".Data/.Last.value" 917197720 ...
#~
cond <- data.id == 35
#~get ".Data/data.id" 917197706 ...
#~put ".Data/cond" 917197855 ...
#~
cond
#~get ".Data/cond" 917197855 ...
#~
sum(cond)
#~get ".Data/cond" 917197855 ...
#~put ".Data/.Last.value" 917197860 ...
#~
cond <- data.id == 350
#~get ".Data/data.id" 917197706 ...
#~put ".Data/cond" 917197864 ...
#~
sum(cond)
#~get ".Data/cond" 917197864 ...
#~put ".Data/.Last.value" 917197865 ...
#~
cond <- data.id == 525
#~get ".Data/data.id" 917197706 ...
#~put ".Data/cond" 917197872 ...
#~
sum(cond)
#~get ".Data/cond" 917197872 ...
#~put ".Data/.Last.value" 917197875 ...
#~
data.id[cond]
#~get ".Data/data.id" 917197706 ...
#~get ".Data/cond" 917197872 ...
#~put ".Data/.Last.value" 917197906 ...
#~
data[1:3,  ]
#~get ".Data/data" 917197705 ...
#~put ".Data/.Last.value" 917197926 ...
#~
nixon[1:3,  ]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/.Last.value" 917198174 ...
#~
poole <- rep(NA, n)
#~get ".Data/n" 917196189 ...
#~put ".Data/poole" 917198449 ...
#~
normvote <- rep(NA, n)
#~get ".Data/n" 917196189 ...
#~put ".Data/normvote" 917198449 ...
#~
for(i in 1:n) {
	cond <- data.id == data.id[i]
	if(sum(cond) == 1) {
		poole[i] <- data[cond, "score1"]
		normvote[i] <- data[cond, "normvote"]
	}
}
#~error: Missing value where logical needed
#~
data[1:3,  ]
#~get ".Data/data" 917197705 ...
#~put ".Data/.Last.value" 917198485 ...
#~
poole <- rep(NA, n)
#~get ".Data/n" 917196189 ...
#~put ".Data/poole" 917198500 ...
#~
normvote <- rep(NA, n)
#~get ".Data/n" 917196189 ...
#~put ".Data/normvote" 917198500 ...
#~
for(i in 1:n) {
	cond <- data.id == data.id[i]
	if(sum(cond) == 1) {
		print(i)
		poole[i] <- data[cond, "score1"]
		normvote[i] <- data[cond, "normvote"]
	}
}
#~error: Missing value where logical needed
#~
i <- 432
#~put ".Data/i" 917198517 ...
#~
cond <- data.id == data.id[i]
#~get ".Data/data.id" 917197706 ...
#~get ".Data/i" 917198517 ...
#~put ".Data/cond" 917198523 ...
#~
poole <- rep(NA, n)
#~get ".Data/n" 917196189 ...
#~put ".Data/poole" 917198541 ...
#~
normvote <- rep(NA, n)
#~get ".Data/n" 917196189 ...
#~put ".Data/normvote" 917198541 ...
#~
for(i in 1:n) {
	cond <- data.id == nixon.id[i]
	if(sum(cond) == 1) {
		poole[i] <- data[cond, "score1"]
		normvote[i] <- data[cond, "normvote"]
	}
}
#~get ".Data/n" 917196189 ...
#~get ".Data/data.id" 917197706 ...
#~get ".Data/nixon.id" 917197706 ...
#~put ".Data/cond" 917198547 ...
#~get ".Data/data" 917197705 ...
#~get ".Data/poole" 917198541 ...
#~put ".Data/poole" 917198547 ...
#~get ".Data/normvote" 917198541 ...
#~put ".Data/normvote" 917198547 ...
#~
missing <- is.na(poole)
#~get ".Data/poole" 917198547 ...
#~put ".Data/missing" 917198557 ...
#~
party.num <- ifelse(party == "Dem", 1, -1)
#~get ".Data/party" 917196189 ...
#~put ".Data/party.num" 917198557 ...
#~
dvp <- nixon[, "dvp"]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/dvp" 917198557 ...
#~
lm.temp <- lm(poole ~ party.num + dvp, subset = !missing)
#~error: missing values not allowed: found in dvp
#~put ".Data/last.dump" 917198558 ...
#~
newdata <- cbind(party.num[missing], dvp[missing])
#~get ".Data/party.num" 917198557 ...
#~get ".Data/missing" 917198557 ...
#~get ".Data/dvp" 917198557 ...
#~put ".Data/newdata" 917198558 ...
#~
poole[missing] <- predict.lm(lm.temp, newdata, type = "response")
#~error: Object "lm.temp" not found
#~put ".Data/last.dump" 917198558 ...
#~
dvp
#~get ".Data/dvp" 917198557 ...
#~
notmissing <- !is.na(poole) & !is.na(dvp)
#~get ".Data/poole" 917198547 ...
#~get ".Data/dvp" 917198557 ...
#~put ".Data/notmissing" 917198632 ...
#~
lm.temp <- lm(poole ~ party.num + dvp, subset = notmissing)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/poole" 917198547 ...
#~get ".Data/party.num" 917198557 ...
#~get ".Data/dvp" 917198557 ...
#~get ".Data/notmissing" 917198632 ...
#~put ".Data/lm.temp" 917198632 ...
#~
newdata <- cbind(party.num[missing], dvp[missing])
#~get ".Data/party.num" 917198557 ...
#~get ".Data/missing" 917198557 ...
#~get ".Data/dvp" 917198557 ...
#~put ".Data/newdata" 917198636 ...
#~
poole[missing] <- predict.lm(lm.temp, newdata, type = "response")
#~error: Argument "newdata" is not a data frame, and cannot be coerced to an appropriate model matrix
#~put ".Data/last.dump" 917198636 ...
#~
lm.temp$coef
#~get ".Data/lm.temp" 917198632 ...
#~put ".Data/.Last.value" 917198656 ...
#~
newdata <- cbind(party.num[missing], dvp[missing])
#~get ".Data/party.num" 917198557 ...
#~get ".Data/missing" 917198557 ...
#~get ".Data/dvp" 917198557 ...
#~put ".Data/newdata" 917205967 ...
#~
newdata
#~get ".Data/newdata" 917205967 ...
#~
newdata <- cbind(c(1, 1, 1), party.num[missing], dvp[missing])
#~get ".Data/party.num" 917198557 ...
#~get ".Data/missing" 917198557 ...
#~get ".Data/dvp" 917198557 ...
#~put ".Data/newdata" 917205982 ...
#~
poole[missing] <- newdata %*% lm.tem$coef
#~error: Object "lm.tem" not found
#~put ".Data/last.dump" 917205982 ...
#~
newdata <- cbind(c(1, 1, 1), party.num[missing], dvp[missing])
#~get ".Data/party.num" 917198557 ...
#~get ".Data/missing" 917198557 ...
#~get ".Data/dvp" 917198557 ...
#~put ".Data/newdata" 917205990 ...
#~
poole[missing] <- newdata %*% lm.temp$coef
#~get ".Data/newdata" 917205990 ...
#~get ".Data/lm.temp" 917198632 ...
#~get ".Data/poole" 917198547 ...
#~put ".Data/poole" 917205990 ...
#~get ".Data/missing" 917198557 ...
#~
sum(missing)
#~get ".Data/missing" 917198557 ...
#~put ".Data/.Last.value" 917205995 ...
#~
poole[1:3]
#~get ".Data/poole" 917205990 ...
#~put ".Data/.Last.value" 917206000 ...
#~
poole[missing]
#~get ".Data/poole" 917205990 ...
#~get ".Data/missing" 917198557 ...
#~put ".Data/.Last.value" 917206003 ...
#~
range(poole)
#~get ".Data/poole" 917205990 ...
#~put ".Data/.Last.value" 917206006 ...
#~
party.num <- ifelse(party == "Dem", 1, -1)
#~get ".Data/party" 917196189 ...
#~put ".Data/party.num" 917206399 ...
#~
dvp <- nixon[, "dvp"]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/dvp" 917206399 ...
#~
missing <- is.na(poole)
#~get ".Data/poole" 917205990 ...
#~put ".Data/missing" 917206399 ...
#~
lm.temp <- lm(poole ~ party.num + dvp, subset = (!missing & !is.na(dvp)))
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/poole" 917205990 ...
#~get ".Data/party.num" 917206399 ...
#~get ".Data/dvp" 917206399 ...
#~get ".Data/missing" 917206399 ...
#~put ".Data/lm.temp" 917206400 ...
#~
newdata <- cbind(rep(1, sum(missing)), party.num[missing], dvp[missing])
#~get ".Data/missing" 917206399 ...
#~get ".Data/party.num" 917206399 ...
#~get ".Data/dvp" 917206399 ...
#~put ".Data/newdata" 917206400 ...
#~
poole[missing] <- newdata %*% lm.temp$coef
#~error: Invalid value for dimension 2
#~put ".Data/last.dump" 917206400 ...
#~
party.num <- ifelse(party == "Dem", 1, -1)
#~get ".Data/party" 917196189 ...
#~put ".Data/party.num" 917206410 ...
#~
dvp <- nixon[, "dvp"]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/dvp" 917206410 ...
#~
missing <- is.na(poole)
#~get ".Data/poole" 917205990 ...
#~put ".Data/missing" 917206410 ...
#~
lm.temp <- lm(poole ~ party.num + dvp, subset = (!missing & !is.na(dvp)))
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/poole" 917205990 ...
#~get ".Data/party.num" 917206410 ...
#~get ".Data/dvp" 917206410 ...
#~get ".Data/missing" 917206410 ...
#~put ".Data/lm.temp" 917206410 ...
#~
newdata <- cbind(rep(1, sum(missing)), party.num[missing], dvp[missing])
#~get ".Data/missing" 917206410 ...
#~get ".Data/party.num" 917206410 ...
#~get ".Data/dvp" 917206410 ...
#~put ".Data/newdata" 917206416 ...
#~
sum(missing)
#~get ".Data/missing" 917206410 ...
#~put ".Data/.Last.value" 917206423 ...
#~
poole <- rep(NA, n)
#~get ".Data/n" 917196189 ...
#~put ".Data/poole" 917206437 ...
#~
normvote <- rep(NA, n)
#~get ".Data/n" 917196189 ...
#~put ".Data/normvote" 917206437 ...
#~
for(i in 1:n) {
	cond <- data.id == nixon.id[i]
	if(sum(cond) == 1) {
		poole[i] <- data[cond, "score1"]
		normvote[i] <- data[cond, "normvote"]
	}
}
#~get ".Data/n" 917196189 ...
#~get ".Data/data.id" 917197706 ...
#~get ".Data/nixon.id" 917197706 ...
#~put ".Data/cond" 917206445 ...
#~get ".Data/data" 917197705 ...
#~get ".Data/poole" 917206437 ...
#~put ".Data/poole" 917206445 ...
#~get ".Data/normvote" 917206437 ...
#~put ".Data/normvote" 917206445 ...
#~
party.num <- ifelse(party == "Dem", 1, -1)
#~get ".Data/party" 917196189 ...
#~put ".Data/party.num" 917206445 ...
#~
dvp <- nixon[, "dvp"]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/dvp" 917206445 ...
#~
missing <- is.na(poole)
#~get ".Data/poole" 917206445 ...
#~put ".Data/missing" 917206445 ...
#~
lm.temp <- lm(poole ~ party.num + dvp, subset = (!missing & !is.na(dvp)))
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/poole" 917206445 ...
#~get ".Data/party.num" 917206445 ...
#~get ".Data/dvp" 917206445 ...
#~get ".Data/missing" 917206445 ...
#~put ".Data/lm.temp" 917206445 ...
#~
newdata <- cbind(rep(1, sum(missing)), party.num[missing], dvp[missing])
#~get ".Data/missing" 917206445 ...
#~get ".Data/party.num" 917206445 ...
#~get ".Data/dvp" 917206445 ...
#~put ".Data/newdata" 917206445 ...
#~
poole[missing] <- newdata %*% lm.temp$coef
#~get ".Data/newdata" 917206445 ...
#~get ".Data/lm.temp" 917206445 ...
#~get ".Data/poole" 917206445 ...
#~put ".Data/poole" 917206445 ...
#~get ".Data/missing" 917206445 ...
#~
sum(missing)
#~get ".Data/missing" 917206445 ...
#~put ".Data/.Last.value" 917206450 ...
#~
position2 <- nixon[, "position"]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/position2" 917206459 ...
#~
missing <- is.na(position2)
#~get ".Data/position2" 917206459 ...
#~put ".Data/missing" 917206459 ...
#~
lm.temp <- lm(position2 ~ party.num + poole, subset = (!missing & is.na(nixon[, 
	"judiciar"])))
#~error: Subset selects 0 rows
#~put ".Data/last.dump" 917206459 ...
#~
newdata <- cbind(rep(1, sum(missing), party.num[missing], poole[missing]))
#~put ".Data/last.dump" 917206459 ...
#~
position2[missing] <- newdata %*% lm.temp$coef
#~get ".Data/newdata" 917206445 ...
#~get ".Data/lm.temp" 917206445 ...
#~get ".Data/position2" 917206459 ...
#~put ".Data/position2" 917206459 ...
#~get ".Data/missing" 917206459 ...
#~
position2 <- nixon[, "position"]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/position2" 917206467 ...
#~
missing <- is.na(position2)
#~get ".Data/position2" 917206467 ...
#~put ".Data/missing" 917206467 ...
#~
sum(missing)
#~get ".Data/missing" 917206467 ...
#~put ".Data/.Last.value" 917206470 ...
#~
position2 <- nixon[, "position"]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/position2" 917206491 ...
#~
missing <- is.na(position2)
#~get ".Data/position2" 917206491 ...
#~put ".Data/missing" 917206491 ...
#~
lm.temp <- lm(position2 ~ party.num + poole, subset = (!missing & is.na(nixon[, 
	"judiciar"])))
#~error: Subset selects 0 rows
#~put ".Data/last.dump" 917206492 ...
#~
newdata <- cbind(rep(1, sum(missing)), party.num[missing], poole[missing])
#~get ".Data/missing" 917206491 ...
#~get ".Data/party.num" 917206445 ...
#~get ".Data/poole" 917206445 ...
#~put ".Data/newdata" 917206492 ...
#~
position2[missing] <- newdata %*% lm.temp$coef
#~get ".Data/newdata" 917206492 ...
#~get ".Data/lm.temp" 917206445 ...
#~get ".Data/position2" 917206491 ...
#~put ".Data/position2" 917206492 ...
#~get ".Data/missing" 917206491 ...
#~
is.na(nixon[, "judiciar"])
#~get ".Data/nixon" 917196189 ...
#~put ".Data/.Last.value" 917206535 ...
#~
table(nixon[, "judiciar"])
#~get ".Data/nixon" 917196189 ...
#~put ".Data/.Last.value" 917206548 ...
#~
position2 <- nixon[, "position"]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/position2" 917206581 ...
#~
missing <- is.na(position2)
#~get ".Data/position2" 917206581 ...
#~put ".Data/missing" 917206581 ...
#~
lm.temp <- lm(position2 ~ party.num + poole, subset = (!missing & nixon[, 
	"judiciar"] == 0))
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/position2" 917206581 ...
#~get ".Data/party.num" 917206445 ...
#~get ".Data/poole" 917206445 ...
#~get ".Data/missing" 917206581 ...
#~get ".Data/nixon" 917196189 ...
#~put ".Data/lm.temp" 917206581 ...
#~
newdata <- cbind(rep(1, sum(missing)), party.num[missing], poole[missing])
#~get ".Data/missing" 917206581 ...
#~get ".Data/party.num" 917206445 ...
#~get ".Data/poole" 917206445 ...
#~put ".Data/newdata" 917206581 ...
#~
position2[missing] <- newdata %*% lm.temp$coef
#~get ".Data/newdata" 917206581 ...
#~get ".Data/lm.temp" 917206581 ...
#~get ".Data/position2" 917206581 ...
#~put ".Data/position2" 917206582 ...
#~get ".Data/missing" 917206581 ...
#~
motif()
#~get "/usr/local/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 917206598 ...
#~
par(mfrow = c(2, 2))
#~put ".Data/.Last.value" 917206603 ...
#~
hist(position)
#~error: Object "position" not found
#~put ".Data/last.dump" 917206606 ...
#~
hist(nixon[, "position"], nclass = 20)
#~get ".Data/nixon" 917196189 ...
#~put ".Data/.Last.value" 917206621 ...
#~
hist(position2, nclass = 20)
#~get ".Data/position2" 917206582 ...
#~put ".Data/.Last.value" 917206632 ...
#~
mean(position2[party.num == 1])
#~get ".Data/position2" 917206582 ...
#~get ".Data/party.num" 917206445 ...
#~put ".Data/.Last.value" 917206710 ...
#~
mean(position2[party.num == -1])
#~get ".Data/position2" 917206582 ...
#~get ".Data/party.num" 917206445 ...
#~put ".Data/.Last.value" 917206712 ...
#~
mean(position2[party.num == 0])
#~get ".Data/position2" 917206582 ...
#~get ".Data/party.num" 917206445 ...
#~put ".Data/.Last.value" 917206720 ...
#~
mean(position2)
#~get ".Data/position2" 917206582 ...
#~put ".Data/.Last.value" 917213349 ...
#~
judic.score
#~get ".Data/judic.score" 917196966 ...
#~
table(judic.score, party.num)
#~get ".Data/judic.score" 917196966 ...
#~get ".Data/party.num" 917206445 ...
#~put ".Data/.Last.value" 917213450 ...
#~
dv
#~error: Object "dv" not found
#~
nixon[, "dv"]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/.Last.value" 917213534 ...
#~
missing <- is.na(normvote)
#~get ".Data/normvote" 917206445 ...
#~put ".Data/missing" 917213734 ...
#~
lm.temp <- lm(normvote ~ dv + dvp, subset = (!missing & !is.na(dv) & !is.na(dvp
	)))
#~error: Object "dv" not found
#~put ".Data/last.dump" 917213735 ...
#~
newdata <- cbind(rep(1, sum(missing)), dv[missing], dvp[missing])
#~error: Object "dv" not found
#~
normvote[missing] <- newdata %*% lm.temp$coef
#~get ".Data/newdata" 917206581 ...
#~get ".Data/lm.temp" 917206581 ...
#~get ".Data/normvote" 917206445 ...
#~put ".Data/normvote" 917213735 ...
#~get ".Data/missing" 917213734 ...
#~
dv <- nixon[, "dv"]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/dv" 917213749 ...
#~
missing <- is.na(normvote)
#~get ".Data/normvote" 917213735 ...
#~put ".Data/missing" 917213754 ...
#~
lm.temp <- lm(normvote ~ dv + dvp, subset = (!missing & !is.na(dv) & !is.na(dvp
	)))
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/normvote" 917213735 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~get ".Data/missing" 917213754 ...
#~put ".Data/lm.temp" 917213754 ...
#~
newdata <- cbind(rep(1, sum(missing)), dv[missing], dvp[missing])
#~get ".Data/missing" 917213754 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~put ".Data/newdata" 917213754 ...
#~
normvote[missing] <- newdata %*% lm.temp$coef
#~error: Invalid value for dimension 2
#~put ".Data/last.dump" 917213754 ...
#~
missing <- is.na(normvote)
#~get ".Data/normvote" 917213735 ...
#~put ".Data/missing" 917213784 ...
#~
lm.temp <- lm(normvote ~ dv + dvp, subset = (!missing & !is.na(dv) & !is.na(dvp
	)))
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/normvote" 917213735 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~get ".Data/missing" 917213784 ...
#~put ".Data/lm.temp" 917213785 ...
#~
newdata <- cbind(rep(1, sum(missing)), dv[missing], dvp[missing])
#~get ".Data/missing" 917213784 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~put ".Data/newdata" 917213791 ...
#~
nesdata
#~error: Object "nesdata" not found
#~
enewdata
#~error: statement with syntax error
#~
newdata
#~get ".Data/newdata" 917213791 ...
#~
cbind(rep(1, sum(missing)), dv[missing], dvp[missing])
#~get ".Data/missing" 917213784 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~put ".Data/.Last.value" 917213811 ...
#~
normvote <- rep(NA, n)
#~get ".Data/n" 917196189 ...
#~put ".Data/normvote" 917213830 ...
#~
for(i in 1:n) {
	cond <- data.id == nixon.id[i]
	if(sum(cond) == 1) {
		poole[i] <- data[cond, "score1"]
		normvote[i] <- data[cond, "normvote"]
	}
}
#~get ".Data/n" 917196189 ...
#~get ".Data/data.id" 917197706 ...
#~get ".Data/nixon.id" 917197706 ...
#~put ".Data/cond" 917213841 ...
#~get ".Data/data" 917197705 ...
#~get ".Data/poole" 917206445 ...
#~put ".Data/poole" 917213841 ...
#~get ".Data/normvote" 917213830 ...
#~put ".Data/normvote" 917213841 ...
#~
missing <- is.na(normvote)
#~get ".Data/normvote" 917213841 ...
#~put ".Data/missing" 917213842 ...
#~
lm.temp <- lm(normvote ~ dv + dvp, subset = (!missing & !is.na(dv) & !is.na(dvp
	)))
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/normvote" 917213841 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~get ".Data/missing" 917213842 ...
#~put ".Data/lm.temp" 917213842 ...
#~
newdata <- cbind(rep(1, sum(missing)), dv[missing], dvp[missing])
#~get ".Data/missing" 917213842 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~put ".Data/newdata" 917213842 ...
#~
normvote[missing] <- newdata %*% lm.temp$coef
#~get ".Data/newdata" 917213842 ...
#~get ".Data/lm.temp" 917213842 ...
#~get ".Data/normvote" 917213841 ...
#~put ".Data/normvote" 917213842 ...
#~get ".Data/missing" 917213842 ...
#~
normvote[missing]
#~get ".Data/normvote" 917213842 ...
#~get ".Data/missing" 917213842 ...
#~put ".Data/.Last.value" 917213847 ...
#~
normvote
#~get ".Data/normvote" 917213842 ...
#~
sum(missing)
#~get ".Data/missing" 917213842 ...
#~put ".Data/.Last.value" 917213860 ...
#~
poole <- rep(NA, n)
#~get ".Data/n" 917196189 ...
#~put ".Data/poole" 917213876 ...
#~
normvote <- rep(NA, n)
#~get ".Data/n" 917196189 ...
#~put ".Data/normvote" 917213876 ...
#~
for(i in 1:n) {
	cond <- data.id == nixon.id[i]
	if(sum(cond) == 1) {
		poole[i] <- data[cond, "score1"]
		normvote[i] <- data[cond, "normvote"]
	}
}
#~get ".Data/n" 917196189 ...
#~get ".Data/data.id" 917197706 ...
#~get ".Data/nixon.id" 917197706 ...
#~put ".Data/cond" 917213885 ...
#~get ".Data/data" 917197705 ...
#~get ".Data/poole" 917213876 ...
#~put ".Data/poole" 917213885 ...
#~get ".Data/normvote" 917213876 ...
#~put ".Data/normvote" 917213885 ...
#~
sum(is.na(poole))
#~get ".Data/poole" 917213885 ...
#~put ".Data/.Last.value" 917213888 ...
#~
sum(is.na(normvote))
#~get ".Data/normvote" 917213885 ...
#~put ".Data/.Last.value" 917213896 ...
#~
round(normvote, 1)
#~get ".Data/normvote" 917213885 ...
#~put ".Data/.Last.value" 917213906 ...
#~
normvote[missing]
#~get ".Data/normvote" 917213885 ...
#~get ".Data/missing" 917213842 ...
#~put ".Data/.Last.value" 917213917 ...
#~
missing <- is.na(normvote)
#~get ".Data/normvote" 917213885 ...
#~put ".Data/missing" 917213923 ...
#~
lm.temp <- lm(normvote ~ dv + dvp, subset = (!missing & !is.na(dv) & !is.na(dvp
	)))
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/normvote" 917213885 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~get ".Data/missing" 917213923 ...
#~put ".Data/lm.temp" 917213923 ...
#~
newdata <- cbind(rep(1, sum(missing)), dv[missing], dvp[missing])
#~get ".Data/missing" 917213923 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~put ".Data/newdata" 917213923 ...
#~
normvote[missing] <- newdata %*% lm.temp$coef
#~get ".Data/newdata" 917213923 ...
#~get ".Data/lm.temp" 917213923 ...
#~get ".Data/normvote" 917213885 ...
#~put ".Data/normvote" 917213923 ...
#~get ".Data/missing" 917213923 ...
#~
newdata
#~get ".Data/newdata" 917213923 ...
#~
normvote[missing]
#~get ".Data/normvote" 917213923 ...
#~get ".Data/missing" 917213923 ...
#~put ".Data/.Last.value" 917213936 ...
#~
missing <- is.na(normvote)
#~get ".Data/normvote" 917213923 ...
#~put ".Data/missing" 917214003 ...
#~
lm.temp <- lm(normvote ~ dv, subset = (!missing & !is.na(dv)))
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/normvote" 917213923 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/missing" 917214003 ...
#~put ".Data/lm.temp" 917214004 ...
#~
newdata <- cbind(rep(1, sum(missing)), dv[missing])
#~get ".Data/missing" 917214003 ...
#~get ".Data/dv" 917213749 ...
#~put ".Data/newdata" 917214004 ...
#~
normvote[missing] <- newdata %*% lm.temp$coef
#~get ".Data/newdata" 917214004 ...
#~get ".Data/lm.temp" 917214004 ...
#~get ".Data/normvote" 917213923 ...
#~put ".Data/normvote" 917214004 ...
#~get ".Data/missing" 917214003 ...
#~
missing <- is.na(normvote)
#~get ".Data/normvote" 917214004 ...
#~put ".Data/missing" 917214004 ...
#~
lm.temp <- lm(normvote ~ dvp, subset = (!missing & !is.na(dvp)))
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/normvote" 917214004 ...
#~get ".Data/dvp" 917206445 ...
#~get ".Data/missing" 917214004 ...
#~put ".Data/lm.temp" 917214004 ...
#~
newdata <- cbind(rep(1, sum(missing)), dvp[missing])
#~get ".Data/missing" 917214004 ...
#~get ".Data/dvp" 917206445 ...
#~put ".Data/newdata" 917214004 ...
#~
normvote[missing] <- newdata %*% lm.temp$coef
#~get ".Data/newdata" 917214004 ...
#~get ".Data/lm.temp" 917214004 ...
#~get ".Data/normvote" 917214004 ...
#~put ".Data/normvote" 917214004 ...
#~get ".Data/missing" 917214004 ...
#~
round(normvote, 1)
#~get ".Data/normvote" 917214004 ...
#~put ".Data/.Last.value" 917214023 ...
#~
total.score <- (position2 - 2.5) + judic.score
#~get ".Data/position2" 917206582 ...
#~get ".Data/judic.score" 917196966 ...
#~put ".Data/total.score" 917214176 ...
#~
# try to estimate the effect of nixon-support
dem.inc <- nixon[, "inc"] == 1
#~get ".Data/nixon" 917196189 ...
#~put ".Data/dem.inc" 917214176 ...
#~
lm.temp <- lm(dv ~ dvp + party.num + poole + total.score, subset = (deminc & !
	is.na(dv) & !is.na(dvp)))
#~error: Object "deminc" not found
#~put ".Data/last.dump" 917214176 ...
#~
lm.temp <- lm(dv ~ dvp + party.num + poole + total.score, subset = (dem.inc & !
	is.na(dv) & !is.na(dvp)))
#~error: missing values not allowed: found in poole
#~put ".Data/last.dump" 917214188 ...
#~
missing <- is.na(poole)
#~get ".Data/poole" 917213885 ...
#~put ".Data/missing" 917214199 ...
#~
lm.temp <- lm(poole ~ party.num + dvp, subset = (!missing & !is.na(dvp)))
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/poole" 917213885 ...
#~get ".Data/party.num" 917206445 ...
#~get ".Data/dvp" 917206445 ...
#~get ".Data/missing" 917214199 ...
#~put ".Data/lm.temp" 917214199 ...
#~
newdata <- cbind(rep(1, sum(missing)), party.num[missing], dvp[missing])
#~get ".Data/missing" 917214199 ...
#~get ".Data/party.num" 917206445 ...
#~get ".Data/dvp" 917206445 ...
#~put ".Data/newdata" 917214199 ...
#~
poole[missing] <- newdata %*% lm.temp$coef
#~get ".Data/newdata" 917214199 ...
#~get ".Data/lm.temp" 917214199 ...
#~get ".Data/poole" 917213885 ...
#~put ".Data/poole" 917214199 ...
#~get ".Data/missing" 917214199 ...
#~
judic.score <- nixon[, "article1"] + nixon[, "article3"] + nixon[, "article3"]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/judic.score" 917214209 ...
#~
position2 <- nixon[, "position"]
#~get ".Data/nixon" 917196189 ...
#~put ".Data/position2" 917214209 ...
#~
missing <- is.na(position2)
#~get ".Data/position2" 917214209 ...
#~put ".Data/missing" 917214209 ...
#~
lm.temp <- lm(position2 ~ party.num + poole, subset = (!missing & nixon[, 
	"judiciar"] == 0))
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/position2" 917214209 ...
#~get ".Data/party.num" 917206445 ...
#~get ".Data/poole" 917214199 ...
#~get ".Data/missing" 917214209 ...
#~get ".Data/nixon" 917196189 ...
#~put ".Data/lm.temp" 917214209 ...
#~
newdata <- cbind(rep(1, sum(missing)), party.num[missing], poole[missing])
#~get ".Data/missing" 917214209 ...
#~get ".Data/party.num" 917206445 ...
#~get ".Data/poole" 917214199 ...
#~put ".Data/newdata" 917214209 ...
#~
position2[missing] <- newdata %*% lm.temp$coef
#~get ".Data/newdata" 917214209 ...
#~get ".Data/lm.temp" 917214209 ...
#~get ".Data/position2" 917214209 ...
#~put ".Data/position2" 917214209 ...
#~get ".Data/missing" 917214209 ...
#~
total.score <- (position2 - 2.5) + judic.score
#~get ".Data/position2" 917214209 ...
#~get ".Data/judic.score" 917214209 ...
#~put ".Data/total.score" 917214209 ...
#~
# try to estimate the effect of nixon-support
dem.inc <- nixon[, "inc"] == 1
#~get ".Data/nixon" 917196189 ...
#~put ".Data/dem.inc" 917214210 ...
#~
lm.temp <- lm(dv ~ dvp + party.num + poole + total.score, subset = (dem.inc & !
	is.na(dv) & !is.na(dvp)))
#~error: computed fit is singular, rank 4
#~put ".Data/last.dump" 917214210 ...
#~
lm.temp <- lm(dv ~ dvp + poole + total.score, subset = (dem.inc & !is.na(dv) & 
	!
	is.na(dvp)))
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~get ".Data/poole" 917214199 ...
#~get ".Data/total.score" 917214209 ...
#~get ".Data/dem.inc" 917214210 ...
#~put ".Data/lm.temp" 917214229 ...
#~
lm.temp
#~get ".Data/lm.temp" 917214229 ...
#~
dv
#~get ".Data/dv" 917213749 ...
#~
dvp
#~get ".Data/dvp" 917206445 ...
#~
poole
#~get ".Data/poole" 917214199 ...
#~
#~interrupt
#~
#~interrupt
#~
dem.inc <- nixon[, "inc"] == 1
#~get ".Data/nixon" 917196189 ...
#~put ".Data/dem.inc" 917214304 ...
#~
lm.dems <- lm(dv/100 ~ dvp/100 + poole + total.score, subset = (dem.inc & !
	is.na(dv) & !is.na(dvp)))
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~get ".Data/poole" 917214199 ...
#~get ".Data/total.score" 917214209 ...
#~get ".Data/dem.inc" 917214304 ...
#~put ".Data/lm.dems" 917214305 ...
#~
dem.inc <- nixon[, "inc"] == 1
#~get ".Data/nixon" 917196189 ...
#~put ".Data/dem.inc" 917214308 ...
#~
lm.dems <- lm(dv/100 ~ dvp/100 + poole + total.score, subset = (dem.inc & !
	is.na(dv) & !is.na(dvp)))
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~get ".Data/poole" 917214199 ...
#~get ".Data/total.score" 917214209 ...
#~get ".Data/dem.inc" 917214308 ...
#~put ".Data/lm.dems" 917214308 ...
#~
lm.dems <- lm(dv ~ dvp + poole + total.score, subset = (dem.inc & !is.na(dv) & 
	!
	is.na(dvp)))
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~get ".Data/poole" 917214199 ...
#~get ".Data/total.score" 917214209 ...
#~get ".Data/dem.inc" 917214308 ...
#~put ".Data/lm.dems" 917214321 ...
#~
lm.dems
#~get ".Data/lm.dems" 917214321 ...
#~
mean(poole[party.num == 1])
#~get ".Data/poole" 917214199 ...
#~get ".Data/party.num" 917206445 ...
#~put ".Data/.Last.value" 917214343 ...
#~
mean(poole[party.num == -1])
#~get ".Data/poole" 917214199 ...
#~get ".Data/party.num" 917206445 ...
#~put ".Data/.Last.value" 917214345 ...
#~
rep.inc <- nixon[, "inc"] == 1
#~get ".Data/nixon" 917196189 ...
#~put ".Data/rep.inc" 917214379 ...
#~
lm.reps <- lm(dv ~ dvp + poole + total.score, subset = (rep.inc & !is.na(dv) & 
	!
	is.na(dvp)))
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~get ".Data/poole" 917214199 ...
#~get ".Data/total.score" 917214209 ...
#~get ".Data/rep.inc" 917214379 ...
#~put ".Data/lm.reps" 917214379 ...
#~
lm.reps
#~get ".Data/lm.reps" 917214379 ...
#~
rep.inc <- nixon[, "inc"] == -1
#~get ".Data/nixon" 917196189 ...
#~put ".Data/rep.inc" 917214407 ...
#~
lm.reps <- lm(dv ~ dvp + poole + total.score, subset = (rep.inc & !is.na(dv) & 
	!
	is.na(dvp)))
#~error: Subset selects 0 rows
#~put ".Data/last.dump" 917214407 ...
#~
lm.reps
#~get ".Data/lm.reps" 917214379 ...
#~
rep.inc <- nixon[, "inc"] == 0
#~get ".Data/nixon" 917196189 ...
#~put ".Data/rep.inc" 917214428 ...
#~
lm.reps <- lm(dv ~ dvp + poole + total.score, subset = (rep.inc & !is.na(dv) & 
	!
	is.na(dvp)))
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~get ".Data/poole" 917214199 ...
#~get ".Data/total.score" 917214209 ...
#~get ".Data/rep.inc" 917214428 ...
#~put ".Data/lm.reps" 917214429 ...
#~
lm.reps
#~get ".Data/lm.reps" 917214429 ...
#~
summary.lm(rep.ing
#~error: statement with syntax error
#~
summary.lm(rep.inc)
#~error: Invalid value for dimension 1
#~put ".Data/last.dump" 917214933 ...
#~
summary.lm(lm.reps)
#~get ".Data/lm.reps" 917214429 ...
#~put ".Data/.Last.value" 917214943 ...
#~
dem.inc <- nixon[, "inc"] == 1
#~get ".Data/nixon" 917196189 ...
#~put ".Data/dem.inc" 917214984 ...
#~
lm.dems <- lm(dv ~ normvote + poole + total.score, subset = (dem.inc), 
	na.action = na.omit)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/normvote" 917214004 ...
#~get ".Data/poole" 917214199 ...
#~get ".Data/total.score" 917214209 ...
#~get ".Data/dem.inc" 917214984 ...
#~put ".Data/lm.dems" 917214984 ...
#~
print(summary.lm(lm.dems))
#~get ".Data/lm.dems" 917214984 ...
#~put ".Data/.Last.value" 917214985 ...
#~
rep.inc <- nixon[, "inc"] == 0
#~get ".Data/nixon" 917196189 ...
#~put ".Data/rep.inc" 917214985 ...
#~
lm.reps <- lm(dv ~ normvote + poole + total.score, subset = (rep.inc), 
	na.action = na.omit)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/normvote" 917214004 ...
#~get ".Data/poole" 917214199 ...
#~get ".Data/total.score" 917214209 ...
#~get ".Data/rep.inc" 917214985 ...
#~put ".Data/lm.reps" 917214985 ...
#~
print(summary.lm(lm.reps))
#~get ".Data/lm.reps" 917214985 ...
#~put ".Data/.Last.value" 917214985 ...
#~
print(cbind(summary.lm(lm.dems)$coef, summary.lm(lm.dems)$std.err))
#~get ".Data/lm.dems" 917214984 ...
#~put ".Data/.Last.value" 917215017 ...
#~
summary.lm(lm.dems)$coef
#~get ".Data/lm.dems" 917214984 ...
#~put ".Data/.Last.value" 917215027 ...
#~
summary.lm(lm.dems)$std.err
#~get ".Data/lm.dems" 917214984 ...
#~put ".Data/.Last.value" 917215033 ...
#~
dem.inc <- nixon[, "inc"] == 1
#~get ".Data/nixon" 917196189 ...
#~put ".Data/dem.inc" 917215067 ...
#~
lm.dems <- lm(dv ~ normvote + poole + total.score, subset = (dem.inc), 
	na.action = na.omit)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/normvote" 917214004 ...
#~get ".Data/poole" 917214199 ...
#~get ".Data/total.score" 917214209 ...
#~get ".Data/dem.inc" 917215067 ...
#~put ".Data/lm.dems" 917215067 ...
#~
print(round(summary.lm(lm.dems)$coef[, 1:2], 2))
#~get ".Data/lm.dems" 917215067 ...
#~put ".Data/.Last.value" 917215067 ...
#~
rep.inc <- nixon[, "inc"] == 0
#~get ".Data/nixon" 917196189 ...
#~put ".Data/rep.inc" 917215067 ...
#~
lm.reps <- lm(dv ~ normvote + poole + total.score, subset = (rep.inc), 
	na.action = na.omit)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/normvote" 917214004 ...
#~get ".Data/poole" 917214199 ...
#~get ".Data/total.score" 917214209 ...
#~get ".Data/rep.inc" 917215067 ...
#~put ".Data/lm.reps" 917215067 ...
#~
print(round(summary.lm(lm.reps)$coef[, 1:2], 2))
#~get ".Data/lm.reps" 917215067 ...
#~put ".Data/.Last.value" 917215068 ...
#~
dem.inc <- nixon[, "inc"] == 1
#~get ".Data/nixon" 917196189 ...
#~put ".Data/dem.inc" 917216192 ...
#~
lm.dems <- lm(dv ~ dvp + poole + total.score, subset = (dem.inc), na.action = 
	na.omit)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~get ".Data/poole" 917214199 ...
#~get ".Data/total.score" 917214209 ...
#~get ".Data/dem.inc" 917216192 ...
#~put ".Data/lm.dems" 917216193 ...
#~
print(round(summary.lm(lm.dems)$coef[, 1:2], 2))
#~get ".Data/lm.dems" 917216193 ...
#~put ".Data/.Last.value" 917216193 ...
#~
rep.inc <- nixon[, "inc"] == 0
#~get ".Data/nixon" 917196189 ...
#~put ".Data/rep.inc" 917216193 ...
#~
lm.reps <- lm(dv ~ dvp + poole + total.score, subset = (rep.inc), na.action = 
	na.omit)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~get ".Data/poole" 917214199 ...
#~get ".Data/total.score" 917214209 ...
#~get ".Data/rep.inc" 917216193 ...
#~put ".Data/lm.reps" 917216193 ...
#~
print(round(summary.lm(lm.reps)$coef[, 1:2], 2))
#~get ".Data/lm.reps" 917216193 ...
#~put ".Data/.Last.value" 917216193 ...
#~
dem.inc <- nixon[, "inc"] == 1
#~get ".Data/nixon" 917196189 ...
#~put ".Data/dem.inc" 917216244 ...
#~
lm.dems <- lm(dv ~ dvp + total.score, subset = (dem.inc), na.action = na.omit)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~get ".Data/total.score" 917214209 ...
#~get ".Data/dem.inc" 917216244 ...
#~put ".Data/lm.dems" 917216244 ...
#~
print(round(summary.lm(lm.dems)$coef[, 1:2], 2))
#~get ".Data/lm.dems" 917216244 ...
#~put ".Data/.Last.value" 917216244 ...
#~
rep.inc <- nixon[, "inc"] == 0
#~get ".Data/nixon" 917196189 ...
#~put ".Data/rep.inc" 917216244 ...
#~
lm.reps <- lm(dv ~ dvp + total.score, subset = (rep.inc), na.action = na.omit)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/dv" 917213749 ...
#~get ".Data/dvp" 917206445 ...
#~get ".Data/total.score" 917214209 ...
#~get ".Data/rep.inc" 917216244 ...
#~put ".Data/lm.reps" 917216244 ...
#~
print(round(summary.lm(lm.reps)$coef[, 1:2], 2))
#~get ".Data/lm.reps" 917216244 ...
#~put ".Data/.Last.value" 917216244 ...
#~
hist(poole[party.num == 1])
#~get ".Data/poole" 917214199 ...
#~get ".Data/party.num" 917206445 ...
#~put ".Data/.Last.value" 917216375 ...
#~
hist(poole[party.num == -1])
#~get ".Data/poole" 917214199 ...
#~get ".Data/party.num" 917206445 ...
#~put ".Data/.Last.value" 917216389 ...
#~
dvp[party == "Rep"]
#~get ".Data/dvp" 917206445 ...
#~get ".Data/party" 917196189 ...
#~put ".Data/.Last.value" 917216529 ...
#~
source("nixon.S")
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~put ".Data/nixon" 917216667 ...
#~put ".Data/n" 917216667 ...
#~put ".Data/cond" 917216667 ...
#~put ".Data/party" 917216667 ...
#~put ".Data/judic0" 917216667 ...
#~put ".Data/judic" 917216667 ...
#~put ".Data/article1" 917216667 ...
#~put ".Data/article2" 917216667 ...
#~put ".Data/article3" 917216668 ...
#~put ".Data/year" 917216668 ...
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/yr.cond" 917216668 ...
#~put ".Data/data" 917216668 ...
#~put ".Data/deminc.cond" 917216668 ...
#~put ".Data/repinc.cond" 917216668 ...
#~put ".Data/nixon.id" 917216668 ...
#~put ".Data/data.id" 917216668 ...
#~put ".Data/poole" 917216668 ...
#~put ".Data/normvote" 917216668 ...
#~put ".Data/party.num" 917216668 ...
#~put ".Data/dv" 917216668 ...
#~put ".Data/dvp" 917216669 ...
#~put ".Data/missing" 917216669 ...
#~put ".Data/lm.temp" 917216669 ...
#~put ".Data/newdata" 917216669 ...
#~put ".Data/judic.score" 917216669 ...
#~put ".Data/position2" 917216669 ...
#~put ".Data/total.score" 917216669 ...
#~put ".Data/dem.inc" 917216669 ...
#~put ".Data/lm.dems" 917216670 ...
#~put ".Data/rep.inc" 917216670 ...
#~put ".Data/lm.reps" 917216670 ...
#~put ".Data/.Last.value" 917216670 ...
#~
plan1(94)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~
par(mfrow=c(3,2)
par(mfrow=c(3,2))
#~error: statement with syntax error
#~
par(mfrow = c(3, 2))
#~put ".Data/.Last.value" 917216751 ...
#~
plan1(94)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~
par(mfrow = c(1, 1))
#~put ".Data/.Last.value" 917216762 ...
#~
par(mfrow = c(3, 2))
#~put ".Data/.Last.value" 917216764 ...
#~
plan1(94)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~
plot(0, 0)
#~
plot(0, 0)
#~
plot(0, 0)
#~
plan1(94)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~
par(mfrow = c(3, 3))
#~put ".Data/.Last.value" 917216795 ...
#~
plan1(94)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~
plan1(74)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/ideo.data" 855055907 ...
#~get ".Data/south" 854022894 ...
#~get ".Data/ideo2.data" 855056723 ...
#~
plan1(94)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~
plan1(92)
#~error: No data for variable "normvote"
#~put ".Data/last.dump" 917217572 ...
#~
plan1(90)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~
par(mfrow = c(3, 3))
#~put ".Data/.Last.value" 917217583 ...
#~
plan1(90)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~
plan1(94)
#~get "/usr/local/shome/s/.Datasets/.Machine" -1 ...
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/south" 854022894 ...
#~
hist(total.score[party == "Dem"])
#~get ".Data/total.score" 917216669 ...
#~get ".Data/party" 917216667 ...
#~put ".Data/.Last.value" 917218408 ...
#~
hist(total.score[party == "Dem"], nclass = 20)
#~get ".Data/total.score" 917216669 ...
#~get ".Data/party" 917216667 ...
#~put ".Data/.Last.value" 917218420 ...
#~
plot(total.score[party == "Dem"], poole[party == "Dem"])
#~get ".Data/total.score" 917216669 ...
#~get ".Data/party" 917216667 ...
#~get ".Data/poole" 917216668 ...
#~
cor(total.score[party == "Dem"], poole[party == "Dem"])
#~get ".Data/total.score" 917216669 ...
#~get ".Data/party" 917216667 ...
#~get ".Data/poole" 917216668 ...
#~put ".Data/.Last.value" 917218474 ...
#~
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Sep 14 14:27:08 2000
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
normvote
#~get ".Data/normvote" 917216668 ...
#~
year
#~get ".Data/year" 917216668 ...
#~
dim(ideo.data)
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 968956503 ...
#~
ideo.data[1,  ]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 968956507 ...
#~
dpvote48 <- ideo.data[ideo.data[, "year"] == 48, "dpvote"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/dpvote48" 968956622 ...
#~
normvote48 <- ideo.data[ideo.data[, "year"] == 48, "normvote"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/normvote48" 968956623 ...
#~
`
#~error: statement with syntax error
#~
dpvote88 <- ideo.data[ideo.data[, "year"] == 88, "dpvote"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/dpvote88" 968956623 ...
#~
normvote88 <- ideo.data[ideo.data[, "year"] == 88, "normvote"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/normvote88" 968956623 ...
#~
dpvote48 <- ideo.data[ideo.data[, "year"] == 48, "dpvote"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/dpvote48" 968956633 ...
#~
normvote48 <- ideo.data[ideo.data[, "year"] == 48, "normvote"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/normvote48" 968956633 ...
#~
dpvote88 <- ideo.data[ideo.data[, "year"] == 88, "dpvote"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/dpvote88" 968956634 ...
#~
normvote88 <- ideo.data[ideo.data[, "year"] == 88, "normvote"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/normvote88" 968956634 ...
#~
motif()
#~get "/usr/local/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 968956640 ...
#~
par(mfrow = c(2, 2))
#~put ".Data/.Last.value" 968956646 ...
#~
hist(dpvote48, breaks = seq(0, 1, 0.1))
#~error: breaks do not span the range of x
#~put ".Data/last.dump" 968956661 ...
#~
dpvote48
#~get ".Data/dpvote48" 968956633 ...
#~
dpvote88
#~get ".Data/dpvote88" 968956634 ...
#~
normvote48
#~get ".Data/normvote48" 968956633 ...
#~
hist(dpvote88, breaks = seq(0, 1, 0.1))
#~get ".Data/dpvote88" 968956634 ...
#~put ".Data/.Last.value" 968956685 ...
#~
hist(normvote88, breaks = seq(0, 1, 0.1))
#~get ".Data/normvote88" 968956634 ...
#~put ".Data/.Last.value" 968956693 ...
#~
ideo.data[1,  ]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 968956716 ...
#~
dv88 <- ideo.data[ideo.data[, "year"] == 88, "dv"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/dv88" 968956733 ...
#~
hist(dv88, breaks = seq(0, 1, 0.1))
#~get ".Data/dv88" 968956733 ...
#~put ".Data/.Last.value" 968956740 ...
#~
plot(dv88, normvote88)
#~get ".Data/dv88" 968956733 ...
#~get ".Data/normvote88" 968956634 ...
#~
plot(dv88, normvote88, xlim = c(0, 1), ylim = c(0, 1))
#~get ".Data/dv88" 968956733 ...
#~get ".Data/normvote88" 968956634 ...
#~
abline(0, 1)
#~put ".Data/.Last.value" 968956777 ...
#~
plot(dv88, dpvote88, xlim = c(0, 1), ylim = c(0, 1))
#~get ".Data/dv88" 968956733 ...
#~get ".Data/dpvote88" 968956634 ...
#~
abline(0, 1)
#~put ".Data/.Last.value" 968956816 ...
#~
plot(dv88, dpvote88, xlim = c(0, 1), ylim = c(0, 1), type = "n")
#~get ".Data/dv88" 968956733 ...
#~get ".Data/dpvote88" 968956634 ...
#~
inc88 <- ideo.data[ideo.data[, "year"] == 88, "inc"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/inc88" 968956927 ...
#~
points(dv88[inc == 1], dpvote[inc == 1], pch = "x")
#~error: Object "inc" not found
#~put ".Data/last.dump" 968956927 ...
#~
points(dv88[inc == -1], dpvote[inc == -1], pch = "+")
#~error: Object "inc" not found
#~put ".Data/last.dump" 968956927 ...
#~
points(dv88[inc == 0], dpvote[inc == 0], pch = "o")
#~error: Object "inc" not found
#~put ".Data/last.dump" 968956928 ...
#~
plot(dv88, dpvote88, xlim = c(0, 1), ylim = c(0, 1), type = "n")
#~get ".Data/dv88" 968956733 ...
#~get ".Data/dpvote88" 968956634 ...
#~
inc88 <- ideo.data[ideo.data[, "year"] == 88, "inc88"]
#~error: undefined columns selected
#~put ".Data/last.dump" 968956947 ...
#~
points(dv88[inc88 == 1], dpvote[inc88 == 1], pch = "x")
#~put ".Data/last.dump" 968956948 ...
#~
points(dv88[inc88 == -1], dpvote[inc88 == -1], pch = "+")
#~put ".Data/last.dump" 968956948 ...
#~
points(dv88[inc88 == 0], dpvote[inc88 == 0], pch = "o")
#~get ".Data/dv88" 968956733 ...
#~get ".Data/inc88" 968956927 ...
#~get ".Data/dpvote" 854106218 ...
#~
plot(dv88, dpvote88, xlim = c(0, 1), ylim = c(0, 1), type = "n")
#~get ".Data/dv88" 968956733 ...
#~get ".Data/dpvote88" 968956634 ...
#~
inc88 <- ideo.data[ideo.data[, "year"] == 88, "inc"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/inc88" 968956967 ...
#~
points(dv88[inc88 == 1], dpvote[inc88 == 1], pch = "x")
#~put ".Data/last.dump" 968956968 ...
#~
points(dv88[inc88 == -1], dpvote[inc88 == -1], pch = "+")
#~put ".Data/last.dump" 968956968 ...
#~
points(dv88[inc88 == 0], dpvote[inc88 == 0], pch = "o")
#~get ".Data/dv88" 968956733 ...
#~get ".Data/inc88" 968956967 ...
#~get ".Data/dpvote" 854106218 ...
#~
inc88
#~get ".Data/inc88" 968956967 ...
#~
plot(dv88, dpvote88, xlim = c(0, 1), ylim = c(0, 1), type = "n")
#~get ".Data/dv88" 968956733 ...
#~get ".Data/dpvote88" 968956634 ...
#~
inc88 <- ideo.data[ideo.data[, "year"] == 88, "inc"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/inc88" 968956994 ...
#~
points(dv88[inc88 == 1], dpvote88[inc88 == 1], pch = "x")
#~get ".Data/dv88" 968956733 ...
#~get ".Data/inc88" 968956994 ...
#~get ".Data/dpvote88" 968956634 ...
#~
points(dv88[inc88 == -1], dpvote88[inc88 == -1], pch = "+")
#~get ".Data/dv88" 968956733 ...
#~get ".Data/inc88" 968956994 ...
#~get ".Data/dpvote88" 968956634 ...
#~
points(dv88[inc88 == 0], dpvote88[inc88 == 0], pch = "o")
#~get ".Data/dv88" 968956733 ...
#~get ".Data/inc88" 968956994 ...
#~get ".Data/dpvote88" 968956634 ...
#~
par(mfrow = c(2, 2))
#~put ".Data/.Last.value" 968957123 ...
#~
hist(dv48, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Congress vote in 1948")
#~error: Object "dv48" not found
#~put ".Data/last.dump" 968957123 ...
#~
hist(dv88, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Congress vote in 1988")
#~get ".Data/dv88" 968956733 ...
#~put ".Data/.Last.value" 968957123 ...
#~
hist(dpvote88, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Pres vote in 1988")
#~get ".Data/dpvote88" 968956634 ...
#~put ".Data/.Last.value" 968957123 ...
#~
dv48 <- ideo.data[ideo.data[, "year"] == 48, "dv"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/dv48" 968957135 ...
#~
dv88 <- ideo.data[ideo.data[, "year"] == 88, "dv"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/dv88" 968957136 ...
#~
par(mfrow = c(2, 2))
#~put ".Data/.Last.value" 968957136 ...
#~
hist(dv48, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Congress vote in 1948")
#~get ".Data/dv48" 968957135 ...
#~put ".Data/.Last.value" 968957136 ...
#~
hist(dv88, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Congress vote in 1988")
#~get ".Data/dv88" 968957136 ...
#~put ".Data/.Last.value" 968957136 ...
#~
hist(dpvote88, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Pres vote in 1988")
#~get ".Data/dpvote88" 968956634 ...
#~put ".Data/.Last.value" 968957137 ...
#~
dpvote52 <- ideo.data[ideo.data[, "year"] == 52, "dpvote"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/dpvote52" 968957276 ...
#~
dpvote88 <- ideo.data[ideo.data[, "year"] == 88, "dpvote"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/dpvote88" 968957276 ...
#~
dpvote92 <- ideo.data[ideo.data[, "year"] == 92, "dpvote"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/dpvote92" 968957276 ...
#~
normvote88 <- ideo.data[ideo.data[, "year"] == 88, "normvote"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/normvote88" 968957277 ...
#~
dv48 <- ideo.data[ideo.data[, "year"] == 48, "dv"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/dv48" 968957277 ...
#~
dv52 <- ideo.data[ideo.data[, "year"] == 52, "dv"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/dv52" 968957277 ...
#~
dv88 <- ideo.data[ideo.data[, "year"] == 88, "dv"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/dv88" 968957277 ...
#~
dv92 <- ideo.data[ideo.data[, "year"] == 92, "dv"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/dv92" 968957278 ...
#~
par(mfrow = c(2, 2))
#~put ".Data/.Last.value" 968957278 ...
#~
hist(dv52, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Congressional vote in 1952")
#~get ".Data/dv52" 968957277 ...
#~put ".Data/.Last.value" 968957278 ...
#~
hist(dv92, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Congressional vote in 1992")
#~error: breaks do not span the range of x
#~put ".Data/last.dump" 968957278 ...
#~
hist(dpvote52, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Presidential vote in 1952")
#~error: breaks do not span the range of x
#~put ".Data/last.dump" 968957278 ...
#~
hist(dpvote92, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Presidential vote in 1992")
#~error: breaks do not span the range of x
#~put ".Data/last.dump" 968957279 ...
#~
dpvote52
#~get ".Data/dpvote52" 968957276 ...
#~
ls
#~
ideo.data
#~interrupt
#~
ideo.data[1,  ]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 968957306 ...
#~
ideo.data[1000,  ]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 968957315 ...
#~
ideo.data[1500,  ]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 968957324 ...
#~
dim(ideo.data)
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 968957339 ...
#~
ideo.data[9214,  ]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 968957345 ...
#~
q()
#~End session: Time: 968957182; Process: 8726
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Sep 14 14:47:32 2000
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
ideo2.data[1,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 968957553 ...
#~
ideo2.data[400,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 968957562 ...
#~
ideo2.data[1400,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 968957569 ...
#~
ideo2.data[1000,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 968957578 ...
#~
ideo2.data[2000,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 968957598 ...
#~
Splus
#~error: Object "Splus" not found
#~
motif()
#~get "/usr/local/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 968957689 ...
#~
par(mfrow = c(2, 2))
#~put ".Data/.Last.value" 968957691 ...
#~
hist(dv48, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Congressional vote in 1948")
#~get ".Data/dv48" 968957277 ...
#~put ".Data/.Last.value" 968957691 ...
#~
hist(dv88, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Congressional vote in 1988")
#~get ".Data/dv88" 968957277 ...
#~put ".Data/.Last.value" 968957691 ...
#~
hist(dpvote88, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Presidential vote in 1988")
#~get ".Data/dpvote88" 968957276 ...
#~put ".Data/.Last.value" 968957692 ...
#~
par(mfrow = c(2, 2))
#~put ".Data/.Last.value" 968957726 ...
#~
hist(dv88, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Congressional vote in 1988")
#~get ".Data/dv88" 968957277 ...
#~put ".Data/.Last.value" 968957727 ...
#~
hist(dv48, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Congressional vote in 1948")
#~get ".Data/dv48" 968957277 ...
#~put ".Data/.Last.value" 968957727 ...
#~
hist(dpvote88, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Presidential vote in 1988")
#~get ".Data/dpvote88" 968957276 ...
#~put ".Data/.Last.value" 968957727 ...
#~
postscript("lifelong.ps", horizontal = F)
#~get "/usr/local/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 968957765 ...
#~
par(mfrow = c(3, 2))
#~put ".Data/.Last.value" 968957765 ...
#~
hist(dv88, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Congressional vote in 1988")
#~get ".Data/dv88" 968957277 ...
#~put ".Data/.Last.value" 968957765 ...
#~
hist(dv48, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Congressional vote in 1948")
#~get ".Data/dv48" 968957277 ...
#~put ".Data/.Last.value" 968957765 ...
#~
hist(dpvote88, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Presidential vote in 1988")
#~get ".Data/dpvote88" 968957276 ...
#~put ".Data/.Last.value" 968957766 ...
#~
q()
#~End session: Time: 968957493; Process: 8917
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Sep 14 14:52:18 2000
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
postscript("lifelong.ps", horizontal = F)
#~get "/usr/local/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 968957823 ...
#~
par(mfrow = c(4, 2))
#~put ".Data/.Last.value" 968957823 ...
#~
hist(dv88, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Congressional vote in 1988", cex = 0.8)
#~get ".Data/dv88" 968957277 ...
#~put ".Data/.Last.value" 968957824 ...
#~
hist(dv48, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Congressional vote in 1948", cex = 0.8)
#~get ".Data/dv48" 968957277 ...
#~put ".Data/.Last.value" 968957824 ...
#~
hist(dpvote88, breaks = seq(0, 1, 0.05), xlab = 
	"Dem share of Presidential vote in 1988", cex = 0.8)
#~get ".Data/dpvote88" 968957276 ...
#~put ".Data/.Last.value" 968957824 ...
#~
q()
#~End session: Time: 968957546; Process: 9006
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Sep 14 14:53:22 2000
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
dim(ideo2.data)
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 968957883 ...
#~
ideo2.data[10268,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 968957888 ...
#~
q()
#~End session: Time: 968957620; Process: 9056
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Sep 14 15:03:37 2000
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
sort(dv88)
#~get ".Data/dv88" 968957277 ...
#~put ".Data/.Last.value" 968958502 ...
#~
ideo.data[1:3,  ]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 968958529 ...
#~
dv88
#~get ".Data/dv88" 968957277 ...
#~
ideo.data[1:3,  ]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 968958560 ...
#~
ideo2.data[1:3,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 968958593 ...
#~
inc48[is.na(dv48)]
#~error: Object "inc48" not found
#~
inc48 <- ideo.data[ideo.data[, "year"] == 48, "inc"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/inc48" 968958686 ...
#~
inc88 <- ideo.data[ideo.data[, "year"] == 88, "inc"]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/inc88" 968958687 ...
#~
inc48[is.na(dv48)]
#~get ".Data/inc48" 968958686 ...
#~get ".Data/dv48" 968957277 ...
#~put ".Data/.Last.value" 968958689 ...
#~
ideo2.data[400,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 968958709 ...
#~
ideo.data[400,  ]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 968958725 ...
#~
q()
#~End session: Time: 968958479; Process: 9287
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Sep 14 16:51:26 2000
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
print(round(summary.lm(lm.dems)$coef[, 1:2], 2))
#~get ".Data/lm.dems" 917216670 ...
#~put ".Data/.Last.value" 968964970 ...
#~
print(round(summary.lm(lm.reps)$coef[, 1:2], 2))
#~get ".Data/lm.reps" 917216670 ...
#~put ".Data/.Last.value" 968964980 ...
#~
judic.score
#~get ".Data/judic.score" 917216669 ...
#~
position
#~error: Object "position" not found
#~
position2
#~get ".Data/position2" 917216669 ...
#~
total.score
#~get ".Data/total.score" 917216669 ...
#~
nixon[, "inc"]
#~get ".Data/nixon" 917216667 ...
#~put ".Data/.Last.value" 968965054 ...
#~
poople[dem.inc]
#~error: Object "poople" not found
#~
motif()
#~get "/usr/local/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 968965076 ...
#~
par(mfrow = c(2, 2))
#~put ".Data/.Last.value" 968965089 ...
#~
plot(poole, total.score, type = "n")
#~get ".Data/poole" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[dem.inc], total.score[dem.inc], col = 2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dem.inc" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
nixon[1,  ]
#~get ".Data/nixon" 917216667 ...
#~put ".Data/.Last.value" 968965207 ...
#~
plot(poole, total.score, type = "n")
#~get ".Data/poole" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[dem.inc & !missing], total.score[dem.inc & !missing], col = 2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dem.inc" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[rep.inc & !missing], total.score[rep.inc & !missing], col = 3)
#~get ".Data/poole" 917216668 ...
#~get ".Data/rep.inc" 917216670 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
plot(dv, total.score, type = "n")
#~get ".Data/dv" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(dv[dem.inc & !missing], total.score[dem.inc & !missing], col = 2)
#~get ".Data/dv" 917216668 ...
#~get ".Data/dem.inc" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(dv[rep.inc & !missing], total.score[rep.inc & !missing], col = 3)
#~get ".Data/dv" 917216668 ...
#~get ".Data/rep.inc" 917216670 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
range(total.score[!missing])
#~get ".Data/total.score" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~put ".Data/.Last.value" 968965662 ...
#~
plot(poole, total.score, type = "n")
#~get ".Data/poole" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[(dvp > 0.5) & !missing], total.score[(dvp > 0.5) & !missing], col
	 = 2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[(dvp < 0.5) & !missing], total.score[(dvp < 0.5) & !missing], col
	 = 3)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[(dvp > 0.5) & !missing], total.score[(dvp > 0.5) & !missing], col
	 = 2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[(dvp < 0.5) & !missing], total.score[(dvp < 0.5) & !missing], col
	 = 3)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
plot(poole, total.score, type = "n")
#~get ".Data/poole" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[(dvp < 0.5) & !missing], total.score[(dvp < 0.5) & !missing], col
	 = 3)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[(dvp < 0.5) & !missing], total.score[(dvp < 0.5) & !missing], col
	 = 1)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[(dvp > 0.5) & !missing], total.score[(dvp > 0.5) & !missing], col
	 = 2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[(dvp < 50) & !missing], total.score[(dvp < 50) & !missing], col = 
	1)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[(dvp<50)&!missing],total.score[(dvp<50)&!missing],col=1)postscript ("nixon.ps",colors=ps.colors.rgb[c("black","red","green","blue"),],
#~error: statement with syntax error
#~
background=ps.colors.rgb[c("white"),])
#~error: statement with syntax error
#~
par(mfrow = c(3, 2))
#~put ".Data/.Last.value" 968966174 ...
#~
plot(poole, total.score, type = "n", cex = 0.8, xlab = 
	"Liberal                                  Conservative", ylab = 
	"Support for impeachment")
#~get ".Data/poole" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[(dvp < 50) & !missing], total.score[(dvp < 50) & !missing], col = 
	2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[(dvp > 50) & !missing], total.score[(dvp > 50) & !missing], col = 
	4)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
plot(dv, total.score, type = "n", cex = 0.8, xlim = c(0, 1), xlab = 
	"Dem share of Congressional vote in 1974", ylab = 
	"Support for impeachment")
#~get ".Data/dv" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(dv[dem.inc & !missing], total.score[dem.inc & !missing], col = 2)
#~get ".Data/dv" 917216668 ...
#~get ".Data/dem.inc" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(dv[rep.inc & !missing], total.score[rep.inc & !missing], col = 3)
#~get ".Data/dv" 917216668 ...
#~get ".Data/rep.inc" 917216670 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
dv
#~get ".Data/dv" 917216668 ...
#~
plot(poole, total.score, type = "n", cex = 0.8, xlab = 
	"Liberal                                  Conservative", ylab = 
	"Support for impeachment")
#~get ".Data/poole" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[(dvp < 50) & !missing], total.score[(dvp < 50) & !missing], col = 
	2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[(dvp > 50) & !missing], total.score[(dvp > 50) & !missing], col = 
	4)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
plot(dv/100, total.score, type = "n", cex = 0.8, xlim = c(0, 1), xlab = 
	"Dem share of Congressional vote in 1974", ylab = 
	"Support for impeachment")
#~get ".Data/dv" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(dv[dem.inc & !missing]/100, total.score[dem.inc & !missing], col = 2)
#~get ".Data/dv" 917216668 ...
#~get ".Data/dem.inc" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(dv[rep.inc & !missing]/100, total.score[rep.inc & !missing], col = 3)
#~get ".Data/dv" 917216668 ...
#~get ".Data/rep.inc" 917216670 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
postscript("nixon.ps", colors = ps.colors.rgb[c("black", "red", "green", "blue"
	),  ], background = ps.colors.rgb[c("white"),  ])
#~get "/usr/local/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.colors.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 968966257 ...
#~
par(mfrow = c(3, 2))
#~put ".Data/.Last.value" 968966257 ...
#~
plot(poole, total.score, type = "n", cex = 0.8, xlab = 
	"Liberal                                  Conservative", ylab = 
	"Support for impeachment")
#~get ".Data/poole" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[(dvp < 50) & !missing], total.score[(dvp < 50) & !missing], col = 
	2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[(dvp > 50) & !missing], total.score[(dvp > 50) & !missing], col = 
	4)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
plot(1 - dv/100, total.score, type = "n", cex = 0.8, xlim = c(0, 1), xlab = 
	"Republican share of Congressional vote in 1974", ylab = 
	"Support for impeachment")
#~get ".Data/dv" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dv[dem.inc & !missing]/100, total.score[dem.inc & !missing], col = 2
	)
#~get ".Data/dv" 917216668 ...
#~get ".Data/dem.inc" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dv[rep.inc & !missing]/100, total.score[rep.inc & !missing], col = 4
	)
#~get ".Data/dv" 917216668 ...
#~get ".Data/rep.inc" 917216670 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
q()
#~End session: Time: 968965986; Process: 9953
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Sep 14 17:13:32 2000
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
postscript("nixon.ps", colors = ps.colors.rgb[c("black", "red", "green", "blue"
	),  ], background = ps.colors.rgb[c("white"),  ], horizontal = F)
#~get "/usr/local/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.colors.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 968966304 ...
#~
par(mfrow = c(3, 2))
#~put ".Data/.Last.value" 968966304 ...
#~
plot(poole, total.score, type = "n", cex = 0.8, xlab = 
	"Liberal                                  Conservative", ylab = 
	"Support for impeachment")
#~get ".Data/poole" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[(dvp < 50) & !missing], total.score[(dvp < 50) & !missing], col = 
	2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(poole[(dvp > 50) & !missing], total.score[(dvp > 50) & !missing], col = 
	4)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
plot(1 - dv/100, total.score, type = "n", cex = 0.8, xlim = c(0, 1), xlab = 
	"Republican share of Congressional vote in 1974", ylab = 
	"Support for impeachment")
#~get ".Data/dv" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dv[dem.inc & !missing]/100, total.score[dem.inc & !missing], col = 2
	)
#~get ".Data/dv" 917216668 ...
#~get ".Data/dem.inc" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dv[rep.inc & !missing]/100, total.score[rep.inc & !missing], col = 4
	)
#~get ".Data/dv" 917216668 ...
#~get ".Data/rep.inc" 917216670 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
q()
#~End session: Time: 968966026; Process: 10443
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Sep 14 17:15:26 2000
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
nixon[, "judiciar"]
#~get ".Data/nixon" 917216667 ...
#~put ".Data/.Last.value" 968966408 ...
#~
judiciar
#~error: Object "judiciar" not found
#~
postscript("nixon.ps", colors = ps.colors.rgb[c("black", "red", "green", "blue"
	),  ], background = ps.colors.rgb[c("white"),  ], horizontal = F)
#~get "/usr/local/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.colors.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 968966555 ...
#~
par(mfrow = c(3, 2))
#~put ".Data/.Last.value" 968966556 ...
#~
plot(10 * poole, total.score, type = "n", cex = 0.8, xlab = 
	"Liberal                                  Conservative", ylab = 
	"Support for impeachment")
#~get ".Data/poole" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
judic <- nixon[, "judiciar"] > 0
#~get ".Data/nixon" 917216667 ...
#~put ".Data/judic" 968966556 ...
#~
points(10 * poole[(dvp < 50) & !missing], total.score[(dvp < 50) & !missing], 
	col = 2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(10 * poole[(dvp > 50) & !missing], total.score[(dvp > 50) & !missing], 
	col = 4)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(10 * poole[judic & (dvp < 50) & !missing], total.score[judic & (dvp < 50
	) & !missing], col = 2, pch = "o")
#~get ".Data/poole" 917216668 ...
#~get ".Data/judic" 968966556 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(10 * poole[judic & (dvp > 50) & !missing], total.score[judic & (dvp > 50
	) & !missing], col = 4, pch = "o")
#~get ".Data/poole" 917216668 ...
#~get ".Data/judic" 968966556 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
plot(1 - dv/100, total.score, type = "n", cex = 0.8, xlim = c(0, 1), xlab = 
	"Republican share of Congressional vote in 1974", ylab = 
	"Support for impeachment")
#~get ".Data/dv" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dv[dem.inc & !missing]/100, total.score[dem.inc & !missing], col = 2
	)
#~get ".Data/dv" 917216668 ...
#~get ".Data/dem.inc" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dv[rep.inc & !missing]/100, total.score[rep.inc & !missing], col = 4
	)
#~get ".Data/dv" 917216668 ...
#~get ".Data/rep.inc" 917216670 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
q()
#~End session: Time: 968966282; Process: 10479
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Sep 14 17:19:52 2000
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
postscript("nixon.ps", colors = ps.colors.rgb[c("black", "red", "green", "blue"
	),  ], background = ps.colors.rgb[c("white"),  ], horizontal = F)
#~get "/usr/local/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.colors.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 968966673 ...
#~
par(mfrow = c(3, 2), mar = c(5, 5, 4, 1) + 0.1)
#~put ".Data/.Last.value" 968966673 ...
#~
plot(10 * poole, total.score, type = "n", cex = 0.8, xlab = 
	"Liberal                                  Conservative", ylab = 
	"Support for impeachment")
#~get ".Data/poole" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
judic <- nixon[, "judiciar"] > 0
#~get ".Data/nixon" 917216667 ...
#~put ".Data/judic" 968966674 ...
#~
points(10 * poole[!judic & (dvp < 50) & !missing], total.score[!judic & (dvp < 
	50) & !missing], col = 2, pch = ".", cex = 1)
#~get ".Data/poole" 917216668 ...
#~get ".Data/judic" 968966674 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(10 * poole[!judic & (dvp > 50) & !missing], total.score[!judic & (dvp > 
	50) & !missing], col = 4, pch = ".", cex = 2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/judic" 968966674 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(10 * poole[judic & (dvp < 50) & !missing], total.score[judic & (dvp < 50
	) & !missing], col = 2, pch = "o", cex = 2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/judic" 968966674 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(10 * poole[judic & (dvp > 50) & !missing], total.score[judic & (dvp > 50
	) & !missing], col = 4, pch = "o", cex = 2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/judic" 968966674 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
plot(1 - dv/100, total.score, type = "n", cex = 0.8, xlim = c(0, 1), xlab = 
	"Republican share of Congressional vote in 1974", ylab = 
	"Support for impeachment")
#~get ".Data/dv" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dv[dem.inc & !missing]/100, total.score[dem.inc & !missing], col = 2
	)
#~get ".Data/dv" 917216668 ...
#~get ".Data/dem.inc" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dv[rep.inc & !missing]/100, total.score[rep.inc & !missing], col = 4
	)
#~get ".Data/dv" 917216668 ...
#~get ".Data/rep.inc" 917216670 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
q()
#~End session: Time: 968966396; Process: 10536
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Sep 14 17:20:43 2000
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
postscript("nixon.ps", colors = ps.colors.rgb[c("black", "red", "green", "blue"
	),  ], background = ps.colors.rgb[c("white"),  ], horizontal = F)
#~get "/usr/local/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.colors.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 968966725 ...
#~
par(mfrow = c(3, 2), mar = c(5, 5, 4, 1) + 0.1)
#~put ".Data/.Last.value" 968966725 ...
#~
plot(10 * poole, total.score, type = "n", cex = 0.8, xlab = 
	"Liberal                                  Conservative", ylab = 
	"Support for impeachment")
#~get ".Data/poole" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
judic <- nixon[, "judiciar"] > 0
#~get ".Data/nixon" 917216667 ...
#~put ".Data/judic" 968966725 ...
#~
points(10 * poole[!judic & (dvp < 50) & !missing], total.score[!judic & (dvp < 
	50) & !missing], col = 2, pch = ".", cex = 2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/judic" 968966725 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(10 * poole[!judic & (dvp > 50) & !missing], total.score[!judic & (dvp > 
	50) & !missing], col = 4, pch = ".", cex = 2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/judic" 968966725 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(10 * poole[judic & (dvp < 50) & !missing], total.score[judic & (dvp < 50
	) & !missing], col = 2, pch = ".", cex = 4)
#~get ".Data/poole" 917216668 ...
#~get ".Data/judic" 968966725 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(10 * poole[judic & (dvp > 50) & !missing], total.score[judic & (dvp > 50
	) & !missing], col = 4, pch = ".", cex = 4)
#~get ".Data/poole" 917216668 ...
#~get ".Data/judic" 968966725 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
plot(1 - dv/100, total.score, type = "n", cex = 0.8, xlim = c(0, 1), xlab = 
	"Republican share of Congressional vote in 1974", ylab = 
	"Support for impeachment")
#~get ".Data/dv" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dv[dem.inc & !missing]/100, total.score[dem.inc & !missing], col = 2
	)
#~get ".Data/dv" 917216668 ...
#~get ".Data/dem.inc" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dv[rep.inc & !missing]/100, total.score[rep.inc & !missing], col = 4
	)
#~get ".Data/dv" 917216668 ...
#~get ".Data/rep.inc" 917216670 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
q()
#~End session: Time: 968966447; Process: 10575
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Sep 14 17:25:41 2000
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
mtitle
#~error: Object "mtitle" not found
#~
title()
#~
title
#~
help(title)
#~put ".Data/.Last.value" 968967043 ...
#~
help(mtext)
#~put ".Data/.Last.value" 968967086 ...
#~
postscript("nixon.ps", colors = ps.colors.rgb[c("black", "red", "green", "blue"
	),  ], background = ps.colors.rgb[c("white"),  ], horizontal = F)
#~get "/usr/local/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.colors.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 968967091 ...
#~
par(mfrow = c(3, 2), mar = c(5, 5, 4, 1) + 0.1)
#~put ".Data/.Last.value" 968967091 ...
#~
plot(10 * poole, total.score, type = "n", cex = 0.8, xlab = 
	"Liberal           (ideology)               Conservative", ylab = 
	"Support for impeachment")
#~get ".Data/poole" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
judic <- nixon[, "judiciar"] > 0
#~get ".Data/nixon" 917216667 ...
#~put ".Data/judic" 968967092 ...
#~
points(10 * poole[(dvp > 50) & !missing], total.score[(dvp > 50) & !missing], 
	col = 2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(10 * poole[(dvp < 50) & !missing], total.score[(dvp < 50) & !missing], 
	col = 4)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
plot(1 - dv/100, total.score, type = "n", cex = 0.8, xlim = c(0, 1), xlab = 
	"Republican share of Congressional vote in 1974", ylab = 
	"Support for impeachment")
#~get ".Data/dv" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dv[dem.inc & !missing]/100, total.score[dem.inc & !missing], col = 2
	)
#~get ".Data/dv" 917216668 ...
#~get ".Data/dem.inc" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dv[rep.inc & !missing]/100, total.score[rep.inc & !missing], col = 4
	)
#~get ".Data/dv" 917216668 ...
#~get ".Data/rep.inc" 917216670 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
plot(1 - dvp/100, total.score, type = "n", cex = 0.8, xlim = c(0, 1), xlab = 
	"Republican share of Congressional vote in 1972", ylab = 
	"Support for impeachment")
#~get ".Data/dvp" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dvp[dem.inc & !missing]/100, total.score[dem.inc & !missing], col = 
	2)
#~get ".Data/dvp" 917216669 ...
#~get ".Data/dem.inc" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dvp[rep.inc & !missing]/100, total.score[rep.inc & !missing], col = 
	4)
#~get ".Data/dvp" 917216669 ...
#~get ".Data/rep.inc" 917216670 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
q()
#~End session: Time: 968966814; Process: 10612
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Sep 14 17:31:37 2000
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
postscript("nixon.ps", colors = ps.colors.rgb[c("black", "red", "green", "blue"
	),  ], background = ps.colors.rgb[c("white"),  ], horizontal = F)
#~get "/usr/local/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.colors.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 968967382 ...
#~
par(mfrow = c(3, 2), mar = c(5, 5, 4, 1) + 0.1)
#~put ".Data/.Last.value" 968967382 ...
#~
par(oma)
#~error: Object "oma" not found
#~put ".Data/last.dump" 968967385 ...
#~
help(par)
#~put ".Data/.Last.value" 968967404 ...
#~
par("oma")
#~put ".Data/.Last.value" 968967406 ...
#~
par(oma = c(5, 0, 5, 0))
#~put ".Data/.Last.value" 968967415 ...
#~
plot(10 * poole, total.score, type = "n", cex = 0.8, xlab = 
	"Liberal           (ideology)               Conservative", ylab = 
	"Support for impeachment")
#~get ".Data/poole" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
judic <- nixon[, "judiciar"] > 0
#~get ".Data/nixon" 917216667 ...
#~put ".Data/judic" 968967415 ...
#~
points(10 * poole[(dvp > 50) & !missing], total.score[(dvp > 50) & !missing], 
	col = 2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(10 * poole[(dvp < 50) & !missing], total.score[(dvp < 50) & !missing], 
	col = 4)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
plot(1 - dv/100, total.score, type = "n", cex = 0.8, xlim = c(0, 1), xlab = 
	"Republican share of Congressional vote in 1974", ylab = 
	"Support for impeachment")
#~get ".Data/dv" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dv[dem.inc & !missing]/100, total.score[dem.inc & !missing], col = 2
	)
#~get ".Data/dv" 917216668 ...
#~get ".Data/dem.inc" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dv[rep.inc & !missing]/100, total.score[rep.inc & !missing], col = 4
	)
#~get ".Data/dv" 917216668 ...
#~get ".Data/rep.inc" 917216670 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
plot(1 - dvp/100, total.score, type = "n", cex = 0.8, xlim = c(0, 1), xlab = 
	"Republican share of Congressional vote in 1972", ylab = 
	"Support for impeachment")
#~get ".Data/dvp" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dvp[dem.inc & !missing]/100, total.score[dem.inc & !missing], col = 
	2)
#~get ".Data/dvp" 917216669 ...
#~get ".Data/dem.inc" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dvp[rep.inc & !missing]/100, total.score[rep.inc & !missing], col = 
	4)
#~get ".Data/dvp" 917216669 ...
#~get ".Data/rep.inc" 917216670 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
q()
#~End session: Time: 968967138; Process: 10694
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Sep 14 17:32:46 2000
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
#~interrupt
#~
#~interrupt
#~
#~interrupt
#~
#~interrupt
#~
postscript("nixon.ps", colors = ps.colors.rgb[c("black", "red", "green", "blue"
	),  ], background = ps.colors.rgb[c("white"),  ], horizontal = F)
#~get "/usr/local/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.colors.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 968967464 ...
#~
par(mfrow = c(3, 2), mar = c(5, 5, 4, 1) + 0.1)
#~put ".Data/.Last.value" 968967464 ...
#~
par(oma = c(10, 0, 5, 0))
#~put ".Data/.Last.value" 968967464 ...
#~
plot(10 * poole, total.score, type = "n", cex = 0.8, xlab = 
	"Liberal              (ideology)            Conservative", ylab = 
	"Support for impeachment")
#~get ".Data/poole" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
judic <- nixon[, "judiciar"] > 0
#~get ".Data/nixon" 917216667 ...
#~put ".Data/judic" 968967464 ...
#~
points(10 * poole[(dvp > 50) & !missing], total.score[(dvp > 50) & !missing], 
	col = 2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(10 * poole[(dvp < 50) & !missing], total.score[(dvp < 50) & !missing], 
	col = 4)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
plot(1 - dv/100, total.score, type = "n", cex = 0.8, xlim = c(0, 1), xlab = 
	"Republican share of Congressional vote in 1974", ylab = 
	"Support for impeachment")
#~get ".Data/dv" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dv[dem.inc & !missing]/100, total.score[dem.inc & !missing], col = 2
	)
#~get ".Data/dv" 917216668 ...
#~get ".Data/dem.inc" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dv[rep.inc & !missing]/100, total.score[rep.inc & !missing], col = 4
	)
#~get ".Data/dv" 917216668 ...
#~get ".Data/rep.inc" 917216670 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
plot(1 - dvp/100, total.score, type = "n", cex = 0.8, xlim = c(0, 1), xlab = 
	"Republican share of Congressional vote in 1972", ylab = 
	"Support for impeachment")
#~get ".Data/dvp" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dvp[dem.inc & !missing]/100, total.score[dem.inc & !missing], col = 
	2)
#~get ".Data/dvp" 917216669 ...
#~get ".Data/dem.inc" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dvp[rep.inc & !missing]/100, total.score[rep.inc & !missing], col = 
	4)
#~get ".Data/dvp" 917216669 ...
#~get ".Data/rep.inc" 917216670 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
q()
#~End session: Time: 968967194; Process: 10737
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Sep 14 17:33:50 2000
#~get "/usr/local/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/usr/local/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/usr/local/shome/splus/.Datasets/version" -1 ...
#~get "/usr/local/shome/splus/.Functions/.laenv" -1 ...
#~
postscript("nixon.ps", colors = ps.colors.rgb[c("black", "red", "green", "blue"
	),  ], background = ps.colors.rgb[c("white"),  ], horizontal = F)
#~get "/usr/local/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.colors.rgb" -1 ...
#~get "/usr/local/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 968967512 ...
#~
par(mfrow = c(3, 2), mar = c(5, 5, 4, 1) + 0.1)
#~put ".Data/.Last.value" 968967512 ...
#~
par(oma = c(5, 0, 10, 0))
#~put ".Data/.Last.value" 968967512 ...
#~
plot(10 * poole, total.score, type = "n", cex = 0.8, xlab = 
	"Liberal                 (ideology)         Conservative", ylab = 
	"Support for impeachment")
#~get ".Data/poole" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
judic <- nixon[, "judiciar"] > 0
#~get ".Data/nixon" 917216667 ...
#~put ".Data/judic" 968967513 ...
#~
points(10 * poole[(dvp > 50) & !missing], total.score[(dvp > 50) & !missing], 
	col = 2)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(10 * poole[(dvp < 50) & !missing], total.score[(dvp < 50) & !missing], 
	col = 4)
#~get ".Data/poole" 917216668 ...
#~get ".Data/dvp" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
plot(1 - dv/100, total.score, type = "n", cex = 0.8, xlim = c(0, 1), xlab = 
	"Republican share of Congressional vote in 1974", ylab = 
	"Support for impeachment")
#~get ".Data/dv" 917216668 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dv[dem.inc & !missing]/100, total.score[dem.inc & !missing], col = 2
	)
#~get ".Data/dv" 917216668 ...
#~get ".Data/dem.inc" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dv[rep.inc & !missing]/100, total.score[rep.inc & !missing], col = 4
	)
#~get ".Data/dv" 917216668 ...
#~get ".Data/rep.inc" 917216670 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
plot(1 - dvp/100, total.score, type = "n", cex = 0.8, xlim = c(0, 1), xlab = 
	"Republican share of Congressional vote in 1972", ylab = 
	"Support for impeachment")
#~get ".Data/dvp" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dvp[dem.inc & !missing]/100, total.score[dem.inc & !missing], col = 
	2)
#~get ".Data/dvp" 917216669 ...
#~get ".Data/dem.inc" 917216669 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
points(1 - dvp[rep.inc & !missing]/100, total.score[rep.inc & !missing], col = 
	4)
#~get ".Data/dvp" 917216669 ...
#~get ".Data/rep.inc" 917216670 ...
#~get ".Data/missing" 917216669 ...
#~get ".Data/total.score" 917216669 ...
#~
q()
#~End session: Time: 968967240; Process: 10825
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Sun Jul 15 13:30:14 2001
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
ideo2.data[1,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 995218109 ...
#~
dim(ideo2.data)
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 995218135 ...
#~
ideo2.data[10268,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 995218142 ...
#~
#~interrupt
#~
motif()
#~get "/home3/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 995218228 ...
#~
par(mfrow = c(2, 2))
#~put ".Data/.Last.value" 995218235 ...
#~
year <- 54
#~put ".Data/year" 995218239 ...
#~
yr.cond <- ideo2.data[, "year"] == year
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/year" 995218239 ...
#~put ".Data/yr.cond" 995218240 ...
#~
dv <- ideo2.data[yr.cond, "dv"]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/yr.cond" 995218240 ...
#~put ".Data/dv" 995218240 ...
#~
dv
#~get ".Data/dv" 995218240 ...
#~
hist(dv)
#~get ".Data/dv" 995218240 ...
#~put ".Data/.Last.value" 995218245 ...
#~
year <- 92
#~put ".Data/year" 995218259 ...
#~
yr.cond <- ideo2.data[, "year"] == year
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/year" 995218259 ...
#~put ".Data/yr.cond" 995218259 ...
#~
dv <- ideo2.data[yr.cond, "dv"]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/yr.cond" 995218259 ...
#~put ".Data/dv" 995218260 ...
#~
hist(dv)
#~get ".Data/dv" 995218260 ...
#~put ".Data/.Last.value" 995218262 ...
#~
ideo.data[1,  ]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 995218303 ...
#~
ideo.data[500,  ]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 995218319 ...
#~
q()
#~End session: Time: 995218463; Process: 8528
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Sun Jul 15 13:35:08 2001
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
year <- 92
#~put ".Data/year" 995218399 ...
#~
yr.cond <- ideo2.data[, "year"] == year
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/year" 995218399 ...
#~put ".Data/yr.cond" 995218399 ...
#~
dv <- ideo2.data[yr.cond, "dv"]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/yr.cond" 995218399 ...
#~put ".Data/dv" 995218400 ...
#~
mean(dv)
#~get ".Data/dv" 995218400 ...
#~put ".Data/.Last.value" 995218401 ...
#~
mean(dv[!is.na(dv)])
#~get ".Data/dv" 995218400 ...
#~put ".Data/.Last.value" 995218411 ...
#~
year <- 94
#~put ".Data/year" 995218418 ...
#~
yr.cond <- ideo2.data[, "year"] == year
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/year" 995218418 ...
#~put ".Data/yr.cond" 995218418 ...
#~
mean(dv[!is.na(dv)])
#~get ".Data/dv" 995218400 ...
#~put ".Data/.Last.value" 995218422 ...
#~
dv <- ideo2.data[yr.cond, "dv"]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/yr.cond" 995218418 ...
#~put ".Data/dv" 995218436 ...
#~
mean(dv[!is.na(dv)])
#~get ".Data/dv" 995218436 ...
#~put ".Data/.Last.value" 995218439 ...
#~
280000000/435
#~put ".Data/.Last.value" 995219034 ...
#~
q()
#~End session: Time: 995219150; Process: 8558
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Mon Jul 16 12:38:08 2001
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
year <- 92
#~put ".Data/year" 995301380 ...
#~
yr.cond <- ideo2.data[, "year"] == year
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/year" 995301380 ...
#~put ".Data/yr.cond" 995301380 ...
#~
a <- ideo2.data[yr.cond,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/yr.cond" 995301380 ...
#~put ".Data/a" 995301380 ...
#~
a
#~get ".Data/a" 995301380 ...
#~
a[1,  ]
#~get ".Data/a" 995301380 ...
#~put ".Data/.Last.value" 995301392 ...
#~
q()
#~End session: Time: 995301517; Process: 10624
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Mon Jul 16 12:43:35 2001
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
year <- 92
#~put ".Data/year" 995301709 ...
#~
yr.cond <- ideo.data[, "year"] == year
#~get ".Data/ideo.data" 855055907 ...
#~get ".Data/year" 995301709 ...
#~put ".Data/yr.cond" 995301709 ...
#~
data <- ideo.data[yr.cond,  ]
#~get ".Data/ideo.data" 855055907 ...
#~get ".Data/yr.cond" 995301709 ...
#~put ".Data/data" 995301709 ...
#~
poole <- data[, "score1"]
#~get ".Data/data" 995301709 ...
#~put ".Data/poole" 995301710 ...
#~
normvote <- data[, "normvote"]
#~get ".Data/data" 995301709 ...
#~put ".Data/normvote" 995301710 ...
#~
dem <- data[, "dvp"] > 0.5
#~get ".Data/data" 995301709 ...
#~put ".Data/dem" 995301710 ...
#~
range(poole)
#~get ".Data/poole" 995301710 ...
#~put ".Data/.Last.value" 995301715 ...
#~
poole
#~get ".Data/poole" 995301710 ...
#~
sum(poole)
#~get ".Data/poole" 995301710 ...
#~put ".Data/.Last.value" 995301720 ...
#~
data
#~get ".Data/data" 995301709 ...
#~
ideo.data
#~interrupt
#~
yr.cond
#~get ".Data/yr.cond" 995301709 ...
#~
sum(yr.cond)
#~get ".Data/yr.cond" 995301709 ...
#~put ".Data/.Last.value" 995301750 ...
#~
ideo.data[1,  ]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 995301762 ...
#~
dim(ideo.data)
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 995301769 ...
#~
ideo.data[17,  ]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 995301774 ...
#~
ideo.data[9214,  ]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 995301784 ...
#~
year <- 92
#~put ".Data/year" 995301819 ...
#~
yr.cond <- ideo2.data[, "year"] == year
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/year" 995301819 ...
#~put ".Data/yr.cond" 995301820 ...
#~
data <- ideo2.data[yr.cond,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/yr.cond" 995301820 ...
#~put ".Data/data" 995301820 ...
#~
poole <- data[, "score1"]
#~get ".Data/data" 995301820 ...
#~put ".Data/poole" 995301820 ...
#~
normvote <- data[, "normvote"]
#~get ".Data/data" 995301820 ...
#~put ".Data/normvote" 995301820 ...
#~
dem <- data[, "dvp"] > 0.5
#~get ".Data/data" 995301820 ...
#~put ".Data/dem" 995301821 ...
#~
data
#~get ".Data/data" 995301820 ...
#~
poole
#~get ".Data/poole" 995301820 ...
#~
normvote
#~get ".Data/normvote" 995301820 ...
#~
dem
#~get ".Data/dem" 995301821 ...
#~
data[1:10,  ]
#~get ".Data/data" 995301820 ...
#~put ".Data/.Last.value" 995301856 ...
#~
data[1,  ]
#~get ".Data/data" 995301820 ...
#~put ".Data/.Last.value" 995301859 ...
#~
data[1:3,  ]
#~get ".Data/data" 995301820 ...
#~put ".Data/.Last.value" 995301862 ...
#~
q()
#~End session: Time: 995301994; Process: 10638
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Mon Jul 16 12:48:11 2001
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
year <- 88
#~put ".Data/year" 995301985 ...
#~
yr.cond <- ideo2.data[, "year"] == year
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/year" 995301985 ...
#~put ".Data/yr.cond" 995301991 ...
#~
data <- ideo2.data[yr.cond,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/yr.cond" 995301991 ...
#~put ".Data/data" 995301992 ...
#~
poole <- data[, "score1"]
#~get ".Data/data" 995301992 ...
#~put ".Data/poole" 995301992 ...
#~
normvote <- data[, "normvote"]
#~get ".Data/data" 995301992 ...
#~put ".Data/normvote" 995301992 ...
#~
data[, "dvp"]
#~get ".Data/data" 995301992 ...
#~put ".Data/.Last.value" 995301998 ...
#~
motif()
#~get "/home3/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 995302012 ...
#~
table(data[, "demqa"], data[, "demqal"])
#~get ".Data/data" 995301992 ...
#~put ".Data/.Last.value" 995302028 ...
#~
plot(data[, "demqa"], data[, "dvp"])
#~get ".Data/data" 995301992 ...
#~
plot(data[, "demqa1"], data[, "dvp"])
#~error: undefined columns selected
#~put ".Data/last.dump" 995302056 ...
#~
data[1,  ]
#~get ".Data/data" 995301992 ...
#~put ".Data/.Last.value" 995302073 ...
#~
data[, "occup"]
#~get ".Data/data" 995301992 ...
#~put ".Data/.Last.value" 995302088 ...
#~
data[, "po\n"]
#~error: undefined columns selected
#~put ".Data/last.dump" 995302095 ...
#~
data[, "po"]
#~get ".Data/data" 995301992 ...
#~put ".Data/.Last.value" 995302099 ...
#~
data[1,  ]
#~get ".Data/data" 995301992 ...
#~put ".Data/.Last.value" 995302104 ...
#~
data[1:20,  ]
#~get ".Data/data" 995301992 ...
#~put ".Data/.Last.value" 995302145 ...
#~
data[1:4,  ]
#~get ".Data/data" 995301992 ...
#~put ".Data/.Last.value" 995302151 ...
#~
Splus
#~error: Object "Splus" not found
#~
table(i2)
#~error: Object "i2" not found
#~put ".Data/last.dump" 995302414 ...
#~
table(data[, i2])
#~error: Object "i2" not found
#~put ".Data/last.dump" 995302422 ...
#~
table(data[, "i2"])
#~get ".Data/data" 995301992 ...
#~put ".Data/.Last.value" 995302430 ...
#~
yyear <- 92
#~put ".Data/yyear" 995302444 ...
#~
yr.cond <- ideo2.data[, "year"] == year
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/year" 995301985 ...
#~put ".Data/yr.cond" 995302444 ...
#~
data <- ideo2.data[yr.cond,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/yr.cond" 995302444 ...
#~put ".Data/data" 995302445 ...
#~
poole <- data[, "score1"]
#~get ".Data/data" 995302445 ...
#~put ".Data/poole" 995302445 ...
#~
normvote <- data[, "normvote"]
#~get ".Data/data" 995302445 ...
#~put ".Data/normvote" 995302445 ...
#~
year <- 92
#~put ".Data/year" 995302455 ...
#~
yr.cond <- ideo2.data[, "year"] == year
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/year" 995302455 ...
#~put ".Data/yr.cond" 995302456 ...
#~
data <- ideo2.data[yr.cond,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/yr.cond" 995302456 ...
#~put ".Data/data" 995302456 ...
#~
poole <- data[, "score1"]
#~get ".Data/data" 995302456 ...
#~put ".Data/poole" 995302456 ...
#~
normvote <- data[, "normvote"]
#~get ".Data/data" 995302456 ...
#~put ".Data/normvote" 995302456 ...
#~
table(data[, "i2"])
#~get ".Data/data" 995302456 ...
#~put ".Data/.Last.value" 995302460 ...
#~
table(data[, "i12"])
#~error: undefined columns selected
#~put ".Data/last.dump" 995302469 ...
#~
table(data[, "i1"])
#~get ".Data/data" 995302456 ...
#~put ".Data/.Last.value" 995302478 ...
#~
year <- 88
#~put ".Data/year" 995302494 ...
#~
yr.cond <- ideo2.data[, "year"] == year
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/year" 995302494 ...
#~put ".Data/yr.cond" 995302494 ...
#~
data <- ideo2.data[yr.cond,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/yr.cond" 995302494 ...
#~put ".Data/data" 995302494 ...
#~
poole <- data[, "score1"]
#~get ".Data/data" 995302494 ...
#~put ".Data/poole" 995302495 ...
#~
normvote <- data[, "normvote"]
#~get ".Data/data" 995302494 ...
#~put ".Data/normvote" 995302495 ...
#~
table(data[, "i1"])
#~get ".Data/data" 995302494 ...
#~put ".Data/.Last.value" 995302553 ...
#~
table(data[, "i2"])
#~get ".Data/data" 995302494 ...
#~put ".Data/.Last.value" 995302563 ...
#~
table (data[,"dvp"]>.5])
#~error: statement with syntax error
#~
table(data[, "dvp"] > 0.5)
#~get ".Data/data" 995302494 ...
#~put ".Data/.Last.value" 995302583 ...
#~
q()
#~End session: Time: 995303094; Process: 10652
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Mon Jul 16 13:14:45 2001
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
pooledata <- read.table("poole.asc", header = F)
#~error: variable number of fields: 10, 11
#~put ".Data/last.dump" 995303579 ...
#~
cond <- pooledata[, 1] == 102
#~error: Object "pooledata" not found
#~
poole <- polledata[cond]
#~error: Object "polledata" not found
#~
p.state <- poole[, 3]
#~error: No dim attribute for array subset
#~put ".Data/last.dump" 995303579 ...
#~
p.cd <- poole[, 4]
#~error: No dim attribute for array subset
#~put ".Data/last.dump" 995303579 ...
#~
p.party <- poole[, 6]
#~error: No dim attribute for array subset
#~put ".Data/last.dump" 995303579 ...
#~
p.score <- poole[, 9]
#~error: No dim attribute for array subset
#~put ".Data/last.dump" 995303579 ...
#~
cc <- count.fields("poole.asc")
#~put ".Data/cc" 995303594 ...
#~
table(cc)
#~get ".Data/cc" 995303594 ...
#~put ".Data/.Last.value" 995303597 ...
#~
(1:length(cc))[cc == 11]
#~get ".Data/cc" 995303594 ...
#~put ".Data/.Last.value" 995303606 ...
#~
year <- 92
#~put ".Data/year" 995303638 ...
#~
yr.cond <- ideo2.data[, "year"] == year
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/year" 995303638 ...
#~put ".Data/yr.cond" 995303638 ...
#~
data <- ideo2.data[yr.cond,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~get ".Data/yr.cond" 995303638 ...
#~put ".Data/data" 995303639 ...
#~
score1 <- data[, "score1"]
#~get ".Data/data" 995303639 ...
#~put ".Data/score1" 995303639 ...
#~
normvote <- data[, "normvote"]
#~get ".Data/data" 995303639 ...
#~put ".Data/normvote" 995303639 ...
#~
pooledata <- read.table("poole.asc", header = F)
#~put ".Data/pooledata" 995303653 ...
#~
cond <- pooledata[, 1] == 102
#~get ".Data/pooledata" 995303653 ...
#~put ".Data/cond" 995303653 ...
#~
poole <- polledata[cond]
#~error: Object "polledata" not found
#~
p.state <- poole[, 3]
#~error: No dim attribute for array subset
#~put ".Data/last.dump" 995303653 ...
#~
p.cd <- poole[, 4]
#~error: No dim attribute for array subset
#~put ".Data/last.dump" 995303653 ...
#~
p.party <- poole[, 6]
#~error: No dim attribute for array subset
#~put ".Data/last.dump" 995303653 ...
#~
p.score <- poole[, 9]
#~error: No dim attribute for array subset
#~put ".Data/last.dump" 995303654 ...
#~
poole <- pooledata[cond]
#~get ".Data/pooledata" 995303653 ...
#~get ".Data/cond" 995303653 ...
#~put ".Data/poole" 995303666 ...
#~
p.state <- poole[, 3]
#~error: undefined columns selected
#~put ".Data/last.dump" 995303666 ...
#~
p.cd <- poole[, 4]
#~error: undefined columns selected
#~put ".Data/last.dump" 995303666 ...
#~
p.party <- poole[, 6]
#~error: undefined columns selected
#~put ".Data/last.dump" 995303666 ...
#~
p.score <- poole[, 9]
#~error: undefined columns selected
#~put ".Data/last.dump" 995303666 ...
#~
pooledata <- read.table("poole.asc", header = F)
#~interrupt
#~put ".Data/last.dump" 995303679 ...
#~
pooledata <- read.table("poole.asc", header = F)
#~put ".Data/pooledata" 995303693 ...
#~
cond <- pooledata[, 1] == 102
#~get ".Data/pooledata" 995303693 ...
#~put ".Data/cond" 995303696 ...
#~
poole <- pooledata[cond,  ]
#~get ".Data/pooledata" 995303693 ...
#~get ".Data/cond" 995303696 ...
#~put ".Data/poole" 995303697 ...
#~
p.state <- poole[, 3]
#~get ".Data/poole" 995303697 ...
#~put ".Data/p.state" 995303697 ...
#~
p.cd <- poole[, 4]
#~get ".Data/poole" 995303697 ...
#~put ".Data/p.cd" 995303697 ...
#~
p.party <- poole[, 6]
#~get ".Data/poole" 995303697 ...
#~put ".Data/p.party" 995303697 ...
#~
p.score <- poole[, 9]
#~get ".Data/poole" 995303697 ...
#~put ".Data/p.score" 995303697 ...
#~
p.score
#~get ".Data/p.score" 995303697 ...
#~
motif()
#~get "/home3/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 995303833 ...
#~
plot(score1, p.score)
#~put ".Data/last.dump" 995303837 ...
#~
length(score1)
#~get ".Data/score1" 995303639 ...
#~put ".Data/.Last.value" 995303842 ...
#~
length(p.score)
#~get ".Data/p.score" 995303697 ...
#~put ".Data/.Last.value" 995303845 ...
#~
p.state
#~get ".Data/p.state" 995303697 ...
#~
ideo.data[1,  ]
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 995303866 ...
#~
p.state
#~get ".Data/p.state" 995303697 ...
#~
data[1,  ]
#~get ".Data/data" 995303639 ...
#~put ".Data/.Last.value" 995303871 ...
#~
state <- data[, "sticpsr"]
#~get ".Data/data" 995303639 ...
#~put ".Data/state" 995304022 ...
#~
cd <- data[, "cd"]
#~get ".Data/data" 995303639 ...
#~put ".Data/cd" 995304022 ...
#~
party <- rep(NA, length(score1))
#~get ".Data/score1" 995303639 ...
#~put ".Data/party" 995304025 ...
#~
score1a <- rep(NA, length(score1))
#~get ".Data/score1" 995303639 ...
#~put ".Data/score1a" 995304025 ...
#~
for(i in 1:length(score1)) {
	ok <- p.state == state[i] & p.cd == cd[i]
	if(sum(ok) == 1) {
		party[i] <- p.party[ok]
		score1a[i] <- p.score[ok]
	}
}
#~get ".Data/score1" 995303639 ...
#~get ".Data/p.state" 995303697 ...
#~get ".Data/state" 995304022 ...
#~get ".Data/p.cd" 995303697 ...
#~get ".Data/cd" 995304022 ...
#~put ".Data/ok" 995304027 ...
#~get ".Data/p.party" 995303697 ...
#~get ".Data/party" 995304025 ...
#~put ".Data/party" 995304027 ...
#~get ".Data/p.score" 995303697 ...
#~get ".Data/score1a" 995304025 ...
#~put ".Data/score1a" 995304027 ...
#~
party
#~get ".Data/party" 995304027 ...
#~
score1a
#~get ".Data/score1a" 995304027 ...
#~
sum(is.na(party))
#~get ".Data/party" 995304027 ...
#~put ".Data/.Last.value" 995304044 ...
#~
plot(score1, score1a)
#~get ".Data/score1" 995303639 ...
#~get ".Data/score1a" 995304027 ...
#~
range(normvote)
#~get ".Data/normvote" 995303639 ...
#~put ".Data/.Last.value" 995304073 ...
#~
mean(score1[party == 100])
#~get ".Data/score1" 995303639 ...
#~get ".Data/party" 995304027 ...
#~put ".Data/.Last.value" 995304131 ...
#~
score1[party == 100]
#~get ".Data/score1" 995303639 ...
#~get ".Data/party" 995304027 ...
#~put ".Data/.Last.value" 995304140 ...
#~
score1[party == 200]
#~get ".Data/score1" 995303639 ...
#~get ".Data/party" 995304027 ...
#~put ".Data/.Last.value" 995304145 ...
#~
plot (score1a, normvote, xlab="Demcratic vote for President in the district",
  ylab="(liberal)     "Congressmember's ideology"    (conservative)",type="n")
#~error: statement with syntax error
#~
points(score1a[party == 100], normvote[party == 100], pch = 1)
#~get ".Data/score1a" 995304027 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/normvote" 995303639 ...
#~
points(score1a[party == 200], normvote[party == 200], pch = 16)
#~get ".Data/score1a" 995304027 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/normvote" 995303639 ...
#~
legend(-0.6, 0.7, legend = c("Republicans", "Democrats", pch = c(16, 1)))
#~
plot(score1a, normvote, xlab = "Demcratic vote for President in the district", 
	ylab = "(liberal)     Congressmember's ideology    (conservative)", 
	type = "n")
#~get ".Data/score1a" 995304027 ...
#~get ".Data/normvote" 995303639 ...
#~
points(score1a[party == 100], normvote[party == 100], pch = 1)
#~get ".Data/score1a" 995304027 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/normvote" 995303639 ...
#~
points(score1a[party == 200], normvote[party == 200], pch = 16)
#~get ".Data/score1a" 995304027 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/normvote" 995303639 ...
#~
legend(-0.6, 0.7, legend = c("Republicans", "Democrats", pch = c(16, 1)))
#~
help(legend)
#~put ".Data/.Last.value" 995304393 ...
#~
plot(normvote, score1a, xlab = "Demcratic vote for President in the district", 
	ylab = "(left-wing)          Congressmember's ideology         (right-wing)",
	type = "n", cex = 2)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/score1a" 995304027 ...
#~
points(score1a[party == 100], normvote[party == 100], pch = 1)
#~get ".Data/score1a" 995304027 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/normvote" 995303639 ...
#~
points(score1a[party == 200], normvote[party == 200], pch = 16)
#~get ".Data/score1a" 995304027 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/normvote" 995303639 ...
#~
legend(0.2, -0.3, legend = c("Republicans", "Democrats", marks = c(16, 1)))
#~
plot(normvote, score1a, xlab = "Demcratic vote for President in the district", 
	ylab = "(left-wing)          Congressmember's ideology         (right-wing)",
	type = "n", cex = 2)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 100], score1a[party == 100], pch = 1, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
points(score1a[party == 200], score1a[party == 200], pch = 16, cex = 1)
#~get ".Data/score1a" 995304027 ...
#~get ".Data/party" 995304027 ...
#~
legend(0.2, -0.3, legend = c("Republicans", "Democrats", marks = c(16, 1)), cex
	 = 1.5)
#~
par(mar = c(5, 5, 4, 1) + 0.1)
#~put ".Data/.Last.value" 995304518 ...
#~
plot(normvote, score1a, xlab = "Demcratic vote for President in the district", 
	ylab = "(left-wing)          Congressmember's ideology         (right-wing)",
	type = "n", cex = 2)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 100], score1a[party == 100], pch = 1, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 200], score1a[party == 200], pch = 16, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
legend(0.2, -0.3, legend = c("Republicans", "Democrats", marks = c(16, 1)), cex
	 = 1.5)
#~
postscript("chance3.ps", horizontal = T)
#~get "/home3/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 995304562 ...
#~
par(mar = c(5, 5, 4, 1) + 0.1)
#~put ".Data/.Last.value" 995304562 ...
#~
plot(normvote, score1a, xlab = "Demcratic vote for President in the district", 
	ylab = "(left-wing)          Congressmember's ideology         (right-wing)",
	type = "n", cex = 2)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 100], score1a[party == 100], pch = 1, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 200], score1a[party == 200], pch = 16, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
legend (.3, -.6, legend=c("Democrats","Republicans"), marks=c(1,16)), cex=1.5)
#~error: statement with syntax error
#~
q()
#~End session: Time: 995304675; Process: 10740
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Mon Jul 16 13:32:12 2001
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
postscript("chance3.ps", horizontal = T)
#~get "/home3/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 995304622 ...
#~
par(mar = c(5, 5, 4, 1) + 0.1)
#~put ".Data/.Last.value" 995304622 ...
#~
plot(normvote, score1a, xlab = "Demcratic vote for President in the district", 
	ylab = "Congressmember's ideology score", type = "n", cex = 2)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 100], score1a[party == 100], pch = 1, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 200], score1a[party == 200], pch = 16, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
legend(0.3, -0.6, legend = c("Democrats", "Republicans"), marks = c(1, 16), cex
	 = 1.5)
#~
q()
#~End session: Time: 995304735; Process: 10801
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Mon Jul 16 13:32:55 2001
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
postscript("chance3.ps", horizontal = T)
#~get "/home3/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 995304667 ...
#~
par(mar = c(5, 5, 4, 1) + 0.1)
#~put ".Data/.Last.value" 995304668 ...
#~
plot(normvote, score1a, xlab = "Demcratic vote for President in the district", 
	ylab = "Congressmember's ideology score", type = "n", cex = 2)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 100], score1a[party == 100], pch = 1, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 200], score1a[party == 200], pch = 16, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
legend(0.2, -0.6, legend = c("Democrats", "Republicans"), marks = c(1, 16), cex
	 = 1)
#~
q()
#~End session: Time: 995304780; Process: 10831
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Mon Jul 16 13:33:42 2001
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
postscript("chance3.ps", horizontal = T)
#~get "/home3/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 995304712 ...
#~
par(mar = c(5, 5, 4, 1) + 0.1)
#~put ".Data/.Last.value" 995304712 ...
#~
plot(normvote, score1a, xlab = "Demcratic vote for President in the district", 
	ylab = "Congressmember's ideology score", type = "n", cex = 2)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 100], score1a[party == 100], pch = 1, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 200], score1a[party == 200], pch = 16, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
legend(0.25, -0.6, legend = c("Democrats", "Republicans"), c(., o), cex = 1.2)
#~error: Object "." not found
#~put ".Data/last.dump" 995304712 ...
#~
q()
#~End session: Time: 995304824; Process: 10862
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Mon Jul 16 13:34:10 2001
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
postscript("chance3.ps", horizontal = T)
#~get "/home3/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 995304744 ...
#~
par(mar = c(5, 5, 4, 1) + 0.1)
#~put ".Data/.Last.value" 995304744 ...
#~
plot(normvote, score1a, xlab = "Demcratic vote for President in the district", 
	ylab = "Congressmember's ideology score", type = "n", cex = 2)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 100], score1a[party == 100], pch = 1, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 200], score1a[party == 200], pch = 16, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
legend(0.25, -0.6, legend = c("Democrats", "Republicans"), c(".", "o"), cex = 
	1.2)
#~put ".Data/last.dump" 995304745 ...
#~
postscript("chance3.ps", horizontal = T)
#~get "/home3/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 995304764 ...
#~
par(mar = c(5, 5, 4, 1) + 0.1)
#~put ".Data/.Last.value" 995304764 ...
#~
plot(normvote, score1a, xlab = "Demcratic vote for President in the district", 
	ylab = "Congressmember's ideology score", type = "n", cex = 2)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 100], score1a[party == 100], pch = 1, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 200], score1a[party == 200], pch = 16, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
legend(0.25, -0.6, legend = c("Democrats", "Republicans"), pch = c(".", "o"), 
	cex = 1.2)
#~
q()
#~End session: Time: 995304877; Process: 10892
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Mon Jul 16 13:34:58 2001
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
help(legend)
#~put ".Data/.Last.value" 995304861 ...
#~
postscript("chance3.ps", horizontal = T)
#~get "/home3/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 995304870 ...
#~
par(mar = c(5, 5, 4, 1) + 0.1)
#~put ".Data/.Last.value" 995304870 ...
#~
plot(normvote, score1a, xlab = "Demcratic vote for President in the district", 
	ylab = "Congressmember's ideology score", type = "n", cex = 2)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 100], score1a[party == 100], pch = 1, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 200], score1a[party == 200], pch = 16, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
legend(0.3, -0.6, legend = c("Democrats", "Republicans"), pch = ".o", cex = 1.2
	)
#~
q()
#~End session: Time: 995304983; Process: 10946
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Mon Jul 16 13:36:51 2001
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
postscript("chance3.ps", horizontal = T)
#~get "/home3/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 995304901 ...
#~
par(mar = c(5, 5, 4, 1) + 0.1)
#~put ".Data/.Last.value" 995304902 ...
#~
plot(normvote, score1a, xlab = "Demcratic vote for President in the district", 
	ylab = "Congressmember's ideology score", type = "n", cex = 2)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 100], score1a[party == 100], pch = 1, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 200], score1a[party == 200], pch = 16, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
legend(0.22, -0.6, legend = c("Democrats", "Republicans"), marks = c(1, 16), 
	cex = 1.2)
#~
q()
#~End session: Time: 995305014; Process: 10985
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Mon Jul 16 13:37:41 2001
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
postscript("chance3.ps", horizontal = T)
#~get "/home3/shome/splus/.Datasets/.PostScript.Options" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.preamble.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setcolor.rgb" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.setfont.std" -1 ...
#~get "/home3/shome/splus/.Datasets/ps.paper.regions" -1 ...
#~put ".Data/.Last.value" 995304951 ...
#~
par(mar = c(5, 5, 4, 1) + 0.1)
#~put ".Data/.Last.value" 995304951 ...
#~
plot(normvote, score1a, xlab = "Demcratic vote for President in the district", 
	ylab = "Congressmember's ideology score", type = "n", cex = 2)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 100], score1a[party == 100], pch = 1, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
points(normvote[party == 200], score1a[party == 200], pch = 16, cex = 1)
#~get ".Data/normvote" 995303639 ...
#~get ".Data/party" 995304027 ...
#~get ".Data/score1a" 995304027 ...
#~
legend(0.22, -0.6, legend = c("Republicans", "Democrats"), marks = c(16, 1), 
	cex = 1.2)
#~
q()
#~End session: Time: 995305064; Process: 11015
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Feb 14 14:55:34 2002
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
ls()
#~put ".Data/.Last.value" 1013716511 ...
#~
ideo2.data
#~interrupt
#~
ideo2.data[1:3,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 1013716562 ...
#~
ideo2.data[1000:1003,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 1013716577 ...
#~
ideo2.data[1400:1403,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 1013716589 ...
#~
ideo2.data[2400:2403,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 1013716620 ...
#~
ideo2.data[2000:2003,  ]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/.Last.value" 1013716639 ...
#~
q()
#~End session: Time: 1013716703; Process: 7258
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Feb 14 14:58:28 2002
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
dum <- ideo2.data[, "normvote"]
#~get ".Data/ideo2.data" 855056723 ...
#~put ".Data/dum" 1013716679 ...
#~
dum
#~interrupt
#~
q()
#~End session: Time: 1013716738; Process: 7265
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Feb 14 15:00:18 2002
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
normvote
#~get ".Data/normvote" 995303639 ...
#~
nrow(ideo.data)
#~get ".Data/ideo.data" 855055907 ...
#~put ".Data/.Last.value" 1013716924 ...
#~
candidate.effects
#~get ".Data/candidate.effects" 854019111 ...
#~
write(t(round(candidate.effects, 4)), "candidate_effects.txt", ncol = 12)
#~get ".Data/candidate.effects" 854019111 ...
#~
q()
#~End session: Time: 1013717160; Process: 7285
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Feb 14 15:06:32 2002
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
states
#~get ".Data/states" 854022893 ...
#~
write(t(cbind(states, round(candidate.effects, 4))), "candidate_effects.txt", 
	ncol = 12)
#~get ".Data/states" 854022893 ...
#~get ".Data/candidate.effects" 854019111 ...
#~
q()
#~End session: Time: 1013717220; Process: 7297
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Feb 14 15:07:19 2002
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
write(t(cbind(states, round(candidate.effects, 4))), "candidate_effects.txt", 
	ncol = 13)
#~get ".Data/states" 854022893 ...
#~get ".Data/candidate.effects" 854019111 ...
#~
q()
#~End session: Time: 1013717243; Process: 7305
#~New session: Version: S Tue Jul 16 11:08:59 PDT 1996, Time: Thu Feb 14 15:08:37 2002
#~get "/home3/shome/splus/.Datasets/..min.script.id" -1 ...
#~get "/home3/shome/splus/.Datasets/.Copyright" -1 ...
#~get "/home3/shome/splus/.Datasets/version" -1 ...
#~get "/home3/shome/splus/.Functions/.laenv" -1 ...
#~
vcandidate.effects
#~error: Object "vcandidate.effects" not found
#~
candidate.effects
#~get ".Data/candidate.effects" 854019111 ...
#~
q()
#~End session: Time: 1013717326; Process: 7313
