library(SMR)
#example 1:
x <- 2
q <- 1
p <- 0.9
n <- 30
size <- 5
df <- 3
np <- 32
dSMR(x, size, df, np)
pSMR(q, size, df, np)
qSMR(p, size, df, np)
rSMR(n, size, df)
#example 2:
x <- c(-1, 2, 1.1)
q <- c(1, 0, -1.5)
p <- c(0.9, 1, 0.8)
n <- 10
size <- 5
df <- 3
np <- 32
dSMR(x, size, df, np)
pSMR(q, size, df, np)
qSMR(p, size, df, np)
rSMR(n, size, df)
Run the code above in your browser using DataLab