Displaying 1 result from an estimated 1 matches for "noseq".
Did you mean:
nose
2008 May 21
1
problems with data frames, factors and lists
...clustered data:
mix <- function(Y, pid) {
hc = gethc(Y,pid)
maxheight = max(hc$height)
noingrp = processhc(hc)
one = noingrp$one
two = noingrp$two
twoisone = "one"
if (two != 1)
twoisone = "more"
out = list(pid = pid,one = noingrp$one, two = noingrp$two, diff = maxheight, noseqs = length(hc$labels), twogrp = twoisone)
return(out)
}
example result:
> mix(tsus_same, 77)
$pid
[1] 77
$one
[1] 9
$two
[1] 2
$diff
[1] 8.577195
$noseqs
[1] 11
$twogrp
[1] "more"
>
I then use this function in another function that just runs this
function through a lot of da...