[R-br] dim(X)

[Benilton Carvalho]

O melhor, Giselle, é vc tornar uma amostra do seu arquivo disponível (mesmo
que seja com valores trocados, etc). Eu usei como exemplo o arquivo que vc
passou como referência no sei primeiro email.
On Nov 20, 2013 1:44 PM, "Giselle Davi" <giselle_davi em yahoo.com.br> wrote:

> Isso foi a primeira coisa que conferi !!!! Olha só a saída:
>
>  Sys.setenv(HTTP_PROXY="http://giselle:selecaogenomic@2013@
> proxy.cnpms.embrapa.br:3128")
> > getwd()
> [1] "C:/GS_tutorial"
> > dir(getwd())
> [1] "DatasetS2_29SAWSN_gbs.csv"
> [2] "DatasetS2_29SAWSN_gbs.txt"
> [3] "Geno_RRBLUP_All.txt"
> [4] "RData"
> > GBS = read.csv('DatasetS2_29SAWSN_gbs.csv', header=TRUE,
> stringsAsFactors=FALSE)
> > parse.GBS <- function(x) {
> +    unique.x <- unique(x)
> +    alleles <- setdiff(unique.x,union("H","N"))
> +    y <- rep(0,length(x))
> +    y[which(x==alleles[1])] <- -1
> +    y[which(x==alleles[2])] <- 1
> +    y[which(x=="N")] <- NA
> +    return(y)
> + }
> > X <- apply(GBS[,-c(1:3)],1,parse.GBS)
> > dim(X)
> NULL
>
> E agora ???
>
>
>
>   Em Quarta-feira, 20 de Novembro de 2013 13:31, Leandro Marino <
> leandromarino em leandromarino.com.br> escreveu:
>  O problema está aqui:
>
> cannot open file 'tpg12-06-0006-dataset-s2': No such file or directory
>  o arquivo não existe no local que está.
>
> 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.
>
>
>  <http://www.showmetech.com.br/>
>  *LEANDRO MARINO* | Showmetech
> Estatístico | Fotógrafo
> Mobile: 55 21 9845-7707
> Email: contato em leandromarino.com.br
> Profiles SMT: facebook <http://www.facebook.com/showmetech> | twitter<http://www.twitter.com/showmetech>
>  | Google+ <https://plus.google.com/115440786884851522659>
>
>  <http://www.leandromarino.com.br/>
>
>
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20131120/f8e5faba/attachment.html>