shay-y

library(shiny)
library(deSolve) 
library(ggplot2)

# Define server logic required to plot various variables
shinyServer(function(input, output) {
  
  solveLorenz <- function(pars, times=tout) {
    derivs <- function(t, state, pars) { # returns rate of change
      with(as.list(c(state, pars)), {