.Rhistory

library(knitr)
install.packages(shiny)
install.packages(rshiny)
library(shiny)
install.packages("shiny")
install.packages('devtools')
devtools::install_github('IRkernel/IRkernel')
IRkernel::installspec()
IRkernel::installspec()
install.packages(png)
install.packages("png")
library("knitr")
library("markdown")
install.packages("png")
library("png")
getwd
data1<-read.table("example_lengths_for_R.csv", header = TRUE, sep = ',')
getwd
getwd()
setwd("/Users/winfree/Friendly-Intro-to-R/")
getwd()
data1<-read.table("example_lengths_for_R.csv", header = TRUE, sep = ',')
View(data1)
summary(data1)
nrow(data1)
colnames(data1)
data1$treatment[1:10]
head(data1)
summary(data1$values)
data1$coverlip.code[1:10]
summary(data1$values[data1$treatment=='Contro'])
summary(data1$values[data1$treatment=='Control'])
head(data1$treatment)
summary(data1$values[data1$treatment=='Treatment A'])
plot(data1$treatment, data1$values, xlab='treatment', ylab='length')
hist(data1$values[data1$treatment=='Control'], xlab='Length Values',
main='Histogram of Length for Control Group')
mean(data1$values[data1$treatment=='Treatment A'])
median(data1$values[data1$treatment=='Treatment A'])
max(data1$values[data1$treatment=='Treatment A'])
t.test(data1$values[data1$treatment=='Control'], data1$values[data1$treatment=='Treatment B'])
results<-aov(values ~ treatment, data=data1)
summary(results)
print("IT'S THE WEEKEND!")