Update mtcars.r
Update mtcars.r
bgweber/RServer,bgweber/RServer,bgweber/RServer,bgweber/RServer
# Copyright (C) 2016 Electronic Arts Inc.  All rights reserved.
str(mtcars)

print("Sleeping for 15 seconds")
Sys.sleep(15)


print("Saving RData file")
dir.create("/var/www/html/RServer/reports/mtcars")
save(mtcars, file = "/var/www/html/RServer/reports/mtcars/mtcars.RData")


fit <- lm(mpg~am + wt + hp, data = mtcars) 
summary(fit)


print("Saving Model")
Sys.sleep(10)
save(fit, file = "/var/www/html/RServer/reports/mtcars/Model.RData")

str(mtcars)

print("Sleeping for 15 seconds")
Sys.sleep(15)


print("Saving RData file")
dir.create("/var/www/html/RServer/reports/mtcars")
save(mtcars, file = "/var/www/html/RServer/reports/mtcars/mtcars.RData")


fit <- lm(mpg~am + wt + hp, data = mtcars) 
summary(fit)


print("Saving Model")
Sys.sleep(10)
save(fit, file = "/var/www/html/RServer/reports/mtcars/Model.RData")
