#example-script for arf3DS4 (Wouter Weeda) #dataset provided by Simon van Gaal #load arf3DS4 library library("arf3DS4") #load the experiment loadExp(paste(getwd(),"/go-nogo experiment",sep=""),"set") #load the model mod <- loadModel("23regions","pp0101","nogo_vs_go") #view the model show(mod) plot(mod) # [optional] calculate connectivity # go_conn <- fitConnectivity(mod,"GO_single_events.nii.gz") # nogo_conn <- fitConnectivity(mod,"NOGO_single_events.nii.gz")