#ca = current amount of superannuation #cc = compulsory contribution / month #ss = salary sacrifice - optional #sgp = superannuation growth percentage #basic = superannuation growth #enhanced = basic + ss super growth #dur = duration in years # User Input designations #--------------------------------- #input <- readLines("stdin") #ca = as.numeric(input[1]) #cc = as.numeric(input[2]) #ss = as.numeric(input[3]) #sgp = as.numeric(input[4]) #dur = as.integer(input[5]) #--------------------------------- # Example of User Inputs ca <- 40000 # current amount cc <- 400 # employer / mth ss <- 600 # employee / mth sgp <- 5.5 # interest rate dur <- 40 # years of work #--------------------------------- # Prep vectors basic <- c() enhanced <- c() basic[1] = ca enhanced[1] = ca # func1 <- Ascertain yearly growth yearly <- function(balance,credit){ for(i in 1:12){ balance <- balance + credit } return(balance * (1+sgp/100)) } # func2 <- Final amount to Dollars convert <- function(x){ num <- max(x) num <- round(num,digits=2) num <- as.character(num) dollar ="$" return(paste(dollar,num,sep="")) } # func3 <- num + % for printing percent <- function(x){ x <- as.character(x) sign <- "%" return(paste(x,sign,sep="")) } # Insert data into vectors for(i in 1:dur){ basic[i+1] <- yearly(basic[i],cc) enhanced[i+1] <- yearly(enhanced[i],(cc +ss)) } sss <- c(ss) # employee contribution # Prep vector results for statement b <- convert(basic) e <- convert(enhanced) s <- convert(sss) p <- percent(sgp) # Summary statment cat("

Superannuation Summary

") cat(" The following chart shows the potential growth advantage of Salary Sacrifice upon an employee's superannuation during the period of time an employee may expect to work. A Salary Sacrifice of",s,"/ month could result in a potential outcome of",e," compared to the potential of",b,"which is achieved through employer contributions only. This prediction is based on an average percentage return of",p,"which is subject to variation due to fluctuating market forces. See code notes for further comments pertaining to this information.") # Create line chart png(file = "super_comparison.png") line1 <- enhanced line2 <- basic plot(line1, type = "l", col = "purple", xlab = "Years", ylab = "Superannuation Balance", main = "Growth Potential", lwd = 3) lines(line2, type="l", col = "red", lwd = 3) # Legend within line chart legend("topleft", legend = c("Enhanced Super", "Basic Super"), col = c(rgb(0.5,0,1,1), rgb(1,0.3,0,1)), pch = c(19,19), bty = "n", pt.cex = 3, cex = 1.5, text.col = "black", horiz = F , inset = c(0.1, 0.1))

Line Chart - Superannuation