Skip to content

Commit

Permalink
remove thing causing warning.
Browse files Browse the repository at this point in the history
  • Loading branch information
zkamvar committed Feb 3, 2015
1 parent f9e28d7 commit e1cbdfd
Show file tree
Hide file tree
Showing 5 changed files with 17 additions and 17 deletions.
4 changes: 2 additions & 2 deletions DESCRIPTION
Original file line number Diff line number Diff line change
@@ -1,8 +1,8 @@
Package: poppr
Type: Package
Title: Genetic Analysis of Populations With Mixed Reproduction
Version: 1.1.2.99-56
Date: 2015-02-02
Version: 1.1.3
Date: 2015-02-03
Authors@R: c(person(c("Zhian", "N."), "Kamvar", role = c("cre", "aut"),
email = "[email protected]"),
person(c("Javier", "F."), "Tabima", role = "aut",
Expand Down
2 changes: 1 addition & 1 deletion NEWS
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
poppr 1.1.2.99
poppr 1.1.3
===========
NEW FEATURES
* new arguments to `plot_poppr_msn` to allow for easier manipulation of node sizes and of labeling
Expand Down
24 changes: 12 additions & 12 deletions R/sandbox.r
Original file line number Diff line number Diff line change
Expand Up @@ -94,18 +94,18 @@ genind_hierarchy <- function(x, df = NULL, dfname = "population_hierarchy"){
return(x)
}

gen2polysat <- function(gen, newploidy = gen@ploidy){
if (!require(polysat)){
stop("User needs polysat installed")
}
gen <- recode_polyploids(gen, newploidy)
gendf <- genind2df(gen, sep = "/", usepop = FALSE)
gendf <- lapply(gendf, strsplit, "/")
gendf <- lapply(gendf, lapply, as.numeric)
ambig <- new("genambig", samples = indNames(gen), loci = locNames(gen))
lapply(names(gendf), function(x) Genotypes(ambig, loci = x) <<- gendf[[x]])
return(ambig)
}
# gen2polysat <- function(gen, newploidy = gen@ploidy){
# if (!require(polysat)){
# stop("User needs polysat installed")
# }
# gen <- recode_polyploids(gen, newploidy)
# gendf <- genind2df(gen, sep = "/", usepop = FALSE)
# gendf <- lapply(gendf, strsplit, "/")
# gendf <- lapply(gendf, lapply, as.numeric)
# ambig <- new("genambig", samples = indNames(gen), loci = locNames(gen))
# lapply(names(gendf), function(x) Genotypes(ambig, loci = x) <<- gendf[[x]])
# return(ambig)
# }


new_graph_pops <- function(graph, dat, color){
Expand Down
2 changes: 1 addition & 1 deletion vignettes/algo.Rnw
Original file line number Diff line number Diff line change
Expand Up @@ -51,7 +51,7 @@
\scalebox{-1}[1]{\jala{}}
}

\title{Algorithms and equations utilized in poppr version 1.1.2.99-56}
\title{Algorithms and equations utilized in poppr version 1.1.3}
\author{Zhian N. Kamvar$^{1}$\ and Niklaus J. Gr\"unwald$^{1,2}$\\\scriptsize{1)
Department of Botany and Plant Pathology, Oregon State University, Corvallis,
OR}\\\scriptsize{2) Horticultural Crops Research Laboratory, USDA-ARS,
Expand Down
2 changes: 1 addition & 1 deletion vignettes/poppr_manual.Rnw
Original file line number Diff line number Diff line change
Expand Up @@ -51,7 +51,7 @@
\scalebox{-1}[1]{\jala{}}
}

\title{Data import and manipulation in poppr version 1.1.2.99-56}
\title{Data import and manipulation in poppr version 1.1.3}
\author{Zhian N. Kamvar$^{1}$\ and Niklaus J. Gr\"unwald$^{1,2}$\\\scriptsize{1)
Department of Botany and Plant Pathology, Oregon State University, Corvallis,
OR}\\\scriptsize{2) Horticultural Crops Research Laboratory, USDA-ARS,
Expand Down

0 comments on commit e1cbdfd

Please sign in to comment.