Commit cd36c90b authored by Ahmad Alkadri's avatar Ahmad Alkadri 🎧
Browse files

Charger sur Dev

parent 39d9c2d3
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)
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"
[
]
\ No newline at end of file
{
"path" : "~/Documents/These/Works/Current models/R_packages/rterahertz/man",
"sortOrder" : [
{
"ascending" : true,
"columnIndex" : 2
}
]
}
\ No newline at end of file
{
"activeTab" : 2
}
\ No newline at end of file
{
"left" : {
"panelheight" : 941,
"splitterpos" : 393,
"topwindowstate" : "NORMAL",
"windowheight" : 979
},
"right" : {
"panelheight" : 941,
"splitterpos" : 591,
"topwindowstate" : "NORMAL",
"windowheight" : 979
}
}
\ No newline at end of file
{
"TabSet1" : 3,
"TabSet2" : 0,
"TabZoom" : {
}
}
\ No newline at end of file
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"
{"active_set":"","sets":[]}
\ No newline at end of file
{
"cursorPosition" : "47,19",
"scrollLine" : "34",
"tempName" : "Untitled1"
}
\ No newline at end of file
{
"cursorPosition" : "17,0",
"scrollLine" : "0"
}
\ No newline at end of file
{
}
\ No newline at end of file
{
"cursorPosition" : "7,2",
"scrollLine" : "0",
"tempName" : "Untitled1"
}
\ No newline at end of file
{
"cursorPosition" : "1,13",
"scrollLine" : "0"
}
\ No newline at end of file
~%2FDocuments%2FThese%2FWorks%2FCurrent%20models%2FR_packages%2Frterahertz%2FDESCRIPTION="CE95A622"
~%2FDocuments%2FThese%2FWorks%2FCurrent%20models%2FR_packages%2Frterahertz%2FNAMESPACE="55F0DCFD"
~%2FDocuments%2FThese%2FWorks%2FCurrent%20models%2FR_packages%2Frterahertz%2FR%2Fmatrixlineextractions.R="509553A8"
~%2FDocuments%2FThese%2FWorks%2FCurrent%20models%2FR_packages%2Frterahertz%2FR%2Fplottingfunctions.R="8049E1E6"
~%2FDocuments%2FThese%2FWorks%2FCurrent%20models%2FR_packages%2Frterahertz%2FREADME.md="52429BB6"
{
"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
#' 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()
}
{
"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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment