Rem Koning remkoning

## heightweight.csv

          
            sex
            ageYear
            ageMonth
            heightIn
            weightLb

            
              f
              11.91667
              143
              56.3
              85

            
              f
              12.91667
              155
              62.3
              105

            
              f
              12.75
              153
              63.3
              108

            
              f
              13.41667
              161
              59
              92

            
              f
              15.91667
              191
              62.5
              112.5

            
              f
              14.25
              171
              62.5
              112

            
              f
              15.41667
              185
              59
              104

            
              f
              11.83333
              142
              56.5
              69

            
              f
              13.33333
              160
              62
              94.5

## server.r
if (!require(quantmod)) {
  stop("This app requires the quantmod package. To install it, run 'install.packages(\"quantmod\")'.\n")
}

# Download data for a stock if needed, and return the data
require_symbol <- function(symbol, envir = parent.frame()) {
  if (is.null(envir[[symbol]])) {
    envir[[symbol]] <- getSymbols(symbol, auto.assign = FALSE)
  }

## bottle-cors.py
"""
Example of setting up CORS with Bottle.py.
"""

from bottle import Bottle, request, response, run
app = Bottle()

@app.hook('after_request')
def enable_cors():
    """
sex	ageYear	ageMonth	heightIn	weightLb
f	11.91667	143	56.3	85
f	12.91667	155	62.3	105
f	12.75	153	63.3	108
f	13.41667	161	59	92
f	15.91667	191	62.5	112.5
f	14.25	171	62.5	112
f	15.41667	185	59	104
f	11.83333	142	56.5	69
f	13.33333	160	62	94.5
	if (!require(quantmod)) {
	stop("This app requires the quantmod package. To install it, run 'install.packages(\"quantmod\")'.\n")
	}

	# Download data for a stock if needed, and return the data
	require_symbol <- function(symbol, envir = parent.frame()) {
	if (is.null(envir[[symbol]])) {
	envir[[symbol]] <- getSymbols(symbol, auto.assign = FALSE)
	}
	"""
	Example of setting up CORS with Bottle.py.
	"""

	from bottle import Bottle, request, response, run
	app = Bottle()

	@app.hook('after_request')
	def enable_cors():
	"""