Chris Lawrence lordsutch

## README.md

      
              3 files
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                lordsutch
                / README.md
            
            
              Last active
              December 25, 2015 17:59
                — forked from mbostock/.block
            
              
                Futzing with OSM Vector Tiles
              
          
    Adapting d3.geo.tile to show OpenStreetMap vector tiles. See also the static example.

  
## dropquizzes.R
## Note: we're assuming each grade should be weighted equally here.
dropmean <- function(x, drop=2) {
    count <- length(x)-drop
    round(sum(sort(x, decreasing=TRUE)[seq(1, count)], na.rm=T)/count, 2)
}

## Same formula for multiple sections; note list.files uses a regex pattern, not a glob pattern
infiles <- list.files(pattern='^gradebook-quizzes-[0-9]+\\.csv$')

for(filename in infiles) {
	## Note: we're assuming each grade should be weighted equally here.
	dropmean <- function(x, drop=2) {
	count <- length(x)-drop
	round(sum(sort(x, decreasing=TRUE)[seq(1, count)], na.rm=T)/count, 2)
	}

	## Same formula for multiple sections; note list.files uses a regex pattern, not a glob pattern
	infiles <- list.files(pattern='^gradebook-quizzes-[0-9]+\\.csv$')

	for(filename in infiles) {