R/myseqplot.R

In Dmando/hw04pDmando: Two Functions for HW4

#' Plots recursive function
#'
#' This function plots the output of a recursive function on a data set.
#'
#' @param inputdata dataset
#'
#' @return Plot of the recursive function output.
#' @export myseqplot
#' @importFrom ggplot2 ggplot aes geom_line
#' @examples my_data <- tibble::tribble(
#' ~x, ~y, ~z, ~n,
#' 2,4,3,3,
#' 2,4,3,4,
#' 2,4,3,5,
#' 2,4,3,6,
#' 2,4,3,7,
#' 2,4,3,8,
#' 2,4,3,9,
#' 2,4,3,10,
#' 2,4,3,12)
#' myseqplot(my_data)

myseqplot <- function(inputdata) {
  if (ncol(inputdata) != 4) {
    stop("There must be four columns in the dataframe") #Checking for Errors
  }
  data_rows <- nrow(inputdata)
  output_vec <- vector(mode = "double", length = data_rows) #reformatting/creating the data set from prior functions
  for (i in 1:data_rows) {
    func_int <- as.numeric(inputdata[i, 4])
    func_vec <- as.numeric(inputdata[i, 1:3])
    output_vec[i] <- myseq_n(func_vec, func_int)
  }
  n <- inputdata[[4]]
  plot_data <- data.frame(output_vec, n)

  plot <- ggplot2::ggplot(ggplot2::aes(n, output_vec), data = inputdata) +  #creating a gg-line plot of the data
    ggplot2::geom_line() +
    ggplot2::labs(title = "My Sequence: c(3, 2.5, 2.7, 2.783, 2.755, 2.744, 2.748, 2.749, 2.748)",
                  y = "output")
  return(plot)
}


my_data <- tibble::tribble( #Testing the data
  ~x, ~y, ~z, ~n,
  2,4,3,3,
  2,4,3,4,
  2,4,3,5,
  2,4,3,6,
  2,4,3,7,
  2,4,3,8,
  2,4,3,9,
  2,4,3,10,
  2,4,3,12)

myseqplot(my_data)