diff --git a/.DS_Store b/.DS_Store
new file mode 100644
index 0000000..5008ddf
Binary files /dev/null and b/.DS_Store differ
diff --git a/.RData b/.RData
new file mode 100644
index 0000000..0dee895
Binary files /dev/null and b/.RData differ
diff --git a/.Rhistory b/.Rhistory
new file mode 100644
index 0000000..461b49f
--- /dev/null
+++ b/.Rhistory
@@ -0,0 +1,512 @@
+if(i>10) break
+}
+##2.
+for(i in 1:10){
+number <- sample(c(1:100),1)
+guess <- readline(prompt="your guess: ")
+if(number!=guess){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}else{
+print("correct!")
+}i = i+1
+if(i>10) break
+}
+for(i in 1:10){
+number <- sample(c(1:100),1)
+guess <- readline(prompt="your guess: ")
+if(number!=guess){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}else{
+print("correct!")
+}i = i+1
+if(i>10) break
+}
+##2.
+for(i in 1:10){
+number <- sample(c(1:100),1)
+guess <- readline(prompt="your guess: ")
+if(number!=guess){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}else{
+print("correct!")
+}i = i+1
+if(i>10) {
+break
+}
+}
+##2.
+for(i in 1:10){
+number <- sample(c(1:100),1)
+guess <- readline(prompt="your guess: ")
+if(number!=guess){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}else{
+print("correct!")
+}i = i+1
+if(i>10) stop
+}
+if(i>10) stop
+if(i>10) stop
+if(number!=guess){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}else{
+print("correct!")
+}
+##2.
+i=0
+i = i+1
+if(i>10) stop
+number <- sample(c(1:100),1)
+guess <- readline(prompt="your guess: ")
+if(number!=guess){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}else{
+print("correct!")
+}
+##2.
+i=0
+##2.
+i <- 1
+if(i>10){
+break
+}
+##2.
+i <- 1
+if(i>10){
+break
+}
+if(i>10){
+break
+}
+}
+break}
+break
+break}
+}
+?range
+range(5)
+range(1)
+guess$i <- readline(prompt="your guess: ")
+number <- sample(c(1:100),1)
+}
+##2.
+for(i in 1:10){
+number <- sample(c(1:100),1)
+guess <- readline(prompt="your guess: ")
+i = i+1
+if(number!=guess){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}else{
+print("correct!")
+}
+i = i+1
+}
+guess <- readline(prompt="your guess: ")
+if(number=guess){
+print("correct!")
+break
+}else{
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}
+i = i+1
+}
+if(number=guess){
+print("correct!")
+break
+}else{
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}
+##2.
+for(i in 1:10){
+number <- sample(c(1:100),1)
+guess <- readline(prompt="your guess: ")
+i = i+1
+if(number!=guess){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}else{
+print("correct!")
+}
+i = i+1
+}
+}else{
+print("correct!")
+break
+}
+i = i+1
+}
+for(i in 1:10){
+number <- sample(c(1:100),1)
+guess <- readline(prompt="your guess: ")
+i = i+1
+if(number!=guess){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}else{
+print("correct!")
+}
+i = i+1
+}
+}else{
+print("correct!")
+break
+}
+i = i+1
+}
+for(i in 1:10){
+number <- sample(c(1:100),1)
+guess <- readline(prompt="your guess: ")
+i = i+1
+if(number == guess){
+print("correct!")
+break
+}else{
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}
+i = i+1
+}
+89
+for(i in 1:10){
+number <- sample(c(1:100),1)
+guess <- readline(prompt="your guess: ")
+i = i+1
+if(number!=guess){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}else{
+print("correct!")
+break
+}
+i = i+1
+}
+number <- sample(c(1:100),1)
+guess <- readline(prompt="your guess: ")
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}else{
+print("correct!")
+break
+}
+i = i+1
+}
+for(i in 1:10){
+number <- sample(c(1:100),1)
+guess <- readline(prompt="your guess: ")
+i = i+1
+if(number == guess){
+print("correct!")
+break
+}else{
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}
+i = i+1
+}
+print("lower")
+}
+}
+i = i+1
+}
+for(i in 1:10){
+number <- sample(c(1:100),1)
+guess <- readline(prompt="your guess: ")
+i = i + 1
+if(number == guess){
+print("correct!")
+break
+}else{
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}
+}
+}else{
+for(i in 1:10){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}
+}
+if(number == guess){
+print("correct!")
+break
+}else{
+for(i in 1:10){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+} i = i+1
+}
+if(number == guess){
+print("correct!")
+break
+}else{
+for(i in 1:10){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+} i = i+1
+}
+if(number == guess){
+print("correct!")
+break
+}else{
+for(i in 1:10){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}
+i = i+1
+}
+}
+number <- sample(c(1:100),1)
+guess <- readline(prompt="your guess: ")
+}
+for(i in 1:10){
+number <- sample(c(1:100),1)
+guess <- readline(prompt="your guess: ")
+if(number!=guess){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}else{
+print("correct!")
+break
+}
+i = i+1
+}
+83
+for(i in 1:10){
+guess <- readline(prompt="your guess: ")
+i = i+1
+if(number!=guess){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}else{
+print("correct!")
+}
+i = i+1
+}
+##2.
+number <- sample(c(1:100),1)
+for(i in 1:10){
+guess <- readline(prompt="your guess: ")
+i = i+1
+if(number!=guess){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}else{
+print("correct!")
+}
+i = i+1
+}
+##2.
+number <- sample(c(1:100),1)
+number
+for(i in 1:10){
+guess <- readline(prompt="your guess: ")
+i = i+1
+if(number!=guess){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}else{
+print("correct!")
+break
+}
+i = i+1
+}
+##2.
+number <- sample(c(1:100),1)
+number
+for(i in 1:10){
+guess <- readline(prompt="your guess: ")
+i = i+1
+if(number!=guess){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}else{
+print("correct!")
+break
+}
+i = i+1
+}
+##2.
+number <- sample(c(1:100),1)
+number
+for(i in 1:10){
+guess <- readline(prompt="your guess: ")
+i = i+1
+if(number!=guess){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}else{
+print("correct!")
+break
+}
+i = i+1
+}
+##2. game “guess my number”.
+number <- sample(c(1:100),1)
+for(i in 1:10){
+guess <- readline(prompt="your guess: ")
+i = i+1
+if(number!=guess){
+if(number>guess){
+print("higher")
+}else{
+print("lower")
+}
+}else{
+print("correct!")
+break
+}
+i = i+1
+}
+1
+1
+myMean<-function(x){
+n=length(x)
+total=sum(x)
+average=total/n
+return(average)
+}
+myMean()
+myMean(c(1:10))
+myMean(c(1:3))
+?return
+##write a custom function that takes a series of numbers and returns half of the minimum value in the series
+halfmin<-function(x){
+n=c(x)
+min0.5 <- min(n)/2
+return(min0.5)
+}
+halfmin(100)
+halfmin
+halfmin(100,20,30)
+##write a custom function that takes a series of numbers and returns half of the minimum value in the series
+halfmin<-function(x){
+min0.5 <- min(x)/2
+return(min0.5)
+}
+halfmin(10,20,30)
+halfmin(x=c(10,20,30))
+##2. change the function you just created to take an argument that allows the user to specify what to divide the minimum value in the series by; set a default value of 2 for that argument
+halfmin<-function(x,y){
+min0.5 <- min(x)/y
+y <- default.stringsAsFactors(2)
+return(min0.5)
+}
+halfmin(10,2)
+##2. change the function you just created to take an argument that allows the user to specify what to divide the minimum value in the series by; set a default value of 2 for that argument
+dividemin<-function(vector,dividedby=2){
+y <- min(vector)/dividedby
+return(miny)
+}
+dividemin(c(1,2,3),3)
+dividemin(c(1,2,3),3)
+##2. change the function you just created to take an argument that allows the user to specify what to divide the minimum value in the series by; set a default value of 2 for that argument
+dividemin<-function(vector,dividedby=2){
+y <- min(vector)/dividedby
+return(y)
+}
+dividemin(c(1,2,3),3)
+dividemin(c(1,2,3))
+rm(list = ls())
+###if sth is missing in your local enviroment, R will serach the thing in global environment
+#e.g.
+x <- c(1,2,3)
+halfmin()
+##1. write a custom function that takes a series of numbers and returns half of the minimum value in the series
+halfmin<-function(x){
+min0.5 <- min(x)/2
+return(min0.5)
+}
+halfmin()
+###if sth is missing in your local enviroment, R will serach the thing in global environment
+#e.g.
+x <- c(1,2,3)
+halfmin()
+?lines
+?length
diff --git a/Lan-answercode.R b/Lan-answercode.R
new file mode 100644
index 0000000..3fa36c1
--- /dev/null
+++ b/Lan-answercode.R
@@ -0,0 +1,30 @@
+##1. Plot the score UWvMSU
+setwd("/Users/lillian/Desktop/Biocomp_tutorial10/")
+score <- read.table("UWvMSU_1-22-13.txt", header = TRUE)
+MUSscore <- score[score$team == "MSU",]
+UWscore <- score[score$team == "UW",]
+dfMUS <- data.frame(MUSscore$time, cumsum(MUSscore$score))
+dfUW <- data.frame(UWscore$time,cumsum(UWscore$score))
+
+plot(dfMUS,type="l",frame = TRUE, 
+     col = "red", xlab = "time", ylab = "cumulative score")
+lines(dfUW, col = "blue", type = "l", lty = 2)
+legend("topleft", legend=c("MUS", "UW"),
+       col=c("red", "blue"), lty = 1:2, cex=0.8)
+
+
+##2. game “guess my number”
+number <-  sample.int(100,1)
+for(i in 1:10){
+  guess <- as.numeric(readline(prompt="your guess: "))
+  if(number == guess){
+    print("correct")
+    break
+  }else{
+    if(number > guess){
+      print("higher")
+    }else{
+      print("lower")
+    }
+  }
+}