[R] Array of Affy .cell Parse

library("affy")
Data<-ReadAffy();
eset<-mas5(Data,normalize=T)



if (method=='mas5')
{
if(norm=='F')
{ eset<-mas5(Data,normalize=F) } else { eset<-mas5(Data,normalize=T) }

}
if (method=='rma')
{ eset <-rma(Data) }


chip.names <- rownames( attr(attr(Data,'phenoData'),'data') );
expdata <- exprs(eset);
colnames(expdata) <- chip.names;
write.table(expdata,file="mas5.txt",sep="\t");

Paper Size

紙張尺寸及示意圖

ISO 216定義了A、B、C三個系列的紙張尺寸。C系列紙張尺寸主要使用於信封。

ISO 216的格式遵循著 的比率；放在一起的兩張紙有著相同的長寬比和側邊。這個特性簡化了很多事，例如：把兩張A4紙張縮小影印成一張A4紙張；把一張A4紙張放大影印到一張A3紙張；影印並放大A4紙張的一半到一張A4紙張等等。

A系列紙張格式
A系列		B系列		C系列
A0	841×1189	B0	1000×1414	C0	917×1297
A1	594×841	B1	707×1000	C1	648×917
A2	420×594	B2	500×707	C2	458×648
A3	297×420	B3	353×500	C3	324×458
A4	210×297	B4	250×353	C4	229×324
A5	148×210	B5	176×250	C5	162×229
A6	105×148	B6	125×176	C6	114×162
A7	74×105	B7	88×125	C7	81×114
A8	52×74	B8	62×88	C8	57×81
A9	37×52	B9	44×62	DL	110×220
A10	26×37	B10	31×44	C7/6	81×162

A系列

A系列紙張尺寸的長寬比都是 ，然後捨去到最接近的毫米值。A0定義成面積為一平方公尺，長寬比為 的紙張。接下來的A1、A2、A3......等紙張尺寸，都是定義成將編號前一號的紙張沿著長邊對折，然後捨去到最接近的毫米值。最常用到的紙張尺寸是A4，它的大小是210乘以297毫米。

B系列

B系列紙張尺寸是編號相同與編號前一號的A系列紙張的幾何平均。舉例來說，B1是A1和A0的幾何平均。同樣地，C系列紙張尺寸是編號相同的A、B系列紙張的幾何平均。舉例來說，C2是B2和A2的幾何平均。此外，日本有一種不相容的B系列紙張尺寸，是用算術平均而不是用幾何平均來定義的。

C系列

C系列紙張尺寸主要使用於信封。一張A4大小的紙張可以剛好放進一個C4大小的信封。如果你把A4紙張對折變成A5紙張，那它就可以剛好放進C5大小的信封，如此類推。

Survival analysis name

Survival analysis

因病存活率(OS = overall cause specific survival)

局部無復發存活率(LRRFS = local regional relapse free survival)

遠端無轉移存活率(MFS = distant metastasis free survival)

無病存活率(DFS = disease free survival)

[VBA] 刪除字串中頭尾的空白字元

應用範例1

Sub 刪除字串前端的空白字元()

MsgBox “刪除使用中儲存格內字串前端的空白字元”

ActiveCell.Value = LTrim(ActiveCell.Value)

End Sub

應用範例2

Sub 刪除字串前後端的空白字元()

moji = “ 彭 凱堯 ”

MsgBox “將變數moji前後端加上星號以利辨認其空白字元”

MsgBox “*” & moji & “*”

MsgBox “接著，刪除moji前後端的空白字元後，在其前後端加上星號，比較刪除前後的差異”

MsgBox “*” & Trim(moji) & “*”

End Sub

TRIM 刪除頭及尾空白字元函數：將字串開頭及結尾的空白字元刪除。

LTRIM 刪除開頭空白函數：將字串開頭的空白字元刪除。

RTRIM 刪除結尾空白函數：將字串結尾的空白字元刪除。

Sub 刪除字串尾端的空白字元()

MsgBox “刪除使用中儲存格內字串尾端的空白字元”

ActiveCell.Value = RTRIM(ActiveCell.Value)

End Sub

[SQL] 尋找區間內物件

create table hg18_encode_region_match_cgh

select t1.*, t2.ID, t2.nstart_pos, t2.nend_pos, concat(t2.band1,t2.band2) as band, t2.gene_sym, t2.gene_name from hg18_encode_region as t1, cell_cycle_10meant_INFO as t2

WHERE

t1.chr = t2.chrom

and

t1.start_pos <= t2.nend_pos

and

t2.nstart_pos <= t1.end_pos

[VBA] 找出最大值並上色

Sub 找出最大值並上色()

'獲得矩陣大小

Dim n As Integer

n = Range("A1").End(xlDown).Row

MsgBox (" Total Row = " & n)

'將對角線以*符號替代

Dim x As Variant

Dim y As Variant

For x = 1 To n

Cells(x, x) = "*"

Next

''找尋每列中的最大值上黃色,最小值上紅色

Dim A As Variant

Dim MAX_V As Variant

Dim MIN_V As Variant

For y = 1 To n

A = Range(Cells(y, 1), Cells(y, n))

MAX_V = Application.WorksheetFunction.Max(A)

MIN_V = Application.WorksheetFunction.Min(A)

For x = 1 To n

If Cells(y, x) = MAX_V Then

Cells(y, x).Interior.ColorIndex = 6

Else

If Cells(y, x) = MIN_V Then

Cells(y, x).Interior.ColorIndex = 3

End If

End If

Next

Next

'將對角線*符號換回1

For x = 1 To n

Cells(x, x) = "1"

Next

End Sub