if (FALSE) {
chooseOpi("Octopus900")
if (!is.null(opiInitialize()$err))
stop("opiInitialize failed")
s <- list(x=9, y=9, level=dbTocd(db), size=0.43, color="white",
duration=200, responseWindow=1500, checkFixationOK=NULL)
class(s) <- "opiStaticStimulus"
print(opiPresent(s, NULL))
}
Run the code above in your browser using DataLab