<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:12pt"><div><span>Isso foi a primeira coisa que conferi !!!! Olha só a saída:</span></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;"><span><br></span></div><div style="background-color: transparent;"> Sys.setenv(HTTP_PROXY="http://giselle:selecaogenomic@2013@proxy.cnpms.embrapa.br:3128")</div><div style="background-color: transparent;">> getwd()</div><div style="background-color: transparent;">[1] "C:/GS_tutorial"</div><div style="background-color: transparent;">> dir(getwd())</div><div style="background-color: transparent;">[1] "DatasetS2_29SAWSN_gbs.csv"</div><div style="background-color: transparent;">[2]
"DatasetS2_29SAWSN_gbs.txt"</div><div style="background-color: transparent;">[3] "Geno_RRBLUP_All.txt" </div><div style="background-color: transparent;">[4] "RData" </div><div style="background-color: transparent;">> GBS = read.csv('DatasetS2_29SAWSN_gbs.csv', header=TRUE, stringsAsFactors=FALSE)</div><div style="background-color: transparent;">> parse.GBS <- function(x) {</div><div style="background-color: transparent;">+ unique.x <- unique(x)</div><div style="background-color: transparent;">+ alleles <- setdiff(unique.x,union("H","N"))</div><div style="background-color: transparent;">+ y <- rep(0,length(x))</div><div style="background-color: transparent;">+ y[which(x==alleles[1])] <- -1</div><div style="background-color: transparent;">+ y[which(x==alleles[2])] <- 1</div><div
style="background-color: transparent;">+ y[which(x=="N")] <- NA</div><div style="background-color: transparent;">+ return(y)</div><div style="background-color: transparent;">+ }</div><div style="background-color: transparent;">> X <- apply(GBS[,-c(1:3)],1,parse.GBS)</div><div style="background-color: transparent;">> dim(X)</div><div style="background-color: transparent;"><span></span></div><div style="background-color: transparent;">NULL</div><div><br></div><div>E agora ???</div><div><br></div><div class="yahoo_quoted" style="display: block;"> <br> <br> <div style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 12pt;"> <div style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 12pt;"> <div dir="ltr"> <font size="2" face="Arial"> Em Quarta-feira, 20 de Novembro de 2013 13:31, Leandro Marino
<leandromarino@leandromarino.com.br> escreveu:<br> </font> </div> <div class="y_msg_container"><div id="yiv3574221550"><div><div dir="ltr"><div class="yiv3574221550gmail_extra"><div class="yiv3574221550gmail_default" style="font-family: 'trebuchet ms', sans-serif; font-size: small; color: rgb(51, 51, 51);">O problema está aqui: </div><div class="yiv3574221550yqt1849750270" id="yiv3574221550yqtfd75284"><div class="yiv3574221550gmail_default" style="font-family: 'trebuchet ms', sans-serif; font-size: small; color: rgb(51, 51, 51);">
<br clear="none"></div><div class="yiv3574221550gmail_default" style="font-family: 'trebuchet ms', sans-serif; font-size: small; color: rgb(51, 51, 51);"><span style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 16px; color: rgb(34, 34, 34);">cannot open file 'tpg12-06-0006-dataset-s2': No such file or directory</span></div></div>
<div class="yiv3574221550gmail_default" style="font-family: 'trebuchet ms', sans-serif; font-size: small; color: rgb(51, 51, 51);"></div><div class="yiv3574221550gmail_default" style="font-family: 'trebuchet ms', sans-serif; font-size: small; color: rgb(51, 51, 51);">
o arquivo não existe no local que está. </div><div class="yiv3574221550gmail_default" style="font-family: 'trebuchet ms', sans-serif; font-size: small; color: rgb(51, 51, 51);"><br clear="none"></div><div class="yiv3574221550gmail_default" style="font-family: 'trebuchet ms', sans-serif; font-size: small; color: rgb(51, 51, 51);">
veja o diretorio que vc está com getwd() e liste os arquivos do diretorio com dir(getwd()), você verá que não há nenhum arquivo com esse nome.</div><br clear="none"><br clear="all"><div><div dir="ltr"><div class="yiv3574221550yqt1849750270" id="yiv3574221550yqtfd09255"></div><table border="0" cellspacing="0" cellpadding="0" width="643" style="width:482pt;border-collapse:collapse;"><tbody><tr><td colspan="1" rowspan="1" width="154" style="width:115.55pt;padding:0cm 5.4pt;">
<a rel="nofollow" shape="rect" target="_blank" href="http://www.showmetech.com.br/"><img src="http://dl.dropbox.com/u/15760623/image001.png"></a><br clear="none">
</td><td colspan="1" rowspan="1" valign="top" width="300" style="width:224.7pt;padding:0cm 5.4pt;">
<div style="margin-bottom:0.0001pt;"><b><span lang="EN-US" style="font-size: 10pt; font-family: 'Trebuchet MS', sans-serif; color: rgb(228, 108, 10);">LEANDRO MARINO</span></b><span lang="EN-US" style="font-size: 10pt; font-family: 'Trebuchet MS', sans-serif; color: rgb(228, 108, 10);"> </span><span lang="EN-US" style="font-size: 10pt; font-family: 'Trebuchet MS', sans-serif; color: rgb(102, 102, 102);">| Showmetech<br clear="none">
</span><span lang="EN-US" style="font-size: 10pt; font-family: 'Trebuchet MS', sans-serif; color: rgb(127, 127, 127);">Estatístico | Fotógrafo<br clear="none">
Mobile: <a rel="nofollow" shape="rect" href=""><span style="color:rgb(127,127,127);">55 21 9845-7707</span></a><br clear="none">
Email: <a rel="nofollow" shape="rect" ymailto="mailto:contato@leandromarino.com.br" target="_blank" href="mailto:contato@leandromarino.com.br"><span style="color:rgb(127,127,127);">contato@leandromarino.com.br</span></a><br clear="none">
Profiles SMT: </span><span style="font-size: 10pt; font-family: 'Trebuchet MS', sans-serif; color: rgb(127, 127, 127);"><a rel="nofollow" shape="rect" target="_blank" href="http://www.facebook.com/showmetech"><span lang="EN-US" style="color:rgb(127,127,127);">facebook</span></a></span><span lang="EN-US" style="font-size: 10pt; font-family: 'Trebuchet MS', sans-serif; color: rgb(127, 127, 127);"> | </span><span style="font-size: 10pt; font-family: 'Trebuchet MS', sans-serif; color: rgb(127, 127, 127);"><a rel="nofollow" shape="rect" target="_blank" href="http://www.twitter.com/showmetech"><span lang="EN-US" style="color:rgb(127,127,127);">twitter</span></a></span><span lang="EN-US" style="font-size: 10pt; font-family: 'Trebuchet MS', sans-serif; color: rgb(127, 127, 127);"> | <span style="color:rgb(127,127,127);"><a rel="nofollow" shape="rect" target="_blank"
href="https://plus.google.com/115440786884851522659">Google+</a></span></span></div><div class="yiv3574221550yqt1849750270" id="yiv3574221550yqtfd69180"><br clear="none">
</div></td><td colspan="1" rowspan="1" width="189" style="width:5cm;padding:0cm 5.4pt;"><div align="center" style="margin-bottom:0.0001pt;text-align:center;"><a rel="nofollow" shape="rect" target="_blank" href="http://www.leandromarino.com.br/"><img src="http://dl.dropbox.com/u/15760623/LeandroMarino%20copy.png"></a><br clear="none">
</div></td></tr></tbody></table><div class="yiv3574221550yqt1849750270" id="yiv3574221550yqtfd50333"><br clear="none"></div></div></div><div class="yiv3574221550yqt1849750270" id="yiv3574221550yqtfd00793">
</div></div></div></div></div><br><br></div> </div> </div> </div> </div></body></html>