report-specifications.R

# edit below for script parameters #
	
#subset data into parts? 1 for yes, 0 for no
#subset_data <- 0 #Uncomment lines 70-82 if this option is enabled

#1 for verbose report, 2 for non-verbose
verbose_report <- 1								

#designate location of data file
filePath <- '/SFRAT/model_testing/model_data.xlsx'
#select which sheet to pick, in this case gives SYS1
sheetNumber <- 1
colors <- c("navy","red","green","firebrick4","magenta","blue")

#Tab 1 Parameters:
	#laplace test confidence level
	confidence_lvl <- 0.9

#Tab 2 Parameters:
	#number of future failures to predict
	num_failures_future_prediction <- 2	

	#pick models to include, by default is all
	models_to_apply <- c('DSS', 'GM', 'Wei','GO','JM','ISS')
	#mission time to compute reliability growth
	mission_time <- 600

#Tab 3 Parameters:
	#number of future failures to predict
	num_failures_to_predict <- 3

	#future prediction time
	additional_time_software_will_run <- 4116

	#between 0-1, desired software reliability
	desired_reliability <- .9

	#interval size
	reliability_interval_length<- 600

#Tab 4 Parameters:
	#predictive sum of squares, percentage
	percent_data_for_PSSE <- .9

#do not edit below --------------------------------------------------------------------------------------#

library("knitr")
library("markdown")
library("rmarkdown")
library("readxl")
library("formatR")
library("shiny")
library("DT")
library("gdata")
library("Rcpp")
library("ggplot2")
library("rootSolve")
library("colorspace")

datapath <- paste0(getwd(), filePath)
datasettemp <- read_excel(datapath,sheet = sheetNumber)  #Specify the sheet with the data
SheetName<-excel_sheets(path=datapath)[sheetNumber] #Specify the sheet selected in the above line


dataset <- datasettemp[1:floor(dim(datasettemp)[1]),]
x <- verbose_report
rmarkdown::render(paste0(getwd(),'/SFRATReport.Rmd'),output_file =  paste("SFRAT report_", SheetName,'_', Sys.Date(), ".pdf", sep=''),output_dir = './Reports') 

#if (subset_data==1) {
#  ds <- readline(prompt="How many percent of data should be used in each subset? (Input should be between 0 to 1)___")
#  ds <- as.double(ds) 
#  dsi <- ds
#  while(dsi<=1){
#    dataset <- datasettemp[1:floor(dsi*dim(datasettemp)[1]),]
#    rmarkdown::render(paste0(getwd(),'/SFRATReport.Rmd'),output_file =  paste("SFRAT report_", SheetName,'_',dsi,'_', Sys.Date(), ".pdf", sep=''), output_dir = './Reports') 
#    dsi=dsi+ds;
#  }
#  } else {
#  dataset <- read_excel(datapath,sheet = 1)
#  rmarkdown::render(paste0(getwd(),'/SFRATReport.Rmd'), output_file =  paste("SFRAT report_", SheetName,'_', Sys.Date(), ".pdf", sep=''),output_dir = './Reports') 
#}