Publications by Frederick Morris Jones
Week 2 Assignment 2
The data wage2 was obtained from the website http://vincentarelbundock.github.io/Rdatasets/. The data is about wages of employees and their education, experience, age etc. The summary of the data: dataset = read.csv('wage2.csv') summary(dataset) ## X wage hours IQ ## Min. : 1.0 Min. : 1...
1472 sym R (5567 sym/30 pcs)
Sequence Version 2
R Markdown This is Frederick’s R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com. When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code ch...
607 sym Python (140 sym/2 pcs) 1 img
Quadratics Version 2
quad <- function(a, b, c) { # Calculate the discriminant disc <- b^2 - 4*a*c # Check the discriminant for different conditions if (disc > 0) { root1 <- (-b + sqrt(disc)) / (2*a) root2 <- (-b - sqrt(disc)) / (2*a) print(paste("The solutions are", root1, "and", root2)) } else if (disc == 0) { root <- -b / (2*a) ...
604 sym 1 img
Factorial
R Markdown This is Frederick’s R Markdown document. # Initialize the result result <- 1 # Number to calculate factorial num <- 12 # Loop from 1 to the number for(i in 1:num){ result <- result * i } # Print the result print(result) ## [1] 479001600...
59 sym Python (211 sym/2 pcs)
R Programming Assignment - Factorial
Factorial # Initialize the result result <- 1 # Number to calculate factorial num <- 12 # Loop from 1 to the number for(i in 1:num){ result <- result * i } # Print the result print(result) ## [1] 479001600...
17 sym Python (211 sym/2 pcs)
R Programming Assingment - Quadratic
Quadratic quad <- function(a, b, c) { # Calculate the discriminant disc <- b^2 - 4*a*c # Check the discriminant for different conditions if (disc > 0) { root1 <- (-b + sqrt(disc)) / (2*a) root2 <- (-b - sqrt(disc)) / (2*a) print(paste("The solutions are", root1, "and", root2)) } else if (disc == 0) { root <- -b /...
72 sym
R Programming Assignment - Vector
Vector # Create the sequence my_sequence <- seq(from = 20, to = 50, by = 5) # Print the sequence print(my_sequence) ## [1] 20 25 30 35 40 45 50...
14 sym Python (140 sym/2 pcs)