J****1
发帖数: 1769 | 1 我想要的物品:
HP LaserJet Pro cp1525nw Close to MA 01860
单张面值:
可接受的价格(必须明码标价！):
$185 each
物品新旧要求:
new sealed w/ upc
邮寄方式要求:
my fedex label
买卖双方谁承担邮寄损失(Required if not code only):
付款方式说明:
non-cc paypal, chase quickpay, billpay (CC#, Full payment address
requires)
其他补充说明:
Email me back the Serial Number
广告的有效期:
till got
物品来源:
any
我的联系方式:
PM your zip
二手交易风险自负！请自行验证是否合法和一手卡！ |
|
J****1
发帖数: 1769 | 2 我想要的物品:
HP LaserJet Pro cp1525nw Close to MA 01860
单张面值:
可接受的价格(必须明码标价！):
$185 each
物品新旧要求:
new sealed w/ upc
邮寄方式要求:
my fedex label
买卖双方谁承担邮寄损失(Required if not code only):
付款方式说明:
non-cc paypal, chase quickpay, billpay (CC#, Full payment address
requires)
其他补充说明:
Email me back the Serial Number
广告的有效期:
till got
物品来源:
any
我的联系方式:
PM your zip
二手交易风险自负！请自行验证是否合法和一手卡！ |
|
d*******1
发帖数: 854 | 3 i see. 谢谢了, 改来改去就晕了. 这回work了, 而且很快:
> glist<- read.csv('all_diff_exp_list.csv',header=TRUE)
> nmglist<- glist[glist$SYMBOL !='',]
>
> system.time(
+ songkun<- tapply(nmglist$fold, nmglist$SYMBOL,
+ function(x) x[order(abs(x), decreasing = T)][1])
+ )
user system elapsed
0.63 0.00 0.63
> songkun<- as.matrix(songkun)
> tail(songkun)
[,1]
ZYG11A 1.01860
ZYG11B 1.18808
ZYG11BL -1.16001
ZYX 1.07424
ZZEF1 -1.11228
ZZZ3 1.19661 |
|
