Module #1

 My GitHub repository: elisah99/LIS4370 (github.com)

Comments

Post a Comment

Popular posts from this blog

Module #7 Assignment

 For this assignment, I used the popular mtcars dataset for my analysis. My code is as follows: data("mtcars") head(mtcars) list(mtcars) #we can create generic functions for mtcars such as functions to find the  #mean or a function to create plots such as bar or scatter plots. #S3 method class(mtcars) summary.mtcars <- function(object, ...) {   summary(object) } summary(mtcars) #S3 methods can be applied #s4 method setClass("mtcarsClass", contains = "data.frame") mtcars_s4 <- new("mtcarsClass", mtcars) mtcars_s4 #S4 methods can be applied How do you tell what OO system (S3 vs. S4) an object is associated with? You can use the functions isS3method() and is4() How do you determine the base type (like integer or list) of an object? You can use the class function What is a generic function? A function that behaves according to the class it is applied to. What are the main differences between S3 and S4? S4 is more complex and structured than S3....
Read more

Module #8 Assignment

 For this assignment, I imported a data set into R. I converted this dataset into a dataframe with only students whose name contains the letter 'i'. Finally, I converted the data to a csv file. Here is my code: file_path <- "C:/Users/elisa_pazp940/Downloads/Assignment 6 Dataset.txt" data <- read.table(file_path, header = TRUE, sep = ",") install.packages('plyr') library(plyr) sex = data$Sex mean(sex) y = ddply(data, "Sex", transform, Grade.Average=mean(Grade)) y write.table(y, "Sorted_Average") write.table(y, "Sorted_Average", sep=",") newdata = subset(data, grepl("[iI]", data$Name)) write.table(newdata, "DataSubset", sep = ",") newdata
Read more

Module #5

 2/11/24 For this assignment, I defined the matrices A and B, then attempted to find their inverse and determinant using the solve() and det() functions. I got these errors, which I believe is because is singular and therefore not invertible.  > A <- matrix(1:100, nrow=10) > B <- matrix(1:1000, nrow=10) > solve(A) Error in solve.default(A) : Lapack routine dgesv: system is exactly singular: U[6,6] = 0 > det(A) [1] 0 > A <- matrix(1:100, nrow=10) > B <- matrix(1:1000, nrow=10) > solve(A) Error in solve.default(A) : Lapack routine dgesv: system is exactly singular: U[6,6] = 0 > det(A) [1] 0 > solve(B) Error in solve.default(B) : 'a' (10 x 100) must be square > det(B) Error in determinant.matrix(x, logarithm = TRUE, ...) : 'x' must be a square matrix > A <- matrix(1:100, nrow=10) > B <- matrix(1:1000, nrow=10) > solve(A) Error in solve.default(A) : Lapack routine dgesv: system is exactly singular: U[6,6] ...
Read more