read.structure("project_data.stru")
args(read.structure(
args(read.structure)
read.structure("project_data.stru", n.ind=50, n.loc=15, col.lab=1, col.pop=2, row=1)
read.structure("project_data.stru", n.ind=50, n.loc=15, col.lab=1, col.pop=2, row=1, onerowperind=TRUE)
x <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/project_data.stru")
?read.structure
x <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/project_data.stru", n.ind=50, n.loc=15, onerowperind=TRUE, col.ind=1, col.pop=2, row.mark=1)
traceback()
x <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/project_data.stru", n.ind=50, n.loc=15, onerowperind=TRUE, col.lab=1, col.pop=2, row.mark=1)
x <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/project_data.stru", n.ind=50, n.loc=15, onerowperind=TRUE, col.lab=1, col.pop=2, row.mark=1, col.other=NULL)
traceback()
x <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/project_data.stru", n.ind=50, n.loc=15, onerowperind=TRUE, col.lab=1, col.pop=2, row.mark=1, col.other=NULL,ask=FALSE)
traceback()
traceback(2)
debug(read.structure)
x <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/project_data.stru", n.ind=50, n.loc=15, onerowperind=TRUE, col.lab=1, col.pop=2, row.mark=1, col.other=NULL,ask=FALSE)
NA.char
txt
lastline
row.marknaes
row.marknames
loc.names
loc.names
Q
x <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/project_data.stru", n.ind=50, n.loc=15, onerowperind=TRUE, col.lab=1, col.pop=2, col.other=NULL,ask=FALSE)
row.marknames
undebug(read.structure)
x
genind2df(x)
 read.table("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/15305adegenetextrait.txt")
 read.table("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/15305adegenetextrait.txt",sep="\t")
ncol( read.table("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/15305adegenetextrait.txt",sep="\t"))
q()
n
read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/project_data.stru", 
    n.ind = 50, n.loc = 15, onerowperind = TRUE, col.lab = 1, 
    col.pop = 2, col.other = NULL, ask = FALSE)
x <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/project_data.stru", n.ind = 50, n.loc = 15, onerowperind = TRUE, col.lab = 1, col.pop = 2, col.other = NULL, ask = FALSE)
x
genind2df(x)
head(genind2df(x))
q()
y
read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3,n.loc=15,col.pop=2,onerow=TRUE,col.lab=1)
read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3,n.loc=15,col.pop=2,onerow=TRUE,col.lab=1,col.other=NULL)
read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3,n.loc=15,col.pop=2,onerow=TRUE,col.lab=1,col.other=NULL,ask=FALSE)
x <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3,n.loc=15,col.pop=2,onerow=TRUE,col.lab=1,col.other=NULL,ask=FALSE)
x
uenames
genind2df(x)
genind2df(x,truenames=TRUE)
x$loc.names
nloc(x)
nLoc(x)
debug(read.structure)
x <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3,n.loc=15,col.pop=2,onerow=TRUE,col.lab=1,col.other=NULL,ask=FALSE)
row.marknames
ask
is.null(row.marknames)
Q
x <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3,n.loc=15,col.pop=2,onerow=TRUE,col.lab=1,col.other=NULL,ask=FALSE,row.mark=1)
Q
undebug(read.structure)
x <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3,n.loc=15,col.pop=2,onerow=TRUE,col.lab=1,col.other=NULL,ask=FALSE,row.mark=1)
x
genind2df(x)
y <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3)
15
1
2
1
debug(read.structure)
y <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3)
y <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3)
3
15
undebug(read.structure)
y <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3,n.loc=15,onerow=TRUE,col.lab=1,col.po=2,ask=FALSE)
y <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3,n.loc=15,onerow=TRUE,col.lab=1,col.po=2)
1
y <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3,n.loc=15,onerow=TRUE,col.lab=1)
2
1
y$loc.names
y <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3,n.loc=15,onerow=TRUE)
1
2
1
y <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3,n.loc=15)
1
2
1
as.logical(as.integer(0))
as.logical(as.integer(1))
as.logical(as.integer(123123))
as.logical(as.integer(0.2))
source("/home/master/dev/adegenet/pkg/R/import.R")
y <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3,n.loc=15)
1
2
1
y
y
genind2df(y)
y <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3,n.loc=15)
source("/home/master/dev/adegenet/pkg/R/import.R")
y <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3,n.loc=15)
1
2
1
y
y
y <- read.structure("/home/master/dev/adegenet/pkg/misc/bug-report.1.2-2.01/secondData.stru",n.ind=3,n.loc=15)
1
2
1
n
q()
y
