?poly#
example(poly)#
ls()#
n1#
rm(list=ls())#
?list#
df <- data.frame()#
df#
tmp <- edit(df)#
tmp#
help(raov)#
aov#
help(aov)#
example(aov)
source("/Users/lharvey/Documents/Word Docs/Classes/Psych 4165/2009 Summer/Labs Summer 2009/2. Detection Theory Lab lab/Lab_2_Tools/lab2_RawData.R")
tab.rec
source("/Users/lharvey/Documents/Word Docs/Classes/Psych 4165/2009 Summer/Labs Summer 2009/2. Detection Theory Lab lab/Lab_2_Tools/lab2_RawData.R")
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_RawData.R")
?file.choose()
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_RawData.R")
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_Graphs.R")
df[1,2]
df
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_Graphs.R")
ls()
df
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_Graphs.R")
?pty
?par
source("/var/folders/17/17RHXIt5EVaK5KDO+0+ua++++TI/-Tmp-//RtmpYIha9x/file10d63af1")#
unlink("/var/folders/17/17RHXIt5EVaK5KDO+0+ua++++TI/-Tmp-//RtmpYIha9x/file10d63af1")
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_Graphs.R")
?text
text(-1, .3, "new\nfaces")
text(-1, .3, "new\nfaces", cex=0.7)
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_Graphs.R")
text(-1, .35, "new\nfaces", cex=0.7)
df
str(df)
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_Graphs.R")
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_ROC_Graphs.R")
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_SDT_Model_Graph.R")
paste("Signal Detection Model with Decision Criteria\nSubject ", mn)
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_SDT_Model_Graph.R")
# Plot the signal detection model#
# find the maximum density value for setting y-axis#
# find the s0 probability density column#
ind0 <- match("Pred_Density0", names(df))#
ind1 <- ind0 + nsig -1#
max.density <- 1.2 * max(df[, ind0:ind1], na.rm = TRUE)#
#
# plot s0 probability density function#
plot(df[, ind0] ~ Xc, data = df, type = "l", col = "black"#
	xlim = c(min(df$Xc, na.rm = TRUE), max(df$Xc, na.rm = TRUE)),#
	ylim = c(-0.03, max.density),#
	xlab = "Decision Axis (standard deviations of S0)",#
	ylab = "Probability Density",#
	main = paste("Signal Detection Model with Decision Criteria\n", "Subject ", mn))
# read the RscorePlus graphic file into a data frame#
fn <- file.choose()#
df <- read.delim(fn, header=TRUE)#
#
# Edit below to put in your own name#
mn = "Your Name"#
#
# plot distribution for with without eyes in red#
# and with eyes in blue#
#
# ############################################################
# Figure out how many criteria and how many signal conditions #
nsig <- df$nsig[1]	# number of signals#
nrat <- df$nrat[1]	# number of ratings#
ncrt <- nrat - 1	# number of criteria#
#
# Plot the signal detection model#
# find the maximum density value for setting y-axis#
# find the s0 probability density column#
ind0 <- match("Pred_Density0", names(df))#
ind1 <- ind0 + nsig -1#
max.density <- 1.2 * max(df[, ind0:ind1], na.rm = TRUE)#
#
# plot s0 probability density function#
plot(df[, ind0] ~ Xc, data = df, type = "l", col = "black"#
	xlim = c(min(df$Xc, na.rm = TRUE), max(df$Xc, na.rm = TRUE)),#
	ylim = c(-0.03, max.density),#
	xlab = "Decision Axis (standard deviations of S0)",#
	ylab = "Probability Density",#
	main = "Signal Detection Model with Decision Criteria")
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_SDT_Model_Graph.R")
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_ROC_Graphs.R")
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_SDT_Model_Graph.R")
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_ROC_Graphs.R")
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_SDT_Model_Graph.R")
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_ROC_Graphs.R")
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_SDT_Model_Graph.R")
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_ROC_Graphs.R")
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_SDT_Model_Graph.R")
source("/Users/lharvey/Desktop/Lab_2_Tools/lab2_RawData.R")
# read the RscorePlus graphic file into a data frame#
fn <- file.choose()#
df <- read.delim(fn, header=TRUE)
str(df)
fn <- file.choose()#
df <- read.delim(fn, header=TRUE)#
#
# Edit below to put in your own name#
mn = "Your Name"#
md = df$Model[1]
md
source("/Users/lharvey/Desktop/Lab_2_Tools/lab2_ROC_Graphs.R")
source("/Users/lharvey/Desktop/Lab_2_Tools/lab2_SDT_Model_Graph.R")
source("/Users/lharvey/Desktop/Labs Spring 2010/2. Detection Theory Lab lab/Lab_2_Tools/lab2_RawData.R")
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_Raw_Data_For_Rscore.R")
?read.delim
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_Raw_Data_For_Rscore.R")
# open the file with all the data and#
# read it into a data frame df#
fn <- file.choose()#
df <- read.delim(fn, header = TRUE, skip=15, nrows=64+128)#
df$Subject <- factor(df$Subject)#
#
subID <- levels(df$Subject)					# vector of subject IDs#
nsub <- length(subID)						# number of subjects
nsub
subID
df
# open the file with all the data and#
# read it into a data frame df#
fn <- file.choose()#
df <- read.table(fn, header = TRUE, skip=15, nrows=64+128)#
df$Subject <- factor(df$Subject)#
#
subID <- levels(df$Subject)					# vector of subject IDs#
nsub <- length(subID)						# number of subjects
df
df <- read.table(fn, header = TRUE, skip=15, nrows=64+128)
df
levels(df$Subject)
str(Subject)
str(df)
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_RawData.R")
myName
paste(myName,".txt", sep = "")
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_RawData.R")
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_RawData.R")
source("/Users/lharvey/Desktop/2. Detection Theory Lab lab/Lab_2_Tools/lab2_RawData.R")
