.Rhistory

getwd()
ls()
ls()
dir
dir()
source("mycode.R")
myfunction()
source("mycode.R")
ls()
second
second(4)
second(4:10)
second(1:100)
myfunction()
myfunction()
myfunction()
myfunction()
myfunction()
myfunction()
myfunction()
myfunction()
myfunction()
myfunction()
myfunction()
second(1:100)
x <- 1
print(x)
x
msg <- "hello"
msg
print (x,msg)
print (x)
print(msg)
print (1:20)
x <- c(0.5, 0.6)
x <- 1:20
x <- c(TRUE, FALSE)
x <- c(T, F)
x <- c(1+0i, 2+4i)
x <- vector("numeric", length=10)
y <- c(1.7, "a")
y <- c(T,2)
y <- c("a", TRUE)
class(x)
class(y)
as.character(x)
as.numeric(y)
as.numeric(y)
y <- c("a", "b", "c")
as.numeric(y)
x <- 1:6
as.character(x)
m <- metrix(nrow = 2, ncol = 3)
m <- matrix(nrow = 2, ncol = 3)
m
dim(m)
attributes(m)
attributes(x)
m <- matrix(1:6, nrow=2, ncol=3)
m
dim(x) <- c(2,5)
x <- 1:10
dim(x) <- c(2,5)
x
x <-1:10
y <-11:20
cbind(x,y)
rbind(x,y)
x <- list (1, "a", TRUE, 1+4i)
x
x <- factor(c("yes", "yes", "no", "yes", "no"))
x
table(x)
unclass(x)
x <- factor(c("yes", "yes", "no", "yes", "no"),)
x <- factor(c("yes", "yes", "no", "yes", "no"),levels = c("yes","no"))
x
x <- c(1,2, NA, 10, 3)
is.na(x)
is.nan(x)
x <- c(1,2, Nan, NA, 4)
x <- c(1,2, NaN, NA, 4)
is.na(x)
is.nan(x)
x <- data.frame(foo = 1:4, bar = c(T, T, F, F))
x
nrows(x)
nrow(x)
ncol(x)
x <- data.frame(foo = 1:4, bar = c(T, T, F))
x <- data.frame(foo = 1:4, bar = c(T, T, F, F))
nrow(x)
x
x <- 1:3
names(x)
names(x) <- c("foo", "bar", "norf")
x
names(x)
x <- c("a", "b", "c", "c", "d", "a")
x[1]
x[2]
x[1:4]
x[x > "a"]
u <- x > "a"
u
x[u]
z <- x > "b"
x [z]
x <- list(foo = 1:4, bar = 0.6)
x
x[1]
x[[1]]
x$bar
x[["bar"]]
$bar
x <- c(1, 2, NA, 4, NA, 5)
y <- c("a", "b", NA, "d", NA, "f")
good <- complete.cases(x,y)
x <- c(1, 2, NA, 4, NA, 6)
good <- complete.cases(x,y)
x[good]
y[good]
install.packages("swirl")
library("swirl")
ls()
rm(list=ls())
ls
swirl()
swirl()
library("swirl")
swirl()
5+7
x <- 5+7
x
y <- x - 3
y
z <- c(1.1, 9, 3.14)
?c
z
z, 555, z
z, 555, z,
z 555 z
c(z, 555, z)
z * 2 + 100
my_sqrt <- sqrt(z-1)
my_sqrt
my_div <- z/my_sqrt
my_div
c(1, 2, 3, 4) + c(0,10)
c(1, 2, 3, 4) + c(0, 10, 100)
z * 2 + 1000
my_div
5+7
x <- 5+7
x
y <- x - 3
y
z <- c(1.1, 9, 3.14)
?c
z
c(z, 555, z)
z * x +100
z * 2 + 100
my_sqrt <- sqrt(z-1)
my_sqrt
my_div <- z/my_sqrt
my_div
c(1, 2, 3, 4) + c(0,10)
c(1, 2, 3, 4) + c(0, 10, 100)
z * 2 + 1000
my_div
x <- c(4, T)
x <- c(1,3,5)
y <- c(3,2,10)
rbind(x,y)
x <- list(2, "a", "b", TRUE)
x[[2]]
swirl()
1:20
pi:10
15:1
?`:`
seq(1,20)
seq(0,10 by=0.5)
seq(0,10, by=0.5)
seq(5,10, length=30)
my_seq <- seq(5,10, length=30)
length(my_seq)
1:length(my_seq)
seq(along.with = my_seq)
seq_along(my_seq)
rep(0, times=40)
rep(c(0,1,2), times = 10)
rep(c(0,1,2), each = 10)
num_vect <- c(0.5, 55, -10, 6)
tf <- num_vect < 1
tf
num_vect >= 6
my_char <- c("My", "name", "is")
my_char
paste(my_char, collapse=" ")
my_name <- c(my_char, "Tuang")
my_name
paste(my_name, collapse=" ")
paste("Hello", "world!", sep = " ")
paste(1:3, c("X", "Y", "Z", sep=""))
paste(1:3, c("X", "Y", "Z"), sep=""))
paste(1:3, c("X", "Y", "Z"), sep="")
paste(LETTERS, 1:4, sep="-")
x <- c(44,NA,5,NA)
x * 3
y <- rnorm(1000)
z <- rep(NA, 1000)
my_data <- sample(c(y,z), 100)
my_na <- is.na(my_data)
my_na
my_data == NA
sum(my_na)
my_data
0/0
Inf - Inf
swirl()
x
x[1:10]
x[is.na(x)]
y <- x[!is.na(x)]
y
y[y > 0]
x[x > 0]
x[!is.na(x) & x > 0]
x[c(3,5,7)]
x[0]
x[3000]
x[c(-2, -10)]
x[-c(2,10)]
vect <- c(foo = 11, bar = 2, norf = NA)
vect
names(vect)
vect2 <- c(11, 2, NA)
names(vect2) <- c("foo", "bar", "norf")
identical(vect, vect2)
vect["bar"]
vect[c("foo", "bar")]
my_vector <- 1:20
my_vector
dim(my_vector)
length(my_vector)
dim(my_vector) <- c(4,5)
dim(my_vector)
attributes(my_vector)
my_vector
class(my_vector)
my_matrix <- my_vector
?matrix
my_matrix2 <- matrix(1:20, nrow = 4, ncol = 5)
identical (my_matrix, my_matrix2)
patients <- c("Bill", "Gina", "Kelly", "Sean")
cbind(patients, my_matrix)
my_data <- data.frame(patients, my_matrix)
my_data
class(my_data)
cnames <- c("patient", "age", "weight", "bp", "rating", "test")
colnames(my_data, cnames)
colnames(my_data) <- cnames
my_data
head(flags)
dim(flags)
viewinfo(flags)
viewinfo()
class(flags)
cls_list <- lapply(flags, class)
cls_list
class(cls_list)
as.character(cls_list)
cls_list <- sapply(flags, class)
cls_vect <- sapply(flags, class)
class(cls_vect)
sum(flags$orange)
flag_colors <- flags[, 11:17]
head(flag_colors)
lapply(flag_colors, sum)
sapply(flag_colors, sum)
sapply(flag_colors, mean)
flag_shapes <- flags[, 19:23]
lapply(flag_shapes, range)
sapply(flag_shapes, range)
shape_mat <- sapply(flag_shapes, range)
shape_mat
class(shape_mat)
unique(c(3,4,5,5,5,6,6))
unique_vals <- lapply(flags, unique)
unique_vals
sapply(unique_vals, length)
sapply(flags, unique)
lapply(unique_vals, function(elem) elem[2])
exit()
bye()
library(swirl)
swirl()
install_from_swirl("Data Analysis")
swirl()
nxt()
str(cars)
library(swirl)
swirl()
nxt()
con <- file("hw1_data.csv", "r")
flags <- read.csv(con)
str(flags)
flags
airquality <- flags
rm (flags)
cars
head (airquality)
tail (airquality)
airquality[1][1]
swirl()
library (swirl)
swirl()
my_vector <- 1:20
my_vector
dim(my_vector)
length(my_vector)
dim(my_vector) <- c(4,5)
dim(my_vector)
dim(airquality)
attributes(my_vector)
my_vector
class(my_vector)
my(airquality)
class(airquality)
my_matrix <- my_vector
?matrix
my_matrix2 <- matrix(1:20, nrow=4, ncol=5)
identical(my_matrix, my_matrix2)
exit
exit()
pause()
pause
patients <- c("Bill", "Gina", "Kelly", "Sean")
cbind(patients, my_matrix)
my_data <- data.frame(patients, my_matrix)
my_data
class(my_data)
cnames <- c("patient", "age", "weight", "bp", "rating", "test")
colnames(cnames, my_data)
?colnames
colnames(my_data) <- cnames
my_data
my_data
my_data[1][1]
my_data[[1]]
my_data[[1]][[1]]
my_data[1]
my_data[[2]]
my_data[[1]][[2]]
my_data[1,2]
my_data[2,2]
my_data[1,1]
my_datap[1,]
my_data[1,]
my_data[,1]
my_data[,2]
my_data[,3]
my_data[,4]
my_data
my_data[, age]
my_data[, "age""]
d
""
my_data[, "age"]
my_data[, "patient"]
my_data[, "patient", "age"]
my_data[, 2:3]
my_data[patient]
my_data[[patient]]
my_data[["patient"]]
my_data["patient"]
my_data["patient" > "Bill"]
my_data['"patient" > "Bill"']
my_data["age"]
my_data["age">2]
my_data["age">2][]
my_data["age"][,>2]
my_data["age"][,2]
my_data[["age"]]
my_data[["age">2]]
my_data[["age">3]]
my_data[["age">1]]
my_data[["age">1000]]
air.condi1 <- subset(airquality, pollution>30)
airquality
head(airquality)
air.condi1 <- subset(airquality, Ozone > 30)
air.condi1
airquality
air.condi2 <- subset(airquality, Ozone > 30 && Month == 5)
air.condi2
air.condi2 <- subset(airquality, Ozone > 30 & Month == 5)
air.condi2
?mean
mean(air.condi2$Ozone)
mean(air.condi2$Temp)
air.condi3 <- subset(airquality, Temp > 66 & Month == 6)
str(air.condi3)
air.condi3 <- subset(airquality, Ozone > 30, Temp > 66 & Month == 6)
str(air.condi3)
air.condi3 <- subset(airquality, Ozone > 30 & Temp > 66 & Month == 6)
str(air.condi3)
air.condi3
air.condi3 <- subset(airquality, Ozone > 30 & Temp > 66)
str(air.condi3)
mean(air.condi3$Temp)
?subset
source('~/.active-rstudio-document')
source('~/.active-rstudio-document')
columnmean(airquality)
source('~/.active-rstudio-document')
columnmean(airquality)