名詞解釋OEM

OEM: Original Equipment Manufacturing，接受客戶完全指定，按原圖設計代工製造。

ODM: Original Design Manufacturing，為客戶提供設計、製造代工的服務。

EMS: Electronics Manufacturing Service，提供經濟規模及全球各地的電子專業代工製造服務。

CMMS: Component Module Move Service，是郭台銘首創的代工模服務模式。分別為JDVM（Join DeVelopment Manufacture）共同設計開發製造與JDSM（Join DeSign Manufacture）共同設計服務製造。

ODM與OEM的不同，在於增加了設計（Design）概念。EMS與OEM的不同，在於，EMS提供了全球運籌通路與全球組裝工廠。而JDVM跟EMS的不同，在於，JDVM提供了客戶維護與全球維修，最後呢!JDSM又比JDVM多了產品設計的部分。

[R]變更y軸數值方向

1.las可以變更軸的數字方向

axis(2, at = seq(0,300,50), labels = seq(0,300,50), las=2)

2.bty="n" 則不顯示文字方塊外框

legend(6.8, 255, "Zolendronic acid", cex = 2/3, bty="n")

3.arrows可以在圖上畫箭頭符號

arrows(7.25,260,7.05,285, length = 0.1)

4.rug可以在圖軸上,加上標記

rug(out.mean, side=1,lwd = 1)

EX :

[R]Regression Analysis

### lm function

tic <- Sys.time()

Data<-matrix(nrow=10,ncol=20,rnorm(1:200))

rownames(Data)<-paste("Gene", 1:10, sep = "")

test<-matrix(nrow=nrow(Data),ncol=ncol(Data)+1)

test[1,]<-rep(0,21)

for(i in 2:10){

out<-lm(Data[1,]~Data[i,])

test[i,1]<-out$coefficients[2]

test[i,-1]<-out$residuals

out<-c()

}

toc <- Sys.time()

comp.time <- toc - tic

### matrix calculate

tic <- Sys.time()

Data<-matrix(nrow=10,ncol=20,rnorm(1:200))

rownames(Data)<-paste("Gene", 1:10, sep = "")

test<-matrix(nrow=nrow(Data),ncol=ncol(Data)+1)

test[1,]<-rep(0,21)

y<-matrix(ncol=1,Data[1,])

for(i in 2:10){

x<-c()

out<-c()

x<-cbind(rep(1,20),Data[i,])

#求bo,b1

out<-solve(t(x)%*%x) %*% (t(x)%*%y)

test[i,1]<-out[2,]

#求residual

res<-c(y - (x%*%out))

sse<-sum(res^2)

}

toc <- Sys.time()

comp.time <- toc - tic