Mohsen Soltanifar 2023-JAN-04

The goal of SimSST is to simulate stop signal task data based on fixed ssd method and the tracking method.

You can install the development version of SimSST with:

```
library(gamlss.dist)
library(dplyr)
library(MASS)
library(SimSST)
```

This function takes in nine variables and produces a matrix of stop signal task data based on fixed ssd method

```
<-
mySSTdata1 simssfixed(
pid = c("FNLN1","FNLN1"),
block = c(1,2),
n = c(10,10),
m = c(4,4),
SSD.b = c(220,240),
dist.go = c("ExG","ExG"),
theta.go = as.matrix(rbind(c(440,90,90),c(440,90,90))),
dist.stop = c("ExG","ExG"),
theta.stop = as.matrix(rbind(c(120,80,70),c(120,80,70)))
) mySSTdata1
```

This function takes in nine variables and produces a matrix of stop signal task data based on tracking method

```
<-
mySSTdata2 simsstrack(
pid = c("FNLN1","FNLN1"),
block = c(1,2),
n = c(10,10),
m = c(4,4),
SSD.b = c(220,240),
dist.go = c("ExG","ExG"),
theta.go = as.matrix(rbind(c(440,90,90),c(440,90,90))),
dist.stop = c("ExG","ExG"),
theta.stop = as.matrix(rbind(c(120,80,70),c(120,80,70)))
) mySSTdata2
```

This function takes in eleven variables and produces a matrix of stop signal task data based on the generalized tracking method.

```
mySSTdata3 <- simssgen(
pid = c("FNLN1", "FNLN2", "FNLN2"),
block = c(1,1,2),
n = c(50,100,150),
m = c(10,20,30),
SSD.b = c(200,220,240),
dist.go = c("ExG","ExG","ExG"),
theta.go = as.matrix(rbind(c(400,60,30),c(440,90,90),c(440,90,90))),
dist.stop = c("ExG","ExG","ExG"),
theta.stop = as.matrix(rbind(c(100,70,60),c(120,80,70),c(120,80,70))),
rho = c(0.35,0.45,0.45),
d = c(50,65,75))
mySSTdata3
```