Btibert3

.flat-table {
  display: block;
  font-family: sans-serif;
  -webkit-font-smoothing: antialiased;
  font-size: 115%;
  overflow: auto;
  width: auto;
  
  th {
    background-color: rgb(112, 196, 105);

agstudy

transformdata <- function(dates,  values, date.form = "%Y-%m-%d", ...) {
  require(lattice)
  require(grid)
  require(chron)
  if (class(dates) == "character" | class(dates) == "factor" ) {
    dates <- strptime(dates, date.form)
  }
  caldat <- data.frame(value = values, dates = dates)
  min.date <- as.Date(paste(format(min(dates), "%Y"),

agstudy

calendar.division <- function(...)
{
  xyetc <- list(...)
  subs <- dat[xyetc$subscripts,]
  dates.fsubs <- dat[dat$yr == unique(subs$yr),]
  y.start <- dates.fsubs$dotw[1]
  y.end   <- dates.fsubs$dotw[nrow(dates.fsubs)]
  dates.len <- nrow(dates.fsubs)
  adj.start <- dates.fsubs$woty[1]

abelsonlive

require("lattice")
require("makeR")

####################################################################
####################################################################
####################################################################
####################################################################

levelplot.forumula <- function (x, data = NULL, allow.multiple = is.null(groups) || 
    outer, outer = TRUE, aspect = "fill", panel = if (useRaster) lattice.getOption("panel.levelplot.raster") else lattice.getOption("panel.levelplot"),