diff --git a/.RData b/.RData new file mode 100644 index 0000000..91c623a Binary files /dev/null and b/.RData differ diff --git a/.Rhistory b/.Rhistory new file mode 100644 index 0000000..a570e24 --- /dev/null +++ b/.Rhistory @@ -0,0 +1,57 @@ +a <- 1 +a +?getwd +?mean +install.packages("swirl") +library(swirl) +x <- "dataset" +typeof(x) +attributes(x) +y <- 1:10 +y +typeof(y) +length(y) +z <- as.numeric(y) +z +typeof(z) +vector() +vector("character", length = 5) +character(5) +numeric(5) +logical(5) +x <- c(1, 2, 3) +x +x1 <- c(1L, 2L, 3L) +y <- c(TRUE, TRUE, TRUE, FALSE) +z <- c("Sarah", "Tracey", "Jon") +matrix(data = 1:4, nrow = 2, ncol = 2) +matrix(data = 1:4, nrow = 2, ncol = 2, byrow = FALSE) +matrix(data = 1:4, nrow = 2, ncol = 2, byrow = TRUE) +c(1:8) +x = c(1:8) +x = c(x, 12, 14, 16) +x +y = data.frame(name = c("Tara", "Therese"), favcolor = c("khaki", "purple"), favnumber = c(13, 13)) +y +list =list(x,y) +list +dim(x) +str(x) +str(y) +str(llist) +str(list) +setwd("/home/7907blueyes/Desktop/Biocomputing/R/Exercise07") +setwd("/Users/7907blueyes/Desktop/Biocomputing/R/Exercise07") +iris_data <- read.csv("iris.csv") +View(iris.csv) +read.csv("iris.csv") +iris_data <- read.csv("iris.csv") +view(iris_data) +iris_data <- read.csv("iris.csv") +View(iris_data) +vector <- 1:8 +vector <- c(1, 2, 3, 4 ,5, 6, 7, 8) +vector <- c(vector, 12, 14, 16) +info <- data.frame(names= "tara", "therese") +mylist <- list(vector,info) +mylist[[2]] diff --git a/exercise07solution.R b/exercise07solution.R new file mode 100644 index 0000000..eef9a90 --- /dev/null +++ b/exercise07solution.R @@ -0,0 +1,22 @@ +# Tara Neufell Exercise 07 solution + +# Question 1 +# read iris.csv +setwd("/Users/7907blueyes/Desktop/Biocomputing/R/Exercise07") +iris_data <- read.csv("iris.csv") +# convert iris.csv into a tab-delimited iris.txt file +write.table(iris_data, "iris.txt", row.names = FALSE, sep = "\t") + +# Question 2 +# first vector +vector1 <- seq(100, 1000, by = 100) +# dataframe with football score +dataframe = data.frame("team name" = c("Notre Dame", "Syracuse"), "final score" = c(41, 24)) +# number +number <- 999 +# matrix +matrix <- matrix(nrow = 10, ncol = 5, data = 1:50) +# vector of letters +vector2 <- c("a", "b", "c") +# save all components in a list +finallist <- list(vector1, dataframe, number, matrix, vector2) \ No newline at end of file diff --git a/iris.txt b/iris.txt new file mode 100644 index 0000000..d911aeb --- /dev/null +++ b/iris.txt @@ -0,0 +1,151 @@ +"Sepal.Length" "Sepal.Width" "Petal.Length" "Petal.Width" "Species" +5.1 3.5 1.4 0.2 "setosa" +4.9 3 1.4 0.2 "setosa" +4.7 3.2 1.3 0.2 "setosa" +4.6 3.1 1.5 0.2 "setosa" +5 3.6 1.4 0.2 "setosa" +5.4 3.9 1.7 0.4 "setosa" +4.6 3.4 1.4 0.3 "setosa" +5 3.4 1.5 0.2 "setosa" +4.4 2.9 1.4 0.2 "setosa" +4.9 3.1 1.5 0.1 "setosa" +5.4 3.7 1.5 0.2 "setosa" +4.8 3.4 1.6 0.2 "setosa" +4.8 3 1.4 0.1 "setosa" +4.3 3 1.1 0.1 "setosa" +5.8 4 1.2 0.2 "setosa" +5.7 4.4 1.5 0.4 "setosa" +5.4 3.9 1.3 0.4 "setosa" +5.1 3.5 1.4 0.3 "setosa" +5.7 3.8 1.7 0.3 "setosa" +5.1 3.8 1.5 0.3 "setosa" +5.4 3.4 1.7 0.2 "setosa" +5.1 3.7 1.5 0.4 "setosa" +4.6 3.6 1 0.2 "setosa" +5.1 3.3 1.7 0.5 "setosa" +4.8 3.4 1.9 0.2 "setosa" +5 3 1.6 0.2 "setosa" +5 3.4 1.6 0.4 "setosa" +5.2 3.5 1.5 0.2 "setosa" +5.2 3.4 1.4 0.2 "setosa" +4.7 3.2 1.6 0.2 "setosa" +4.8 3.1 1.6 0.2 "setosa" +5.4 3.4 1.5 0.4 "setosa" +5.2 4.1 1.5 0.1 "setosa" +5.5 4.2 1.4 0.2 "setosa" +4.9 3.1 1.5 0.2 "setosa" +5 3.2 1.2 0.2 "setosa" +5.5 3.5 1.3 0.2 "setosa" +4.9 3.6 1.4 0.1 "setosa" +4.4 3 1.3 0.2 "setosa" +5.1 3.4 1.5 0.2 "setosa" +5 3.5 1.3 0.3 "setosa" +4.5 2.3 1.3 0.3 "setosa" +4.4 3.2 1.3 0.2 "setosa" +5 3.5 1.6 0.6 "setosa" +5.1 3.8 1.9 0.4 "setosa" +4.8 3 1.4 0.3 "setosa" +5.1 3.8 1.6 0.2 "setosa" +4.6 3.2 1.4 0.2 "setosa" +5.3 3.7 1.5 0.2 "setosa" +5 3.3 1.4 0.2 "setosa" +7 3.2 4.7 1.4 "versicolor" +6.4 3.2 4.5 1.5 "versicolor" +6.9 3.1 4.9 1.5 "versicolor" +5.5 2.3 4 1.3 "versicolor" +6.5 2.8 4.6 1.5 "versicolor" +5.7 2.8 4.5 1.3 "versicolor" +6.3 3.3 4.7 1.6 "versicolor" +4.9 2.4 3.3 1 "versicolor" +6.6 2.9 4.6 1.3 "versicolor" +5.2 2.7 3.9 1.4 "versicolor" +5 2 3.5 1 "versicolor" +5.9 3 4.2 1.5 "versicolor" +6 2.2 4 1 "versicolor" +6.1 2.9 4.7 1.4 "versicolor" +5.6 2.9 3.6 1.3 "versicolor" +6.7 3.1 4.4 1.4 "versicolor" +5.6 3 4.5 1.5 "versicolor" +5.8 2.7 4.1 1 "versicolor" +6.2 2.2 4.5 1.5 "versicolor" +5.6 2.5 3.9 1.1 "versicolor" +5.9 3.2 4.8 1.8 "versicolor" +6.1 2.8 4 1.3 "versicolor" +6.3 2.5 4.9 1.5 "versicolor" +6.1 2.8 4.7 1.2 "versicolor" +6.4 2.9 4.3 1.3 "versicolor" +6.6 3 4.4 1.4 "versicolor" +6.8 2.8 4.8 1.4 "versicolor" +6.7 3 5 1.7 "versicolor" +6 2.9 4.5 1.5 "versicolor" +5.7 2.6 3.5 1 "versicolor" +5.5 2.4 3.8 1.1 "versicolor" +5.5 2.4 3.7 1 "versicolor" +5.8 2.7 3.9 1.2 "versicolor" +6 2.7 5.1 1.6 "versicolor" +5.4 3 4.5 1.5 "versicolor" +6 3.4 4.5 1.6 "versicolor" +6.7 3.1 4.7 1.5 "versicolor" +6.3 2.3 4.4 1.3 "versicolor" +5.6 3 4.1 1.3 "versicolor" +5.5 2.5 4 1.3 "versicolor" +5.5 2.6 4.4 1.2 "versicolor" +6.1 3 4.6 1.4 "versicolor" +5.8 2.6 4 1.2 "versicolor" +5 2.3 3.3 1 "versicolor" +5.6 2.7 4.2 1.3 "versicolor" +5.7 3 4.2 1.2 "versicolor" +5.7 2.9 4.2 1.3 "versicolor" +6.2 2.9 4.3 1.3 "versicolor" +5.1 2.5 3 1.1 "versicolor" +5.7 2.8 4.1 1.3 "versicolor" +6.3 3.3 6 2.5 "virginica" +5.8 2.7 5.1 1.9 "virginica" +7.1 3 5.9 2.1 "virginica" +6.3 2.9 5.6 1.8 "virginica" +6.5 3 5.8 2.2 "virginica" +7.6 3 6.6 2.1 "virginica" +4.9 2.5 4.5 1.7 "virginica" +7.3 2.9 6.3 1.8 "virginica" +6.7 2.5 5.8 1.8 "virginica" +7.2 3.6 6.1 2.5 "virginica" +6.5 3.2 5.1 2 "virginica" +6.4 2.7 5.3 1.9 "virginica" +6.8 3 5.5 2.1 "virginica" +5.7 2.5 5 2 "virginica" +5.8 2.8 5.1 2.4 "virginica" +6.4 3.2 5.3 2.3 "virginica" +6.5 3 5.5 1.8 "virginica" +7.7 3.8 6.7 2.2 "virginica" +7.7 2.6 6.9 2.3 "virginica" +6 2.2 5 1.5 "virginica" +6.9 3.2 5.7 2.3 "virginica" +5.6 2.8 4.9 2 "virginica" +7.7 2.8 6.7 2 "virginica" +6.3 2.7 4.9 1.8 "virginica" +6.7 3.3 5.7 2.1 "virginica" +7.2 3.2 6 1.8 "virginica" +6.2 2.8 4.8 1.8 "virginica" +6.1 3 4.9 1.8 "virginica" +6.4 2.8 5.6 2.1 "virginica" +7.2 3 5.8 1.6 "virginica" +7.4 2.8 6.1 1.9 "virginica" +7.9 3.8 6.4 2 "virginica" +6.4 2.8 5.6 2.2 "virginica" +6.3 2.8 5.1 1.5 "virginica" +6.1 2.6 5.6 1.4 "virginica" +7.7 3 6.1 2.3 "virginica" +6.3 3.4 5.6 2.4 "virginica" +6.4 3.1 5.5 1.8 "virginica" +6 3 4.8 1.8 "virginica" +6.9 3.1 5.4 2.1 "virginica" +6.7 3.1 5.6 2.4 "virginica" +6.9 3.1 5.1 2.3 "virginica" +5.8 2.7 5.1 1.9 "virginica" +6.8 3.2 5.9 2.3 "virginica" +6.7 3.3 5.7 2.5 "virginica" +6.7 3 5.2 2.3 "virginica" +6.3 2.5 5 1.9 "virginica" +6.5 3 5.2 2 "virginica" +6.2 3.4 5.4 2.3 "virginica" +5.9 3 5.1 1.8 "virginica"