dinner <- read.csv("~/Desktop/PS4HCI - CSV/dinner.csv")
View(dinner)
View(dinner)
library("Deducer")
x <- 1:5
2 - 1/(2^(x-1))
5 @ 2
5% 2
5%/% 2
5 / 2
5 %/% 2
5 %%2
6 %%2
x <- c(1,2,3,4)
y <- ifelse(x %% 2 == 0, T, F)
y
source("lookup.R")
setwd("~/Project Workspaces/Indirect Touch/ not on oliver/SwitchingErrorStudyData/03-Bimanual/ Code")
setwd("~/Project Workspaces/Indirect Touch/ not on oliver/SwitchingErrorStudyData/03-Bimanual/ Code")
source("lookup.R")
x <- runif(15000, 0, 2560)
y <- runif(15000, 0, 1440)
colors <- rainbow(8)
# test direction = right to left
plot(x,y)
for (i in 0:7)
{
matchingIndices <- isCentroidWithinVicinityOfGate(x, y, i, 150, direction = 1)
points(x[matchingIndices], y[matchingIndices], col=colors[i])
}
source("lookup.R")
x <- runif(15000, 0, 2560)
y <- runif(15000, 0, 1440)
colors <- rainbow(8)
# test direction = right to left
plot(x,y)
for (i in 0:7)
{
matchingIndices <- isCentroidWithinVicinityOfGate(x, y, i, 150, direction = 1)
points(x[matchingIndices], y[matchingIndices], col=colors[i])
}
source("lookup.R")
x <- runif(15000, 0, 2560)
y <- runif(15000, 0, 1440)
colors <- rainbow(8)
# test direction = right to left
plot(x,y)
for (i in 0:7)
{
matchingIndices <- isCentroidWithinVicinityOfGate(x, y, i, 150, direction = 1)
points(x[matchingIndices], y[matchingIndices], col=colors[i])
}
# test direction = right to left
plot(x,y)
for (i in 0:7)
{
matchingIndices <- isCentroidWithinVicinityOfGate(x, y, i, 0, direction = 1)
points(x[matchingIndices], y[matchingIndices], col=colors[i])
}
source("lookup.R")
# test direction = right to left
plot(x,y)
for (i in 0:7)
{
matchingIndices <- isCentroidWithinVicinityOfGate(x, y, i, 0, direction = 1)
points(x[matchingIndices], y[matchingIndices], col=colors[i])
}
0;7
0:7
plot(x,y)
for (i in 0:7)
{
matchingIndices <- isCentroidWithinVicinityOfGate(x, y, i + 1, 0, direction = 1)
points(x[matchingIndices], y[matchingIndices], col=colors[i])
}
source("lookup.R")
test_isCentroidWithinVicinityOfGate()
source("lookup.R")
test_isCentroidWithinVicinityOfGate()
x <- runif(15000, 0, 2560)
y <- runif(15000, 0, 1440)
colors <- rainbow(8)
gateDistance <- 100
# test direction = right to left
plot(x,y)
for (i in 0:7)
{
matchingIndices <- isCentroidWithinVicinityOfGate(x, y, i + 1, gateDistance, direction = 1)
points(x[matchingIndices], y[matchingIndices], col=colors[i])
}
gateDistance <- 0
x <- runif(15000, 0, 2560)
y <- runif(15000, 0, 1440)
colors <- rainbow(8)
gateDistance <- 100
# test direction = right to left
plot(x,y)
for (i in 0:7)
{
matchingIndices <- isCentroidWithinVicinityOfGate(x, y, i + 1, gateDistance, direction = 1)
points(x[matchingIndices], y[matchingIndices], col=colors[i])
}
colors <- rainbow(8)
gateDistance <- 100
# test direction = right to left
plot(x,y)
for (i in 0:7)
{
matchingIndices <- isCentroidWithinVicinityOfGate(x, y, i + 1, gateDistance, direction = 1)
points(x[matchingIndices], y[matchingIndices], col=colors[i])
}
source("lookup.R")
test_isCentroidWithinVicinityOfGate()
test_isCentroidWithinVicinityOfGate(100)
source("lookup.R"); test_isCentroidWithinVicinityOfGate()
for (i in 0:7) print i;
for (i in 0:7) print(i);
rainbow(8)
0:7
source("lookup.R"); test_isCentroidWithinVicinityOfGate()
test_isCentroidWithinVicinityOfGate(100)
source("lookup.R"); test_isCentroidWithinVicinityOfGate(100)
source("lookup.R"); test_isCentroidWithinVicinityOfGate(100, 1)
source("lookup.R"); test_isCentroidWithinVicinityOfGate(500, 1)
test_isCentroidWithinVicinityOfGate(0, 2)
test_isCentroidWithinVicinityOfGate(0, 0)
test_isCentroidWithinVicinityOfGate(100, 0)
test_isCentroidWithinVicinityOfGate(100, 1)
test_isCentroidWithinVicinityOfGate(200, 1)
test_isCentroidWithinVicinityOfGate(200, 1)
test_isCentroidWithinVicinityOfGate(200, 0)
source("lookup.R"); test_isCentroidWithinVicinityOfGate()
test_isCentroidWithinVicinityOfGate(100)
test_isCentroidWithinVicinityOfGate(100, 0)
data <- read.csv("/Users/chat/Project Workspaces/Indirect Touch/ not on oliver/SwitchingErrorStudyData/03-Bimanual/Study3User19_09_14_2012_10_58AM/User19HoldModeDirection0Setup.csv", quote = c("(", ")"))
data <- read.csv("/Users/chat/Project Workspaces/Indirect Touch/ not on oliver/SwitchingErrorStudyData/03-Bimanual/Study3User19_09_14_2012_10_58AM/User19HoldModeDirection0Setup.csv", quote = "()")
data <- read.csv("/Users/chat/Project Workspaces/Indirect Touch/ not on oliver/SwitchingErrorStudyData/03-Bimanual/Study3User19_09_14_2012_10_58AM/User19HoldModeDirection0Setup.csv", quote = "()")
sub("(", "\"", "(012)")
sub("\(", "\"", "(012)")
sub("1", "\"", "(012)")
sub("1", '\"', "(012)")
sub("\\(", '\"', "(012)")
sub("\\(", '\\"', "(012)")
sub("\\(", '"', "(012)")
print(sub("\\(", '"', "(012)"))
cat(sub("\\(", '"', "(012)"))
cat(sub("\\(|\\)", '"', "(012)"))
cat(sub("[\\(|\\)]", '"', "(012)"))
cat(sub("[\\(\\)]", '"', "(012)"))
cat(sub("\\(\\)", '"', "(012)"))
cat(sub("\\(", '"', "(012)"))
sub("\\)", '"', sub("\\(", '"', "(012)"))
setupFilePath <- "/Users/chat/Project Workspaces/Indirect Touch/ not on oliver/SwitchingErrorStudyData/03-Bimanual/Study3User19_09_14_2012_10_58AM/User19HoldModeDirection0Setup.csv"
setupFileText <- readLines(setupFilePath)
# replace the parentheses
fileBuffer <- file()
cat(sub("\\)", '"', sub("\\(", '"', "(012)")), file = fileBuffer)
seek(fileBuffer, 0)
# read the setup data
setupData <- read.csv(fileBuffer)
fix(setupFileText)
setupFileText <- readLines(setupFilePath)
# replace the parentheses
fileBuffer <- file()
writeLines(sub("\\)", '"', sub("\\(", '"', "(012)")), file = fileBuffer)
seek(fileBuffer, 0)
# read the setup data
setupData <- read.csv(fileBuffer)
setupFileText <- readLines(setupFilePath)
# replace the parentheses
fileBuffer <- file()
writeLines(sub("\\)", '"', sub("\\(", '"', "(012)")), con = fileBuffer)
seek(fileBuffer, 0)
# read the setup data
setupData <- read.csv(fileBuffer)
View(setupData)
setupFileText <- readLines(setupFilePath)
# replace the parentheses
fileBuffer <- file()
cat(sub("\\)", '"', sub("\\(", '"', "(012)")), con = fileBuffer)
seek(fileBuffer, 0)
setupFileText <- readLines(setupFilePath)
fileBuffer <- file()
cat(sub("\\)", '"', sub("\\(", '"', setupFileText)), con = fileBuffer)
writeLines(sub("\\)", '"', sub("\\(", '"', setupFileText)), con = fileBuffer)
ileBuffer <- file()
writeLines(sub("\\)", '"', sub("\\(", '"', setupFileText)), con = fileBuffer)
seek(fileBuffer, 0)
setupData <- read.csv(fileBuffer)
fileBuffer <- file()
writeLines(sub("\\)", '"', sub("\\(", '"', setupFileText)), con = fileBuffer)
setupData <- read.csv(fileBuffer)
sub("\\)", '"', sub("\\(", '"', setupFileText)
)
chartr("(", ")", setupFileText)
chartr("(", '"', setupFileText)
chartr(")", '"', chartr("(", '"', setupFileText))
# replace the parentheses
fileBuffer <- file()
writeLines(chartr(")", '"', chartr("(", '"', setupFileText))), con = fileBuffer)
# read the setup data
setupData <- read.csv(fileBuffer)
writeLines(chartr(")", '"', chartr("(", '"', setupFileText)), con = fileBuffer)
fileBuffer <- file()
writeLines(chartr(")", '"', chartr("(", '"', setupFileText)), con = fileBuffer)
# read the setup data
setupData <- read.csv(fileBuffer)
View(setupData)
getGateDistance <- function(userId, mode, direction, gateId)
{
# read th setup file
setupFilePath <- getFilePath(userId, mode, direction, "Setup.csv")
setupFileText <- readLines(setupFilePath)
# replace the parentheses
fileBuffer <- file()
writeLines(chartr(")", '"', chartr("(", '"', setupFileText)), con = fileBuffer)
# read the setup data
setupData <- read.csv(fileBuffer)
return(setupData[setupData$GateID == gateId, "distance"])
}
getFilePath <- function(userId, mode, direction, suffix = "RAW.csv")
{
rootDataPath <- ".."
pathByUserId <- list( 	"19" = "Study3UserStudy3User19_09_14_2012_10_58AM_09_14_2012_10_58AM",
"21" = "Study3UserStudy3User21_09_14_2012_11_11AM_09_14_2012_11_11AM",
"22" = "Study3UserStudy3User22_09_14_2012_11_35AM_09_14_2012_11_35AM",
"23" = "Study3UserStudy3User23_09_14_2012_12_01PM_09_14_2012_12_01PM",
"24" = "Study3UserStudy3User24_09_14_2012_12_50PM_09_14_2012_12_50PM",
"25" = "Study3UserStudy3User25_09_14_2012_01_24PM_09_14_2012_01_24PM",
"26" = "Study3UserStudy3User26_09_14_2012_01_45PM_09_14_2012_01_45PM",
"27" =  "Study3UserStudy3User27_09_14_2012_02_11PM_09_14_2012_02_11PM")
fileName <- paste("User", userId, mode, "ModeDirection", direction, suffix, sep = '')
filePath <- file.path(rootDataPath, unlist(pathByUserId[as.character(userId)]), fileName)
return(filePath)
}
getGateDistance(19, "Hold", 0, 3)
getFilePath <- function(userId, mode, direction, suffix = "RAW.csv")
{
rootDataPath <- ".."
pathByUserId <- list( 	"19" = "Study3User19_09_14_2012_10_58AM",
"21" = "Study3User21_09_14_2012_11_11AM",
"22" = "Study3User22_09_14_2012_11_35AM",
"23" = "Study3User23_09_14_2012_12_01PM",
"24" = "Study3User24_09_14_2012_12_50PM",
"25" = "Study3User25_09_14_2012_01_24PM",
"26" = "Study3User26_09_14_2012_01_45PM",
"27" = "Study3User27_09_14_2012_02_11PM")
fileName <- paste("User", userId, mode, "ModeDirection", direction, suffix, sep = '')
filePath <- file.path(rootDataPath, unlist(pathByUserId[as.character(userId)]), fileName)
return(filePath)
}
getGateDistance(19, "Hold", 0, 3)
getGateDistance(19, "Hold", 0, 5)
source("lookup.R")
isErrorOccurInGateVicinity(19, "Hold", 0, 0, 38630.820312, 0)
isErrorOccurInGateVicinity(19, "Hold", 0, 38630.820312, 0)
modeMap <- list("Hold" = "HoldMode",
"PressureMode" = "PressureMode",
"Pressure" = "PressureQuasiMode"
"Tapp" = "TapMode")
modeMap <- list("Hold" = "HoldMode",
"PressureMode" = "PressureMode",
"Pressure" = "PressureQuasiMode",
"Tapp" = "TapMode")
modeMap["Hold"]
as.character(modeMap["Hold"])
data <- read.csv("../Study3User21_09_14_2012_11_11AM/User21HoldModeDirection0RAW.csv")
source("lookup.R")
plot(c(1, 2560), c(1, 1440), type="n")
points(data$PositionY, data$PositionX)
points(data$PositionX, data$PositionY)
plot(c(1, 2560), c(1, 1440), type="n")
points(data$PositionX, data$PositionY)
indices <- isCentroidWithinVicinityOfGate(data$PositionX, data$PositionY, 6, 1)
points(data$PositionX[indices], data$PositionY[indices], col = "red")
points(data$PositionX[data$TimeStamp > 39385.18 - .05 & data$TimeStamp < 39385.18 + 0.5], data$PositionY[data$TimeStamp > 39385.18 - .05 & data$TimeStamp < 39385.18 + 0.5], col = "blue")
plot(c(1, 2560), c(1, 1440), type="n")
points(data$PositionX, data$PositionY)
matchTime <- data$TimeStamp > 39385.18 - 0.5 & data$TimeStamp < 39385.18 + 0.5
indices <- isCentroidWithinVicinityOfGate(data$PositionX, data$PositionY, 2, 0)
points(data$PositionX[indices], data$PositionY[indices], col = "red")
points(data$PositionX[matchTime], data$PositionY[matchTime], col = "blue")
matchTime <- data$TimeStamp > 39385.18 - 0.25 & data$TimeStamp < 39385.18 + 0.25
points(data$PositionX[matchTime], data$PositionY[matchTime], col = "green")
any(indices & matchTime)
gateDistance <- getGateDistance(21, "Hold", 0, 2)
gateDistance
indices <- isCentroidWithinVicinityOfGate(data$PositionX, data$PositionY, 2, gateDistance,0)
plot(c(1, 2560), c(1, 1440), type="n")
points(data$PositionX, data$PositionY)
matchTime <- data$TimeStamp > 39385.18 - 0.5 & data$TimeStamp < 39385.18 + 0.5
points(data$PositionX[indices], data$PositionY[indices], col = "red")
points(data$PositionX[matchTime], data$PositionY[matchTime], col = "blue")
source("lookup.R")
indices <- isCentroidWithinVicinityOfGate(data$PositionX, data$PositionY, 2, gateDistance,0)
plot(c(1, 2560), c(1, 1440), type="n")
points(data$PositionX, data$PositionY)
points(data$PositionX[indices], data$PositionY[indices], col = "red")
points(data$PositionX[matchTime], data$PositionY[matchTime], col = "blue")
test_isCentroidWithinVicinityOfGate()
source("lookup.R")
test_isCentroidWithinVicinityOfGate
test_isCentroidWithinVicinityOfGate()
test_isCentroidWithinVicinityOfGate(direction = 0)
data <- read.csv("/Users/chat/Project Workspaces/Indirect Touch/ not on oliver/SwitchingErrorStudyData/03-Bimanual/ Analysis/Study3FilteredErrors.csv")
data <- data[complete.cases(data),]
View(data)
data <- read.csv("/Users/chat/Project Workspaces/Indirect Touch/ not on oliver/SwitchingErrorStudyData/03-Bimanual/ Analysis/Study3FilteredErrors.csv")
data <- data[complete.cases(data),]
data <- read.csv("/Users/chat/Project Workspaces/Indirect Touch/ not on oliver/SwitchingErrorStudyData/03-Bimanual/ Analysis/Study3FilteredErrors.csv")
data <- data[, !(names(data) %in% c("X"))]
data <- data[complete.cases(data),]
write.csv(data, "../ Analysis/Study3FilteredErrors2.csv", row.names = F, na = "")
install.packages("igraph")
library(igraph)
# read in the .gml file
G = read.graph(file=file.choose(),format="gml")
# get the vitals on the graph you just imported
summary(G)
no.clusters(G)
no.clusters(G, mode = "strong")
no.clusters(G, mode = "weak")
cluster.distribution(G)
hist(cluster.distribution(G))
summary(cluster.distribution(G))
degree.distribution(G)
hist(degree.distribution(G))
clusters(G)
degrees(G)
degree(G)
hist(degree(G))
clusters(G)
max(clusters(G)$csize)
log(5,2)
setwd("~/Project Workspaces/ Templates/Teaching/ExamSummary")
source('~/Project Workspaces/ Templates/Teaching/ExamSummary/runExample.R')
