design <- simprepTemporal(totaltime=200, onsets=seq(1,200,40),
durations=20, effectsize=1, TR=2, hrf="double-gamma")
ts <- simTSfmri(design=design, SNR=1, noise="white")
plot(ts, type="l")
rm(design,ts)
Run the code above in your browser using DataLab