HW1

HW1 1 test

R basics

x <- seq(from=10, to=30, by=5)
5*x

[1]  50  75 100 125 150

y <- c(12,543,2,"my_test")
paste(y,"abc",sep="_")

[1] "12_abc"      "543_abc"     "2_abc"       "my_test_abc"

z <- 12
w <- 144
w/z

[1] 12

Data exploration

mtcars

library(tidyverse)
t <- head(select(mtcars, mpg, cyl))
table(t)

      cyl
mpg    4 6 8
  18.1 0 1 0
  18.7 0 0 1
  21   0 2 0
  21.4 0 1 0
  22.8 1 0 0

Orange

dim(Orange)

[1] 35  3

colnames(Orange)

[1] "Tree"          "age"           "circumference"

summary(Orange)

 Tree       age         circumference  
 3:7   Min.   : 118.0   Min.   : 30.0  
 1:7   1st Qu.: 484.0   1st Qu.: 65.5  
 5:7   Median :1004.0   Median :115.0  
 2:7   Mean   : 922.1   Mean   :115.9  
 4:7   3rd Qu.:1372.0   3rd Qu.:161.5  
       Max.   :1582.0   Max.   :214.0  

Plotting