freq table

require(gmodels)data(infert, package = "datasets")CrossTable(infert$education, infert$induced, expected = TRUE)CrossTable(infert$education, infert$induced, expected = TRUE, format="SAS")CrossTable(infert$education, infert$induced, expected = TRUE, format="SPSS")CrossTable(warpbreaks$wool, warpbreaks$tension, dnn = c("Wool", "Tension"))

function findlink(pkg, fn) { var Y, link; Y = location.href.lastIndexOf(“\\”) + 1; link = location.href.substring(0, Y); link = link + “../../” + pkg + “/chtml/” + pkg + “.chm::/” + fn; location.href = link; }

increas the # of tick intervals

library(plotrix)
hist (data1, seq(-0.01,0.3,0.01),freq = FALSE, main=”Figure1.”,xlab=”return”,lab=c(1,1,12),xaxt=”n”) staxlab(1,at=seq(-0.01,0.3,by=0.02),labels=seq(-0.01,0.3,by=0.02))

barplot(one,axes=F)
axis(2,at=seq(0,80,by=5))