1  | t1waysub(tm, sqse, hval)
 | 
tm | 
|
sqse | 
|
hval | 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15  | ##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.
## The function is currently defined as
function (tm, sqse, hval) 
{
    w <- 1/sqse
    uval <- sum(w)
    xtil <- sum(w * tm)/uval
    A <- sum(w * (tm - xtil)^2)/(length(tm) - 1)
    B <- sum((1 - w/uval)^2/(hval - 1))
    t1waysub <- A/(B + 1)
    t1waysub
  }
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.