Displaying 2 results from an estimated 2 matches for "hand1".
Did you mean:
hand
2012 Mar 03
1
Problem running stepAIC within a function.
...weighting
if (weight==1){w <- s1$weight/sum(s1$weight)}
else {w <- rep(1/nrow(s1),nrow(s1))}
#do regression
if (opt==1){
fit <-
lm(stepAIC(lm(new~-1+SIC,s1,weights=w),scope=list(upper=~1+SIC+turn+exturn+new+exnew+hand+excise+merch+exmerch+tob+rub+water+turn1+exturn1+new1+exnew1+hand1+excise1+
merch1+exmerch1+tob1+rub1+water1+turn2+exturn2+new2+exnew2+hand2+excise2+merch2+exmerch2+tob2+rub2+water2,lower=~-1+SIC),
direction="both"))
sigdata <-
cbind(new=s1$new,SIC=s1$SIC,s1[,coeffs[which(summary(fit)$coeff[-c(1:128),4]
<= 0.05)]])
finalfit <- lm(n...
2003 Mar 26
0
R TclTk iwidgets::comboboc
...some of the
relevant ActiveTcl help. I'm not sure why it has "funny characters".
#
# Non?.editable Dropdown Combobox
#
iwidgets::combobox .cb1 ?.labeltext Month: \ ?.selectioncommand
{puts ?selected: [.cb1 getcurselection]"} \ ?.editable false
?.listheight 185 ?.popupcursor hand1 .cb1 insert list end Jan
Feb Mar Apr May June Jul Aug Sept Oct Nov Dec
BTW, Thanks very much to all organizers and presenters at the
DSC 2003 - a huge sucess!
Regards,
James
--------------------------------------------------------------------------
James Wettenhall...