2007Sep12.R

dir()
case0101 = read.csv("CASE0101.csv")
attach(case0101)
names(case0101)
case0101
case0101[1:10,]
case0101[,1]
case0101[,2[
case0101[,2]
case0101[2,]
case0101[8,2]
mean(SCORE)
mean(SCORE[TREATMENT=="INTRINSIC"])
mean(SCORE[TREATMENT=="EXTRINSIC"])
sd(SCORE)
sd(SCORE[TREATMENT=="INTRINSIC"])
sd(SCORE[TREATMENT=="EXTRINSIC"])
boxplot(SCORE)
boxplot(SCORE~TREATMENT)
boxplot(SCORE~TREATMENT, ylab="Score")
30+1.5*7.5
22.5-1.5*7.5
1.5*7.5
22.5-11.25
local({pkg <- select.list(sort(.packages(all.available = TRUE)))
if(nchar(pkg)) library(pkg, character.only=TRUE)})
utils:::menuInstallLocal()
utils:::menuInstallPkgs()
library(UsingR)
DOTplot(SCORE~TREATMENT)
detach(CASE0101)
detach(case0101)