#!/usr/bin/Rscript
#
# R script to create and save a scatter plot
# muh, April 2020

# Read the datafile
mydata <- read.table("dataout", header=FALSE, sep=" ")

sum <- sum(mydata$V2)
for (val in mydata$V2) {
    print (val/sum)
}

# Open a jpeg device, create the plot there, close device
jpeg('scatterplot_out.jpg')
plot(mydata$V1, mydata$V2, main="Web Page Sizes", xlab="Courses", ylab="Index Size")
dev.off()