#created by Taku KANETA (2011/6/21st)

q <- read.delim("clipboard")
tufs <- subset(q, tufs==1)
hawaii <- subset(q, tufs==2)
gap <- abs(mean(tufs)-mean(hawaii))
order(gap, decreasing=TRUE)

q <- read.delim("clipboard")
attach(q)
teach <- subset(q, teaching==1)
no.teach <- subset(q, teaching==2)
gap <- abs(mean(teach)-mean(no.teach))
order(gap, decreasing=TRUE)

data <- read.delim("clipboard")
(tab1 <- xtabs(~q7+tufs, data=data))
library(gplots)
balloonplot(xtabs(~data$q7+data$tufs, data=data))

boxplot(data, horizontal=TRUE)

plot(mean(data))
lines(mean(data))

plot(mean(data), type="l")

windowsFonts()

windowsFonts(JP1=windowsFont("MS Gothic"),JP2=windowsFont("MS Mincho")) 

plot(mean(data), type="l", ann=F)

axis(side=1, 1:20, family="JP1")
axis(side=2, family="JP2", ps=12)