> final_wei
is_litigation is_warrant is_integrity is_review forth_sub_ave type is_method
1 0 -0.1848 0.1425 0 0.0581 0.1848 0.06607
left_year rtl_year t_importance cited_count period sub_amount app_amount is_range_wide
1 -0.08074 0.03577 0 -0.01461 0 0 0 0.1604
count_ipc cite_count avr_amt avr_hold lisence transfer
1 0.01393 -0.01004 0 0 -0.008525 0.007483
> final_wei>0.1
is_litigation is_warrant is_integrity is_review forth_sub_ave type is_method
[1,] FALSE FALSE TRUE FALSE FALSE TRUE FALSE
left_year rtl_year t_importance cited_count period sub_amount app_amount
[1,] FALSE FALSE FALSE FALSE FALSE FALSE FALSE
is_range_wide count_ipc cite_count avr_amt avr_hold lisence transfer
[1,] TRUE FALSE FALSE FALSE FALSE FALSE FALSE
> final_wei[final_wei>0.1]
[1] 0.1425 0.1848 0.1604
> which(final_wei>0.1)
[1] 3 6 15
> final_wei[which(final_wei>0.1)]
is_integrity type is_range_wide
1 0.1425 0.1848 0.1604