foreveryang

回复 第7楼 的 i19870503：你那个链接打不开~

回复 第2楼 的 ada：其实问题在于‘stop()'这里；应该换成break（）就能运行了。

请问哪些地方可以优化，先谢过~

想要写一个循环来做项目，无奈while循环每次运行总是弹出‘error：'；也没有解释～ 实在不知道为什么～ 求帮忙！

<br />
    vec<-vector(length=n)<br />
    m=1<br />
    w=1<br />
    while(m<=(n-1)){<br />
      if(bool_list[[1]][m]==FALSE){<br />
        if(m==(n-1)){<br />
          vec[n]<-probes[n]<br />
          stop()<br />
        }<br />
        if (m!=(n-1)){<br />
          vec[m]=probes[m]<br />
          m=m+1<br />
          if(m>n-1) stop()<br />
        }<br />
      } else<br />
      if(bool_list[[2]][m]==FALSE | is.na(bool_list[[2]][m])){<br />
        pos<-which(pval==min(pval[m:(m+1)]))<br />
        vec[m]<-probes[pos] #2 probes within 1kb<br />
        m=m+2<br />
        if(m>n-1) stop()<br />
      } else<br />
      if(bool_list[[2]][m]==TRUE){<br />
        pos<-which(pval==min(pval))<br />
        vec[m]<-probes[pos] #2 probes within 1kb<br />
        m=m+2<br />
        if(m>n-1) stop()<br />
    }</p>
<p>    List_SNP_3[[w]]<-as.character(vec)<br />
  }<br />

回复 第1楼 的 ypchen：试试sudo apt-get install libcurl-dev

R中有很多函数可以通过直接输入函数名，即得到其代码；

然而有些函数却不可以，比如image，给出的输出为：

function (x, ...)

UseMethod("image")

<bytecode: 0x0000000005faf568>

<environment: namespace:graphics>

请问各位大侠怎样找到其原函数代码呢？

谢谢！

想要对不同的值赋上不同的颜色

eg. <=50的值 赋上grey(0.8)...以此类推

runif(n=50,min=40,max=90)->S

apply(as.matrix(S),1,function(x){

if(x<=50){x<-grey(0.8)}

else if(x<=60){x<-grey(0.6)}

else if(x<=70){x<-grey(0.4)}

else if(x<=80){x<-grey(0.2)}

else if(x<=90){x<-grey(0.1)}

else x<-NA

}

但是这个apply函数却跑不出来~ 请教诸位大神问题出在哪里？

换成for循环之后又能够跑出来。

for (i in 1:length(S)){

S->x

if(x<=50){S<-grey(0.8)}

else if(x<=60){S<-grey(0.6)}

else if(x<=70){S<-grey(0.4)}

else if(x<=80){S<-grey(0.2)}

else if(x<=90){S<-grey(0.1)}

else S<-NA

}

搞得很confusing~~~~~~

回复 第1楼 的 gaihua559：jpeg(x,width=,height=) width和height都可以随意调整的~

回复 第2楼 的 nan.xiao：非常感谢！ 但是能请教一下我贴出来的那个程序错在哪里？

我想写一个函数，是在rm函数基础上的：能够将需要的对象保留下来，其他对象删除

但是下面的程序始终有些问题~ 其实如果不把它当函数，还是可以用的~~

请高手指点一下哪里错误~~~

<br />
a=1<br />
b=2<br />
c=3<br />
d=4<br />
e=5<br />
f=6<br />
g=7<br />
h=8<br />
j=9<br />
i=7</p>
<p>S<-c('a','b','c')</p>
<p>ls()->O<br />
remain<-function(Stay,Object){</p>
<p>  as.data.frame(Stay)->St<br />
  apply(St,1,function(x){<br />
    which(x==Object)<br />
  }<br />
        )->Sel<br />
  rm(list=character(Object[-c(Sel)]))</p>
<p>}<br />
remain(S,O)<br />
rm(list=ls())<br />