ColCarroll

tryAsInteger = function(node) {
  val = xmlValue(node)
  ans = as.integer(gsub(",", "", val))
  if(is.na(ans))
      val
  else
      ans
}

scrapeTable <- function(theurl = "http://en.wikipedia.org/wiki/List_of_highest_mountains"){

ColCarroll

get_psu_sample <- function(){
  nodeinfo <- read.table("http://www.stat.psu.edu/~dhunter/Rnetworks/nodal.attr.txt", head=T) 
  nodeinfo <<- cbind(1:nrow(nodeinfo),nodeinfo)
  names(nodeinfo)[1] <<- "id"
  myedges <<- read.table("http://www.stat.psu.edu/~dhunter/Rnetworks/edgelist.txt")
}

network_example <- function(){
  require(network)

ColCarroll

sparse_matrix <- function(size, sparsity){
  # Returns a <size> by <size> symmetric matrix
  # with the desired sparsity percent
  sparse <- matrix(
      rbinom(size * size, 1, sparsity),
      ncol = size,
      nrow = size
      )
  sparse[lower.tri(sparse)] <- 0
  sparse <- sparse + t(sparse)

ColCarroll

class Cfunction:
    """
    A class for numeric calculus experiments
    """
    def __init__(self, fcn, eps=0.001):
        self.fcn = fcn
        self.__eps = eps
        self.integral = lambda x: self.integrate(0, x)  # Indefinite integral
        self.derivative = self._derivative()  # f'(x)

ColCarroll

ColCarroll

ColCarroll

ColCarroll