Bielefeld Augmented Reality Tracker

data <- read.csv("color1.csv")

data

data <- read.csv("color1.csv",header=F)

data

data[data$V2 == 68]

data[data$V2 == 63]

data[data$V2 == 63,]

data[data$V2 == 68,]

data <- read.csv("../Rauschen/noise1.csv",header=F)

data[data$V2 == 25,]

data <- read.csv("../Rauschen/noise2.csv",header=F)

data[data$V2 == 200,]

data <- read.csv("../Rotationen/turning4.csv",header=F)

data[data$V2 == 74,]

data

data$V2 <- data$V2

data$V2 <- data.frame(data$V2)

data$V2

temp <- unique(data$V2)

temp

length(temp)

length(temp$data.V2)

data <- read.csv("../Rotationen/turning5.csv",header=F)

data[data$V2 == 74,]

data[data$V2 == 74,1]

q()