frederic-michaud/RQuantiNemo: Interacting with the program QuantiNemo

: Frederic Michaud
Maintainer: Frederic Michaud <frederic.michaud@unil.ch>
Description: This package allows to write

frederic-michaud/hapex: FRequency Evolution Simulator of Sex-linked Alleles

Package: fressa
Type: Package
Title: FRequency Evolution Simulator of Sex-linked

Frederic-gci/shiny4oracle: Preuve de concept (POC) pour Oracle1 mode projet avec Shiny et R

Package: shiny4oracle
Title: Preuve de concept (POC) pour Oracle1 mode projet

R/do_timelinedata.R:

(time.df)
time.df$square_x <- as.character(gsub("(.*)-(.*)", "\\1", time.df[, 1]))
time.df$square_y <- as.character

square: Create x-coordinates so the points form a square

.min = NULL,
.max = NULL,
offset_x = 0,

R/do_objects_dataset.R:

(round(df$x, 1), ", ", round(df$y, 1), ", ", round(df$z, 1))
# Squares ----
if( ! (is.null(df$square_x) & is.null

tests/testthat/test.do_section_plot.R:

" = range.x, "range.y" = range.y)
square_x <- levels(df$square_x)
square_y <- levels(df$square_y)

tests/testthat/test.do_timelinedata.R:

test_that(".do_timelinedata", {
res <- demo_objects_data(100)
res$square <- paste(res$square_x, res$square_y, sep

square: Create x-coordinates so the points form a square

.min = NULL,
.max = NULL,
offset_x = 0,

R/square.R:

#'
#' # Plot square
#' if (has_ggplot){

R/square.R:

#'
#' # Plot square
#' if (has_ggplot){

tests/testthat/test.demo_timeline_data.R:

test_that("demo_timeline_data", {
res <- demo_timeline_data()
expect_equal(dim(res), c(240, 3))

R/demo_timeline_data.R:

demo_timeline_data <- function(){
df <- expand.grid("year" = seq(1980, 1995, 1),
"square_x" = seq

tests/testthat/test.do_objects_dataset.R:

")
expect_equal(dim(res$data), c(100, 24))
expect_equal(colnames(res$data), c("id", "square_x", "square_y", "xmin", "xmax

tests/testthat/test.demo_objects_data.R:

expect_equal(colnames(res),
c("id", "square_x", "square_y", "xmin", "xmax", "ymin", "ymax", "zmin", "zmax", "layer

vignettes/examples/conv_lstm.R:

+ directiony*(0:(n_frames))
for(t in 1:n_frames){
square_x <- (x_shift[t] - w):(x_shift[t] + w

R/91_tidyverse.Rmd:

= ","))
# Example
aa <- data.frame(simple_x =c(1000.253,2,3), square_x = c(1,4,9), string_x = paste("equ_",1:3

models/tf-lstm.R:

+ directiony*(0:(n_frames))
for(t in 1:n_frames){
square_x <- (x_shift[t] - w):(x_shift[t] + w

demo_objects_data: Generates an "objects" data set populated with random values

numerical, number of objects to include in the data set.
Value
A data.frame with 12 columns ("id", "square_x

demo_timeline_data: Generates a "timeline" data set populated with random values

and demo_refits_data.
Value
A data frame with 3 columns containing random data ("year", "square_x", "square_y").