Forum: open-discussion

Changed it all again! [ Reply ]
By: Andrew Turpin on 2012-06-25 00:21

I realised overnight that chooseOPI shouldn't be taking the arguments, opiInitialise() should. So now it is all rewired.

Also had to battle dynamic binding of opi functions, but lost.

So now

require(OPI)

# Stimulus is Size III white-on-white as in the HFA
makeStim <- function(db, n) {
s <- list(x=9, y=9, level=dbTocd(db), size=0.43, color="white",
duration=200, responseWindow=1500)
class(s) <- "opiStaticStimulus"

return(s)
}
chooseOpi("SimHenson")
opiInitialize("C", 6)
result <- FT(makeStim=makeStim, tt=30, fpr=0.15, fnr=0.01)
opiClose()

RE: OPI R package exists! [ Reply ]
By: Andrew Turpin on 2012-06-23 11:08

[forum:5870]

And now it has simulation implementations that you can actually use!
Try this (after you have installed it!):

require(OPI)

# Stimulus is Size III white-on-white as in the HFA
makeStim <- function(db, n) {
s <- list(x=9, y=9, level=dbTocd(db), size=0.43, color="white",
duration=200, responseWindow=1500)
class(s) <- "opiStaticStimulus"

return(s)
}
chooseOpi("SimHenson")
opiInitialize()
result <- FT(makeStim=makeStim, tt=30, fpr=0.15, fnr=0.01)
opiClose()

OPI R package exists! [ Reply ] By: Andrew Turpin on 2012-06-20 01:23	[forum:5757]
Hi all, As of today, the OPI package exists. At the moment it has a broken Full Threshold implementation and no OPI calls, but that will change with the next compile overnight (European time). Check out the www page for install instructions, or just use your favourite package manager to get it. (Probably best to wait a few days :-) Andrew