# Assignment 1
# Author: Daniel Kearney

# Five equally spaced #s
x1 <- seq(1, 100, length=5)
sprintf( "Five equally spaced numbers: %s", toString(x1))

# Mean of all except second
sprintf ( "Mean of all except second: %s", mean ( x1[-2] ) )

# Data frame
My.List <- c(
  data.frame(
    c1 = x1,
    c2 = c(2, 1, 4, 7, 8)
  ),
  c(T, F, NA, T, F)
);
sprintf("Complex frame: %s", toString(My.List))

# Adding elementwise the 2 columns of the first element in My.List
idx <- 1:length(My.List[[1]])
x2 <- lapply(idx, function(x) My.List[[1]][x] + My.List[[2]][x] )
sprintf("Elementwise added first two columns: %s", toString(x2))