search for: patzelt

...0L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 1L) total <- {}; for(i in 1:length(dat$Valid)){ total[i] <- ifelse(dat$Valid[i-1]==1, total[i] + 1, total[i]) } Cheers, -- Edward H. Patzelt Research Assistant – TRiCAM Lab University of Minnesota – Psychology/Psychiatry VA Medical Center S355 Elliot Hall: 612-626-0072 www.psych.umn.edu/research/tricam [[alternative HTML version deleted]]

R - Does anyone know of a cubic gradient descent package? I found grad.desc() but that only allows for a 2d function. I have 3 free parameters and thus am looking for a 3d function. Thank you, -- Edward H. Patzelt Research Assistant – TRiCAM Lab University of Minnesota – Psychology/Psychiatry VA Medical Center S355 Elliot Hall: 612-626-0072 www.psych.umn.edu/research/tricam [[alternative HTML version deleted]]

...put in 1 for 2 and 2 for 4, else leave the variable as is" u.ppl <- (unique(init.dat1$grid)) l.ppl <- length(u.ppl) for (i in 1:l.ppl) { if (grep("4",init.dat1$Slide1_RESP)) {2 == 1, 4 == 2}; else init.dat1$Slide1_RESP } -- Edward H. Patzelt Research Assistant – TRiCAM Lab University of Minnesota – Psychology/Psychiatry VA Medical Center Office: S355 Elliot Hall - Twin Cities Campus Phone: 612-626-0072 Email: patze003@umn.edu Please consider the environment before printing this email www.psych.umn.edu/research/tricam [[alternative...

...1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L), bin = c(NA, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1)), .Names = c("Rev", "FF", "bin" ), row.names = c(NA, -40L), class = "data.frame") -- Edward H. Patzelt Research Assistant – TRiCAM Lab University of Minnesota – Psychology/Psychiatry VA Medical Center Office: S355 Elliot Hall - Twin Cities Campus Phone: 612-626-0072 Email: patze003@umn.edu Please consider the environment before printing this email www.psych.umn.edu/research/tricam [[alternative...

...ions I run through the model is the feedback the participant receives. Any help would be greatly appreciated. I think what I want to do is run the model on each participant to generate the most probable path and then compare that to the actual path to see if they match up. Best, -- Edward H. Patzelt Research Assistant – TRiCAM Lab University of Minnesota – Psychology/Psychiatry VA Medical Center Office: S355 Elliot Hall - Twin Cities Campus Phone: 612-626-0072 Email: patze003@umn.edu Please consider the environment before printing this email www.psych.umn.edu/research/tricam [[alternative...

R help - I am attempting to write a script that has multiple subjects in 1 data file. Each subject has multiple rows with columns as variables. Here is my code, I am having problem executing it on each unique subject id (dat$Subject). getwd() setwd("/Users/edwardpatzelt/Desktop/Neuroimaging/MERIT/SRRT/merge") dat <- read.table("test2.txt", header = TRUE, na.strings = NA, stringsAsFactors = FALSE, sep = "\t") for(i in 1:length(dat)) { for (i in 1:)dat[(unique(dat$Subject)),)] { colg <- dat[grep("Green", dat$Cu...

...panel.grid.minor = none) + opts(panel.grid.major = none) + opts(axis.line = theme_segment(colour = "grey35")) + opts(background.fill = none) censorC + scale_y_continuous(limits = c(0,7), expand = c(0,0), 'Rating') + opts(legend.position = "none") Best, -- Edward H. Patzelt Research Assistant – TRiCAM Lab University of Minnesota – Psychology/Psychiatry VA Medical Center S355 Elliot Hall: 612-626-0072 www.psych.umn.edu/research/tricam [[alternative HTML version deleted]]

...53L, 51L, 49L, 50L, 46L, 48L, 47L, 43L, 45L, 44L, 40L, 42L, 41L, 37L, 38L, 39L, 34L, 35L, 36L, 31L, 32L, 33L, 28L, 30L, 29L, 25L, 26L, 27L, 22L, 24L, 23L, 19L, 20L, 21L, 16L, 18L, 17L, 15L, 13L, 14L, 12L, 10L, 11L, 7L, 9L, 8L, 6L, 4L, 5L, 1L, 2L, 3L), class = "data.frame") -- Edward H Patzelt | Clinical Science PhD Student Psychology | Harvard University Systems Neuroscience of Psychopathology Laboratory [[alternative HTML version deleted]]

...= sum(diff, na.rm = T) j = j + 1 } } minSum = min(thesum) minErr[s] = min(thesum) bestDeltas[s] = min(which(thesum==minSum)) * incx + minx # bestDeltasGammas[s] <- matrix(min(which(thsum==minSum))*inc + min) betterThanChance[s] = sum(pbinom(0:minSum, length(dat2$choice), 0.5)) -- Edward H. Patzelt Research Assistant – TRiCAM Lab University of Minnesota – Psychology/Psychiatry VA Medical Center Office: S355 Elliot Hall - Twin Cities Campus Phone: 612-626-0072 Email: patze003@umn.edu Please consider the environment before printing this email www.psych.umn.edu/research/tricam [[alternative...

Everyone - What do the NaN's mean here? Is this analysis a problem? Linear mixed-effects model fit by maximum likelihood Data: tmp.dat AIC BIC logLik 1611.251 1638.363 -797.6253 Random effects: Formula: ~1 | group_id (Intercept) Residual StdDev: 0.0003077668 9.236715 Fixed effects: AvgTrials ~ time + factor(group_id) + time * factor(group_id)

..."temp7", "temp7", "temp8", "temp8", "temp8", "temp9", "temp9", "temp9")), .Names = c("delayValue", "Freq", "id"), row.names = c(NA, 951L), class = "data.frame") -- Edward H. Patzelt Research Assistant – TRiCAM Lab University of Minnesota – Psychology/Psychiatry VA Medical Center S355 Elliot Hall: 612-626-0072 www.psych.umn.edu/research/tricam [[alternative HTML version deleted]]

...;, "hare4", "hare", "ext_t", "total_barrat_11_imputed", "mcq_k", "ppitots", "ppi_1_corrected", "ppi_2_corrected", "total_buss_perry" ), row.names = c(NA, -43L), class = "data.frame") -- *Edward H Patzelt | Clinical Science PhD StudentPsychology | Harvard University * [[alternative HTML version deleted]]