Merge branch 'master' of https://git-xen.lmgc.univ-montp2.fr/alkadri/rterahertz

.Rhistory

+devtools::create_description()
+usethis::use_description()
+library(rterahertz)
+library(rterahertz)
+?extrairematligne_even
+m <- matrix(0, nrow=10, ncol = 10)
+m_odd <- extrairematligne_odd
+m_odd <- extrairematligne_odd(m)
+?extrairematligne_odd
+?extrairematligne_even
+?extrairematligne_odd
+m_odd <- extrairematligne_odd(m)
+?extractematline_even
+m_odd <- extractematline_even(m)
+m_odd <- extractmatline_even(m)
+library(rterahertz)
+m_odd <- extractmatline_even(m)
+library(rterahertz)
+m_odd <- extractmatline_even(m)
+?extractmatline_even
+library(rterahertz)
+m_odd <- extractmatline_even(m)
+?rterahertz
+library(rterahertz)
+?extractmatline_even
+m_odd <- extractmatline_even(m)
+library(rterahertz)
+library(rterahertz)
+?extractmatline_even
+library(rterahertz)
+library(rterahertz)
+rnorm(10, mean = 0, sd = 1)
+matrix(rnorm(100, mean = 0, sd = 1), nrow = 10, ncol = 10)
+library(rterahertz)

.Rproj.user/D9B41A7/build_options

+auto_roxygenize_for_build_and_reload="1"
+auto_roxygenize_for_build_package="1"
+auto_roxygenize_for_check="1"
+live_preview_website="1"
+makefile_args=""
+preview_website="1"
+website_output_format="all"

.Rproj.user/D9B41A7/cpp-definition-cache

+[
+]
\ No newline at end of file

.Rproj.user/D9B41A7/pcs/files-pane.pper

+{
+    "path" : "~/Documents/These/Works/Current models/R_packages/rterahertz/man",
+    "sortOrder" : [
+        {
+            "ascending" : true,
+            "columnIndex" : 2
+        }
+    ]
+}
\ No newline at end of file

.Rproj.user/D9B41A7/pcs/source-pane.pper

+{
+    "activeTab" : 2
+}
\ No newline at end of file

.Rproj.user/D9B41A7/pcs/windowlayoutstate.pper

+{
+    "left" : {
+        "panelheight" : 941,
+        "splitterpos" : 393,
+        "topwindowstate" : "NORMAL",
+        "windowheight" : 979
+    },
+    "right" : {
+        "panelheight" : 941,
+        "splitterpos" : 591,
+        "topwindowstate" : "NORMAL",
+        "windowheight" : 979
+    }
+}
\ No newline at end of file

.Rproj.user/D9B41A7/pcs/workbench-pane.pper

+{
+    "TabSet1" : 3,
+    "TabSet2" : 0,
+    "TabZoom" : {
+    }
+}
\ No newline at end of file

.Rproj.user/D9B41A7/persistent-state

+build-last-errors="[]"
+build-last-errors-base-dir="~/Documents/These/Works/Current models/R_packages/rterahertz/"
+build-last-outputs="[{\"output\":\"==> devtools::document(roclets = c('rd', 'collate', 'namespace'))\\n\\n\",\"type\":0},{\"output\":\"Updating rterahertz documentation\\n\",\"type\":2},{\"output\":\"Loading rterahertz\\n\",\"type\":2},{\"output\":\"Warning: The existing 'NAMESPACE' file was not generated by roxygen2, and will not be overwritten.\\n\",\"type\":2},{\"output\":\"Documentation completed\\n\\n\",\"type\":1},{\"output\":\"==> R CMD INSTALL --preclean --no-multiarch --with-keep.source rterahertz\\n\\n\",\"type\":0},{\"output\":\"* installing to library ‘/Library/Frameworks/R.framework/Versions/3.6/Resources/library’\\n\",\"type\":1},{\"output\":\"* installing *source* package ‘rterahertz’ ...\\n\",\"type\":1},{\"output\":\"** using staged installation\\n\",\"type\":1},{\"output\":\"** R\\n\",\"type\":1},{\"output\":\"\",\"type\":1},{\"output\":\"** byte-compile and prepare package for lazy loading\\n\",\"type\":1},{\"output\":\"\",\"type\":1},{\"output\":\"** help\\n\",\"type\":1},{\"output\":\"\",\"type\":1},{\"output\":\"*** installing help indices\\n\",\"type\":1},{\"output\":\"** building package indices\\n\",\"type\":1},{\"output\":\"** testing if installed package can be loaded from temporary location\\n\",\"type\":1},{\"output\":\"\",\"type\":1},{\"output\":\"** testing if installed package can be loaded from final location\\n\",\"type\":1},{\"output\":\"\",\"type\":1},{\"output\":\"** testing if installed package keeps a record of temporary installation path\\n\",\"type\":1},{\"output\":\"* DONE (rterahertz)\\n\",\"type\":1},{\"output\":\"\",\"type\":1}]"
+compile_pdf_state="{\"errors\":[],\"output\":\"\",\"running\":false,\"tab_visible\":false,\"target_file\":\"\"}"
+files.monitored-path=""
+find-in-files-state="{\"handle\":\"\",\"input\":\"\",\"path\":\"\",\"regex\":true,\"results\":{\"file\":[],\"line\":[],\"lineValue\":[],\"matchOff\":[],\"matchOn\":[]},\"running\":false}"
+imageDirtyState="1"
+saveActionState="-1"

.Rproj.user/D9B41A7/rmd-outputs

+
+
+
+
+

.Rproj.user/D9B41A7/saved_source_markers

+{"active_set":"","sets":[]}
\ No newline at end of file

.Rproj.user/D9B41A7/sources/prop/509553A8

+{
+    "cursorPosition" : "47,19",
+    "scrollLine" : "34",
+    "tempName" : "Untitled1"
+}
\ No newline at end of file

.Rproj.user/D9B41A7/sources/prop/52429BB6

+{
+    "cursorPosition" : "17,0",
+    "scrollLine" : "0"
+}
\ No newline at end of file

.Rproj.user/D9B41A7/sources/prop/55F0DCFD

+{
+}
\ No newline at end of file

.Rproj.user/D9B41A7/sources/prop/8049E1E6

+{
+    "cursorPosition" : "7,2",
+    "scrollLine" : "0",
+    "tempName" : "Untitled1"
+}
\ No newline at end of file

.Rproj.user/D9B41A7/sources/prop/CE95A622

+{
+    "cursorPosition" : "1,13",
+    "scrollLine" : "0"
+}
\ No newline at end of file

.Rproj.user/D9B41A7/sources/s-89BF80F1/6B0D0955

+{
+    "collab_server" : "",
+    "contents" : "",
+    "created" : 1562228626601.000,
+    "dirty" : false,
+    "encoding" : "UTF-8",
+    "folds" : "",
+    "hash" : "0",
+    "id" : "6B0D0955",
+    "lastKnownWriteTime" : 1562228235,
+    "last_content_update" : 1562228235,
+    "path" : "~/Documents/These/Works/Current models/R_packages/rterahertz/R/plottingfunctions.R",
+    "project_path" : "R/plottingfunctions.R",
+    "properties" : {
+        "cursorPosition" : "7,2",
+        "scrollLine" : "0",
+        "tempName" : "Untitled1"
+    },
+    "read_only" : false,
+    "read_only_alternatives" : [
+    ],
+    "relative_order" : 2,
+    "source_on_save" : false,
+    "source_window" : "",
+    "type" : "r_source"
+}
\ No newline at end of file

.Rproj.user/D9B41A7/sources/s-89BF80F1/6B0D0955-contents

+#' Function for visualizing the THz image matrix using plotly
+#'
+#' @description A wrapper for plot_ly() function, useful for visualizing the THz matrix data quickly.
+#'
+#' @usage plotlyTHz(m)
+#'
+#' @param m THz matrix data, obtained through the THz scan
+#'
+#' @return An imaging of said matrix
+#'
+#' @examples
+#' m <- matrix(rnorm(100, mean = 0, sd = 1), nrow = 10, ncol = 10)
+#' plotlyTHz(m)
+
+plotlyTHz <- function(m){
+  
+  # m is the matrix of the data obtained through the THz imaging
+  
+  plotly::plot_ly(
+    
+    x = 1:ncol(m),
+    
+    y = 1:nrow(m),
+    
+    z = (as.matrix(m)), type = "heatmap"
+    
+  )
+  
+}
+
+#' Function for visualizing the THz image matrix using ggplot2
+#'
+#' @description A wrapper for ggplot() function, useful for visualizing the THz matrix data quickly.
+#'
+#' @usage plotTHz(m)
+#'
+#' @param m THz matrix data, obtained through the THz scan
+#'
+#' @return An imaging of said matrix
+#'
+#' @examples
+#' m <- matrix(rnorm(100, mean = 0, sd = 1), nrow = 10, ncol = 10)
+#' plotTHz(m)
+
+plotTHz <- function(m){
+  
+  #m is the matrix of the data obtained through the THz imaging
+  
+  m <- as.matrix(m)
+  
+  colnames(m) <- 1:ncol(m)
+  
+  row.names(m) <- 1:nrow(m)
+  
+  m <- reshape2::melt(m)
+  
+  names(m) <- c("Y","X","Val")
+  
+  m$Y <- as.numeric(m$Y)
+  
+  m$X <- as.numeric(m$X)
+  
+  ggplot2::ggplot(data = m, ggplot2::aes(x = X, y = Y, fill = Val))+
+    ggplot2::geom_tile()
+  
+}

.Rproj.user/D9B41A7/sources/s-89BF80F1/F99F6186

+{
+    "collab_server" : "",
+    "contents" : "",
+    "created" : 1562228597086.000,
+    "dirty" : false,
+    "encoding" : "",
+    "folds" : "",
+    "hash" : "0",
+    "id" : "F99F6186",
+    "lastKnownWriteTime" : 140507271434464,
+    "last_content_update" : 1562228597086,
+    "path" : null,
+    "project_path" : null,
+    "properties" : {
+        "cacheKey" : "D754C48E",
+        "caption" : "m_oddlines",
+        "contentUrl" : "grid_resource/gridviewer.html?env=&obj=m_oddlines&cache_key=D754C48E",
+        "displayedObservations" : 5,
+        "environment" : "",
+        "expression" : "m_oddlines",
+        "object" : "m_oddlines",
+        "preview" : 0,
+        "totalObservations" : 5,
+        "variables" : 10
+    },
+    "read_only" : false,
+    "read_only_alternatives" : [
+    ],
+    "relative_order" : 1,
+    "source_on_save" : false,
+    "source_window" : "",
+    "type" : "r_dataframe"
+}
\ No newline at end of file

.Rproj.user/D9B41A7/sources/s-89BF80F1/FC0634F1

+{
+    "collab_server" : "",
+    "contents" : "",
+    "created" : 1562228667160.000,
+    "dirty" : false,
+    "encoding" : "UTF-8",
+    "folds" : "",
+    "hash" : "0",
+    "id" : "FC0634F1",
+    "lastKnownWriteTime" : 1562222629,
+    "last_content_update" : 1562222629,
+    "path" : "~/Documents/These/Works/Current models/R_packages/rterahertz/README.md",
+    "project_path" : "README.md",
+    "properties" : {
+        "cursorPosition" : "17,0",
+        "scrollLine" : "0"
+    },
+    "read_only" : false,
+    "read_only_alternatives" : [
+    ],
+    "relative_order" : 3,
+    "source_on_save" : false,
+    "source_window" : "",
+    "type" : "markdown"
+}
\ No newline at end of file