<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body>
<p>Muito obrigado pela ajuda Cid, mas ainda tem alguma informação
que está sendo perdida, pois:</p>
<p>myfile <-<br>
vroom(<a class="moz-txt-link-rfc2396E" href="https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgval.txt">"https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgval.txt"</a>,
delim = "\t", skip = 5)<br>
<br>
myfile <- myfile %>% rename(dados = `folder input=imgval/
and output=backup/`)<br>
<br>
<br>
myfile <- myfile %>% filter(str_detect(dados,
c("Start","sample","lca:"))) %>% as.data.frame() %>%
filter(!str_detect(dados, c("Predicted")))<br>
<br>
<br>
dim(myfile)<br>
[1] 73 1<br>
<br>
Eu sei por contagem direta no arquvo result_imgval.txt que tem 52
lca no output do result_imgval.txt do myfile só aparecem 18. <br>
<br>
Seguindo o seu caminho, se eu tento selecionar todos os lca, faço:<br>
<br>
myfile <-<br>
vroom(<a class="moz-txt-link-rfc2396E" href="https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgval.txt">"https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgval.txt"</a>,
delim = "\t", skip = 5)<br>
<br>
myfile <- myfile %>% rename(dados = `folder input=imgval/
and output=backup/`)<br>
myfile <- myfile %>% filter(str_detect(dados, c("lca:")))
%>% as.data.frame()<br>
<br>
dim(myfile)<br>
#[1] 73 1<br>
<br>
Mais então eu perco a informação dos arquivos *jpg e todo arranjo
que modifico nos filtros não consigo recuperar a informação. Eu
sei que tudo estará OK, quando no final:<br>
<br>
unique(myfile3$sample)<br>
#[1] 100</p>
<p><br>
</p>
<pre class="moz-signature" cols="72">--
Alexandre dos Santos
Geotechnologies and Spatial Statistics applied to Forest Entomology
Instituto Federal de Mato Grosso (IFMT) - Campus Caceres
Caixa Postal 244 (PO Box)
Avenida dos Ramires, s/n - Vila Real
Caceres - MT - CEP 78201-380 (ZIP code)
Phone: (+55) 65 99686-6970 / (+55) 65 3221-2674
Lattes CV: <a class="moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
OrcID: orcid.org/0000-0001-8232-6722
ResearchGate: <a class="moz-txt-link-abbreviated" href="http://www.researchgate.net/profile/Alexandre_Santos10">www.researchgate.net/profile/Alexandre_Santos10</a>
Publons: <a class="moz-txt-link-freetext" href="https://publons.com/researcher/3085587/alexandre-dos-santos/">https://publons.com/researcher/3085587/alexandre-dos-santos/</a>
--</pre>
<div class="moz-cite-prefix">Em 29/09/2020 13:41, Cid Póvoas
escreveu:<br>
</div>
<blockquote type="cite"
cite="mid:CAAmR27-c=mJ6DkJBD14tf6dDnuJM56g2pp7hV8f9FfeYSYqLgw@mail.gmail.com">#Download
dos dados<br>
myfile <-<br>
vroom("<a
href="https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgval.txt"
moz-do-not-send="true">https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgval.txt</a>",
delim = "\t", skip = 5)<br>
<br>
myfile <- myfile %>% rename(dados = `folder input=imgval/
and output=backup/`)<br>
<br>
<br>
myfile <- myfile %>% filter(str_detect(dados,
c("Start","sample","lca:"))) %>% as.data.frame() %>%
filter(!str_detect(dados, c("Predicted")))<br>
<br>
<br>
dim(myfile)<br>
<br>
<br>
myfile2 <- myfile %>%<br>
separate(dados, c("Start", "sample"), sep = "/") %>%<br>
select("sample")<br>
<br>
<br>
myfile2[<a href="http://is.na" moz-do-not-send="true">is.na</a>(myfile2)]
<- 1<br>
<br>
<br>
<br>
myfile3 <- myfile2 %>% mutate(lca = ifelse(sample == "1",
"1", "0"),<br>
lca = lead(lca, default = "0")) %>%
filter(!sample == "1") </blockquote>
</body>
</html>