New Era of Self-Discipline

New Era of Self-Discipline starts now!

Persistence

Persistence is the common trait of anyone who has had a significant impact on the world.

坚持是世界上成功人士共有的品质。

如果在被银行拒绝了242次之后，霍华德-舒尔茨放弃了，就不会有星巴克；如果在被出版社拒绝了数年之后，J.K.罗琳放弃了，就不会有《哈利波特》；如果他的主题公园被否定了302次之后，华特·迪士尼放弃了，就不会有迪士尼乐园……嗯，像傻逼一样坚持，才会有牛逼的结果。

最关键的时刻

该是爆发出我最强悍最坚韧一面的时候了.

B1/B2签证有效期和在美停留时间的问题

一、关于签证有效期
首先我们要知道当我们历经困难从签证官手里拿到自己的签证的时候，签证上面有个时间
这个我们叫做签证有效期。
B1/B2一般是一年多次往返的，这个只跟你申请的签证类型有关，与你填表的时候写的预计赴美时间和在美停留时间实际上关系不大！
当B1/B2签证被美国外交部批准，一般来说会是一年多次往返（visa上会注明multiple)。这个一年是指从签证获准之日起后的365天，都是签证有效期。
在这个有效期内，你有权选择任何日子来美，也可以放弃这项权利。
多次往返理论上讲可以是今天飞来美国,明天飞回中国，第三天又飞来美国，... ..., 直到签证过期。

二、关于在美停留时间或者又叫有效居留期，停留时间
当我们历尽千辛飞到美国的第一站后，首先要同美国国土安全部（不同于之前的美国外交部，他们工作独立，无权互相干涉）的官员会面，由他们来决定父母在美国的居留时间，也就是通常所说的过海关。这之后才是正真意义上的踏上了美国国土。
对于B1/B2签证，停留期最长不超过183天。绝大多数情况下（人权上和道义上），会给到这个上限，即使是父母在同一个签证有效期内多次来美国。另外这个居留到期日理论上可以比签证到期日还晚。
例如父母在签证到期日前一天到达美国，也可以获得183天的居留权。
美国国土安全部的官员会将I-94出入境记录卡附在父母的护照上，离境时必须归还此卡。
总结，在签证有效期内，想什么时候来美国就什么时候来，想来几回就来几回，如同走大路。而居留时间长短则由不得你，从0天（遣返）到183天不等，天知道，如果你对美国国土安全或美国国家利益构成威胁，往少了数数，否则，往大了数。

ubuntu 卸载wine-qq

使用：dpkg -l | grep qq 查找到安装包之后用下面的命令卸载

sudo dpkg -r wine-qq2012-longeneteam

Delete columns of data frame in R

> head(data)
   chr       genome region
1 chr1 hg19_refGene    CDS
2 chr1 hg19_refGene   exon
3 chr1 hg19_refGene    CDS
4 chr1 hg19_refGene   exon
5 chr1 hg19_refGene    CDS
6 chr1 hg19_refGene   exon

and I want to remove the 2nd column.

E3Cfc<-E3Cfc[,!(names(E3Cfc)=="pk.bound")]

> Data$genome <- NULL
> head(Data)
   chr region
1 chr1    CDS
2 chr1   exon
3 chr1    CDS
4 chr1   exon
5 chr1    CDS
6 chr1   exon

As pointed out in the comments, here are some other possibilities:

Data[2] <- NULL    # Wojciech Sobala
Data[[2]] <- NULL  # same as above
Data <- Data[,-2]  # Ian Fellows
Data <- Data[-2]   # same as above

You can remove multiple columns via:

Data[1:2] <- list(NULL)  # Marek
Data[1:2] <- NULL        # does not work!

Be careful with matrix-subsetting though, as you can end up with a vector:

Data <- Data[,-(2:3)]             # vector
Data <- Data[,-(2:3),drop=FALSE]  # still a data.frame

Delete a list of elements from data frame in R

This might be an easy question but i still need some help for using R.
I have a data.frame (main_data), lets say..

NAMES   AGE     LOC
Jyo     23      Hyd
Abid    27      Kar
Ras     24      Pun
Poo     25      Goa
Sus     28      Kar

I wish to remove a few rows based on a list of names. So lets say I have another list of table as follows:

NAMES_list
Jyo
Ras
Poo

So based on this list, if any of the names match to my above "main_data" table, then I would like to remove the whole row contianing them, so the result should be as follows

NAMES   AGE     LOC
Abid    27      Kar
Sus     28      Kar

Solution:

Use %in%: main_data2 <- main_data[ ! main_data$NAMES %in% NAMES_list, ]