<html><body><div style="font-family: trebuchet ms,sans-serif; font-size: 12pt; color: #000000"><div>As the error is reporting, you should use jitter() on your coordinates. Either specify new jittered coordinates directly to xy argument of spca(), or, jitter your genind object which you can access using `other(x)$xy`.</div><div><br data-mce-bogus="1"></div><div>Here's an example of the former approach:</div><div><br data-mce-bogus="1"></div><div><span style="font-family: "courier new", courier, monaco, monospace, sans-serif;" data-mce-style="font-family: 'courier new', courier, monaco, monospace, sans-serif;">> library(adegenet)</span><br><span style="font-family: "courier new", courier, monaco, monospace, sans-serif;" data-mce-style="font-family: 'courier new', courier, monaco, monospace, sans-serif;">> data(spcaIllus)</span><br><span style="font-family: "courier new", courier, monaco, monospace, sans-serif;" data-mce-style="font-family: 'courier new', courier, monaco, monospace, sans-serif;">> x <- spcaIllus[[1]]</span><br><span style="font-family: "courier new", courier, monaco, monospace, sans-serif;" data-mce-style="font-family: 'courier new', courier, monaco, monospace, sans-serif;">> out <- spca(x, ask = FALSE, type = 1, scannf = FALSE)</span><br><span style="font-family: "courier new", courier, monaco, monospace, sans-serif;" data-mce-style="font-family: 'courier new', courier, monaco, monospace, sans-serif;">> xy <- other(x)$xy</span><br><span style="font-family: "courier new", courier, monaco, monospace, sans-serif;" data-mce-style="font-family: 'courier new', courier, monaco, monospace, sans-serif;">> newxy <- xy[rep(1:(nrow(xy)/10), length.out = nrow(xy)), ]</span><br><span style="font-family: "courier new", courier, monaco, monospace, sans-serif;" data-mce-style="font-family: 'courier new', courier, monaco, monospace, sans-serif;">> out.clumped <- spca(x, ask = FALSE, type = 1, scannf = FALSE, xy = newxy)</span><br><span style="font-family: "courier new", courier, monaco, monospace, sans-serif;" data-mce-style="font-family: 'courier new', courier, monaco, monospace, sans-serif;">Error in chooseCN(xy = xy, ask = ask, type = type, plot.nb = plot.nb, : </span><br><span style="font-family: "courier new", courier, monaco, monospace, sans-serif;" data-mce-style="font-family: 'courier new', courier, monaco, monospace, sans-serif;"> Duplicate locations detected and incompatible with graph type 1-4.</span><br><span style="font-family: "courier new", courier, monaco, monospace, sans-serif;" data-mce-style="font-family: 'courier new', courier, monaco, monospace, sans-serif;">Please choose another graph (5-7) or add random noise to locations (see ?jitter).</span><br><span style="font-family: "courier new", courier, monaco, monospace, sans-serif;" data-mce-style="font-family: 'courier new', courier, monaco, monospace, sans-serif;">> out.jittered <- spca(x, ask = FALSE, type = 1, scannf = FALSE, xy = jitter(newxy))</span><br><span style="font-family: "courier new", courier, monaco, monospace, sans-serif;" data-mce-style="font-family: 'courier new', courier, monaco, monospace, sans-serif;">> </span></div><div><br data-mce-bogus="1"></div><div>Cheers,</div><div>Roman</div><div><br></div><div data-marker="__SIG_PRE__">----<br>In god we trust, all others bring data.<br>> Zahtevaj IJZ na https://kurc.biolitika.si</div><br><hr id="zwchr" data-marker="__DIVIDER__"><div data-marker="__HEADERS__"><b>From: </b>"Carol Ann Reeb" <creeb@stanford.edu><br><b>To: </b>adegenet-forum@lists.r-forge.r-project.org<br><b>Sent: </b>Friday, August 4, 2017 12:14:01 AM<br><b>Subject: </b>[adegenet-forum] Jitter & sPCA<br></div><br><div data-marker="__QUOTED_TEXT__"><style style="display: none;" data-mce-style="display: none;"><!-- P {margin-top:0;margin-bottom:0;} --></style>
<div id="divtagdefaultwrapper" style="font-size: 12pt; color: #000000; font-family: Calibri,Helvetica,sans-serif;" dir="ltr" data-mce-style="font-size: 12pt; color: #000000; font-family: Calibri,Helvetica,sans-serif;">
<p>I'm having trouble jittering x-coordinates in order to run sPCA. I'm still learning R so I don't know what code would work in adegent. I did find R usage: Jitter(x, factor=1, amount=NULL). But that does not tell me how to call the proper files. I
did find code from a supplement from a manuscript comparing MENE to sPCA comparison. And although that routine ran, the program would still not allow me to choose a network to plot sPCA coordinates because it said they were still identical in the xy file.
Any help, suggestions would be greatly appreciated.</p>
<p><br>
</p>
<p>Carol</p>
</div>
<br>_______________________________________________<br>adegenet-forum mailing list<br>adegenet-forum@lists.r-forge.r-project.org<br>https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/adegenet-forum<br></div></div></body></html>