總和，舍入和替換值R

我有兩個問題？
總和，舍入和替換值R

> data<-read.table("UC.txt",header=TRUE, sep="\t") 
> data$tot<-data$P1+data$P2+data$P3+data$P4 
> head(data, 5) 
     geno P1 P2 P3 P4 tot 
    1 G1 0.015 0.007 0.026 0.951 0.999 
    2 G2 0.008 0.006 0.015 0.970 0.999 
    3 G3 0.009 0.006 0.017 0.968 1.000 
    4 G4 0.011 0.007 0.017 0.965 1.000 
    5 G5 0.013 0.005 0.021 0.961 1.000

問題1：有時，列數不同，因此，如何總結列2到最後一列。像數據[2]：數據[n]的

library("plyr") 
> VD<-function(P4, tot){ 
    if(tot > 1) {return(P4-0.01)} 
    if(tot < 1) {return(P4+0.01)} 
    if(tot == 1) {return(P4)} 
} 
> minu<-ddply(data, 'geno', summarize, Result=VD(P4, tot)) 
> v <- data$geno==minu$geno 
> data[v, "P4"] <- minu[v, "Result"] 
> data <- subset(data, select = -tot) 
> data$tot<-data$P1+data$P2+data$P3+data$P4 
> head(data, 5) 
    geno P1 P2 P3 P4 tot 
1 G1 0.02 0.01 0.03 0.94 1 
2 G2 0.01 0.01 0.02 0.96 1 
3 G3 0.01 0.01 0.02 0.96 1 
4 G4 0.01 0.01 0.02 0.96 1 
5 G5 0.01 0.01 0.02 0.96 1

問題2：在這裏，我需要舍入 'TOT' 1通過調整P1至P4。
條件：
1）我應該調整P1到P4中的最大值
2）調整值可能不同，如0.01,0.001,0.0001。（它基於1-tot）
如何做到這一點？
在此先感謝

來源

2014-03-04 ramesh

對於問題1，總結除了第一個所有列：

dat$tot <- rowSums(dat[,-1])

來源

2014-03-04 06:39:02 agstudy

總和，舍入和替換值R

回答

相關問題