R/sstr.R

Defines functions sstr

Documented in sstr

sstr <-
function(Data, par="C"){
y.. = mean( crisp.Data(Data, par) )
sstr = 0

for(k in 1:length(n(Data))){
sstr.in = n(Data)[k] * (( mean(crisp.Data(Data, par, factor=k)) - y.. )^2 )
sstr = sstr + sstr.in
}

return( sstr )
}

Try the ANOVA.TFNs package in your browser

Any scripts or data that you put into this service are public.

ANOVA.TFNs documentation built on May 1, 2019, 9:14 p.m.