week_03.R

my.dataset<-read.csv("week3_dataset-luyue.csv")
load("~/GitHub/uwcom521-assignments/week_02/uwcom521-assignments/week_02/week2_dataset-luyue.RData")
summary(my.dataset$x)
sd(my.dataset$x)
summary(my.dataset$j)
sd(my.dataset$j)
summary(my.dataset$i)
sd(my.dataset$i)
summary(my.dataset$k)
sd(my.dataset$k)
summary(my.dataset$y)
sd(my.dataset$y)
hist(my.dataset$x)
hist(my.dataset$j)
hist(my.dataset$i)
hist(my.dataset$k)
hist(my.dataset$y)
my.df<-data.frame(group1=my.dataset$x,group2=week2.dataset)
summary(my.df$group1)
summary(my.df$group2)
ggplot(data=my.dataset)+geom_point()+aes(x=x,y=y)
as.logical(my.dataset$i)
as.logical(my.dataset$j)
my.dataset$k<-as.factor(my.dataset$k)
ggplot(data=my.dataset)+geom_point()+aes(x=x,y=y,color=i,size=j,shape=k)
my.dataset.tmp<-my.dataset
my.dataset.tmp$i[my.dataset.tmp$i==0]<-NA
summary(my.dataset$i)
summary(my.dataset$j)
summary(my.dataset$k)